K
Kacy
Guest
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
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