remplissage liste déroulante

[Kacy]

Bonjour,

j'ai 3 feuilles excel avec des mesures comprises entre les lignes 10 et 40. Les mesures sont différentes d'une feuille à l'autre et ne sont pas au même nombre.

j'ai un formulaire qui a une liste déroulante qui doit proposer ces mesure en fonction de la feuille active.

Voici mon code dans le formulaire :

Private Sub UserForm_Initialize()

Set NomFormulaire = Me
For j = 5 To 61
Remplissage_liste_deroulante 'fonction appelée
Next

End Sub

Voici le code de ma fonction :

Public Sub Remplissage_liste_deroulante()

With NomFormulaire
'Permet de ne pas mettre les lignes vides dans la liste déroulante
If ActiveSheet.Cells(j, 2).Value = "" Then

Else
'Ajoute la valeur contenue dans la cellule ligne j, colonne 2 (B)
'dans la liste déroulante
.ComboBox.AddItem ActiveSheet.Cells(j, 2)
End If

End With

End Sub

Le problème est que je n'arrive pas à la compléter correctement en fonction des feuilles.

Avez-vous une solution?

Merci

 

[Habitude]

Re : remplissage liste déroulante

J et NomFormulaire semble mal déclarée

ton j va toujours valloir 0
tu peux le passer en paramètre à l'appel de fonction

Private Sub UserForm_Initialize()

' Set NomFormulaire = Me [COLOR="red"]!!pourquoi cette ligne [/COLOR]
For j = 5 To 61
Remplissage_liste_deroulante [COLOR="Red"]j[/COLOR] 'fonction appelée
Next

End Sub

Ensuite

Public Sub Remplissage_liste_deroulante([COLOR="red"]j[/COLOR])

' With NomFormulaire  [COLOR="red"]!!pas nécessaire[/COLOR]
'Permet de ne pas mettre les lignes vides dans la liste déroulante
If ActiveSheet.Cells(j, 2).Value = "" Then

Else
'Ajoute la valeur contenue dans la cellule ligne j, colonne 2 (B)
'dans la liste déroulante
[COLOR="red"]me[/COLOR].ComboBox.AddItem ActiveSheet.Cells(j, 2)
End If

End With  [COLOR="red"]!!pas nécessaire[/COLOR]

End Sub

 

[Kacy]

Re : remplissage liste déroulante

j est le numéro de la ligne. je n'est pas copié le code de la déclaration des variables et le problème ne vient pas de là. Nomformulaire est nécessaire car j'ai d'autre formulaire qui utilise cette fonction sinon ça ne marche pas mais ce n'est pas le problème.

 

[Kacy]

Re : remplissage liste déroulante

j'ai trouvé une solution merci de votre aide tout de même
Bonne soirée