difficulté pour adapter un code vba | ||
---|---|---|
Inscription: 05/10/2008
Messages:
24
Système d'exploitation: PC Version Excel utilisée: 2007 |
Posté le : 05-10-2008 17h16
Bonjour je ne sais pas comment faire pour lancer ce code depuis un bouton situé sur une autre page que la page des colones de données
avec un bouton sur la meme page pas de problèmes mais si je place le bouton sur une autre page alors cela ne fonctionne pas si une personne peut m'aider c'est cool je place le code ici mais je ne trouve pas les balises qui permetes de placer le code proprement désolé Private Sub ListBox1_Change()
' Mise à jour des items dans la ListBox2
UpdateListBox Me.ListBox2, Me.ListBox1.ListIndex
End Sub
Private Sub UpdateListBox(Parametres As MSForms.ListBox, IndexValue As Integer) Dim LastInputRow As Integer, ColumnIndex As Integer, InputRange As Range
' Les données commencent à la ligne 3
Const FirstInputRow As Integer = 3
' Détermine depuis quelle colonne on prend la liste des items
ColumnIndex = IndexValue + 2
' Détermine la dernière ligne de la colonne sélectionnée et la plage correspondante
LastInputRow = Cells(FirstInputRow, ColumnIndex).End(xlDown).Row
Set InputRange = ActiveSheet.Range(Cells(FirstInputRow, ColumnIndex), Cells(LastInputRow, ColumnIndex))
With Parametres
.ColumnHeads = True ' Affiche les en-têtes de colonne
.RowSource = InputRange.Address ' Spécifie la source de données
.ListIndex = 0 ' Sélectionne le premier item
End With
Set InputRange = Nothing
End Sub
Private Sub UserForm_Initialize() ' La mise à jour des items dans ListBox1 ...
' mettra à jour les items dans la ListBox2
With Me
UpdateListBox .ListBox1, -1
End With
End Sub
Private Sub CommandButton1_Click() Me.Hide
MsgBox "Dans la catégorie : " & Me.ListBox1.List(Me.ListBox1.ListIndex) & Chr(13) & Chr(13) & _
"Vous avez choisi : " & Me.ListBox2.List(Me.ListBox2.ListIndex), vbInformation, "Résultat de votre choix :"
voila j'espere avoir été clair d'avance merci
Edité par spookyz le 07/10/2008 15:16:52
|
|
|
Re: difficulté pour adapter un code vba | ||
---|---|---|
Inscription: 18/05/2006
De Saône-et-Loire (71)
Messages:
1539
Système d'exploitation: PC Version Excel utilisée: 97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365 |
Posté le : 05-10-2008 19h11
Bonjour spookyz et bienvenue.
Sans pouvoir tester, j'imagine que l'ajout suivant dans ton code devrait convenir : With Sheets("Feuil2") Attention également aux "points" devant les Range et Cells. Pour l'insertion du code VBA dans ton post : Cordialement, Didier_mDF
Le Webmaster La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien |
|
|
Re: difficulté pour adapter un code vba | ||
---|---|---|
Inscription: 05/10/2008
Messages:
24
Système d'exploitation: PC Version Excel utilisée: 2007 |
Posté le : 06-10-2008 18h12
Bonjour Monsieur le Webmestre, et merci pour ton aide mais je rencontre presque le meme probleme alors je joind le fichier" Achats"
pour te montrer le probleme si tu a un moment Voila tu pouras voir que sur la "Feuil2" et "Feuil3" les colonnes du userform changes et j'aurai voulu retrouver les colonnes de la feuille "Table" alors si tu vois une solution c'est cool peut tu aussi m'expliquer l'importance des" points"qui precedent" Range" ou "Cells" a bientôt et encore merci
Edité par spookyz le 07/10/2008 15:14:42
|
|
|
Re: difficulté pour adapter un code vba | ||
---|---|---|
Inscription: 18/05/2006
De Saône-et-Loire (71)
Messages:
1539
Système d'exploitation: PC Version Excel utilisée: 97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365 |
Posté le : 06-10-2008 20h20
Bonsoir spookyz, le Forum,
Citation : spookyz a écrit : Bonjour Monsieur le Webmestre, et merci pour ton aide mais je rencontre presque le meme probleme alors je joind le fichier" Achats" Concernant ton code, mea culpa, je n'avais pas fait attention au fait que tu utilisais la propriété RowSource. Tu devrais donc t'en sortir en modifiant également la ligne de code suivante comme indiqué : .RowSource = "Table!" & InputRange.Address Concernant l'importance les "points" devant les "Range" et les "Cells", j'avoue que ta question me rend perplexe : Dans ton propre code, afin d'éviter d'écrire : Parametres.ColumnHeads = True With Parametres Eh bien, moi, je mets des "points" devant les "Range" et les "Cells" compris dans mon bloc "With Sheets("Feuil2")" pour la même raison. Cordialement, Didier_mDF
Le Webmaster La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien |
|
|
Re: difficulté pour adapter un code vba | ||
---|---|---|
Inscription: 05/10/2008
Messages:
24
Système d'exploitation: PC Version Excel utilisée: 2007 |
Posté le : 07-10-2008 15h14
Bonjour myDearFriend, merci pour ces corrections et ta generosité ça fonctionne parfaitement je clos ce fil a bientot
Edité par spookyz le 19/11/2008 17:30:50
|
|
|
Vous pouvez voir les sujets.
Vous ne pouvez pas débuter de nouveaux sujets.
Vous ne pouvez pas répondre aux contributions.
Vous ne pouvez pas éditer vos contributions.
Vous ne pouvez pas effacez vos contributions.
Vous ne pouvez pas ajouter de nouveaux sondages.
Vous ne pouvez pas voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.
Qui consulte actuellement ce sujet ?
1 Utilisateur(s) anonymes