difficulté pour adapter un code vba |
Titre du sujet : difficulté pour adapter un code vba par spookyz le 05/10/2008 17:16:12 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 |
Forums