difficulté pour adapter un code vba
#1
Aspirant XLPages

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
Hors Ligne
Rapport   Haut 

Re: difficulté pour adapter un code vba
#2
Webmestre

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")
    LastInputRow = .Cells(FirstInputRow, ColumnIndex).End(xlDown).Row
    Set InputRange = .Range(.Cells(FirstInputRow, ColumnIndex), .Cells(LastInputRow, ColumnIndex))
End With
Evidemment, "Feuil2" est à adapter, tu dois indiquer là le nom de l'onglet comportant les données.
Attention également aux "points" devant les Range et Cells.



Pour l'insertion du code VBA dans ton post :


Cordialement,

Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
Rapport   Haut 

Re: difficulté pour adapter un code vba
#3
Aspirant XLPages

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
Hors Ligne
Rapport   Haut 

Re: difficulté pour adapter un code vba
#4
Webmestre

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"
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 
Tout d'abord, je suis effectivement Webmestre de ce site accessoirement, mais mon pseudo c'est myDearFriend! Ensuite, que ce soit pour l'un ou pour l'autre, il n'y a jamais "Monsieur" devant .

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
            Parametres.RowSource = InputRange.Address
            Parametres.ListIndex = 0
Tu écris :
       With Parametres
            .ColumnHeads = True
            .RowSource = InputRange.Address
            .ListIndex = 0
        End With
... avec des "points" devant "ColumnHeads", "RowSource" et "ListIndex", ce qui est très bien !


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
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
Rapport   Haut 

Re: difficulté pour adapter un code vba
#5
Aspirant XLPages

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
Hors Ligne
Rapport   Haut 


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.

[Recherche avancée]


Qui consulte actuellement ce sujet ?   1 Utilisateur(s) anonymes