Rapport de message :*
 

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