mamounette
XLDnaute Junior
Bonjour le forum,
Un petit souci.
J'ai voulu faire un deuxième userform identique au premier mais en entrant les données dans une autre feuille, le problème :
en refaisant le même cde VBA, il y a plein d'erreurs :
Pour le premier userform :
Private Sub ComboBox1_Change() Nom = ComboBox1.Value
Col = ThisWorkbook.Sheets('Listes').Rows(1).Find(Nom).Column
IniCombo2
End Sub
pour le deuxième userform :
Sub IniCombo3()
Dim p As Integer
ComboBox3.Clear
ComboBox4.Clear
With ThisWorkbook.Sheets('Listes') '.Activate
For p = 2 To .Cells(65536, Col).End(xlUp).Row
ComboBox3.AddItem .Cells(p, Col)
Next
If Col <> 2 Then ' ne pas faire pour la colonne B où il n'y a pas de genre
For p = 2 To .Cells(65536, Col + 1).End(xlUp).Row ComboBox4.AddItem .Cells(p, Col + 1)
Next
End If
End With
End Sub
J'ai enlevé le maximum, tout en restant compréhensible.
Mais je ne peux l'envoyer, il est trop lourd.
Le lien vers mon fichier de base avec un seul userform.
Ce lien n'existe plus
J'espère que c'est compréhensible.
Pour information, Pascal76 m'avait beaucoup aidé.
Merci de votre aide.
Amitiés Sylvie
Un petit souci.
J'ai voulu faire un deuxième userform identique au premier mais en entrant les données dans une autre feuille, le problème :
en refaisant le même cde VBA, il y a plein d'erreurs :
Pour le premier userform :
Private Sub ComboBox1_Change() Nom = ComboBox1.Value
Col = ThisWorkbook.Sheets('Listes').Rows(1).Find(Nom).Column
IniCombo2
End Sub
pour le deuxième userform :
Sub IniCombo3()
Dim p As Integer
ComboBox3.Clear
ComboBox4.Clear
With ThisWorkbook.Sheets('Listes') '.Activate
For p = 2 To .Cells(65536, Col).End(xlUp).Row
ComboBox3.AddItem .Cells(p, Col)
Next
If Col <> 2 Then ' ne pas faire pour la colonne B où il n'y a pas de genre
For p = 2 To .Cells(65536, Col + 1).End(xlUp).Row ComboBox4.AddItem .Cells(p, Col + 1)
Next
End If
End With
End Sub
J'ai enlevé le maximum, tout en restant compréhensible.
Mais je ne peux l'envoyer, il est trop lourd.
Le lien vers mon fichier de base avec un seul userform.
Ce lien n'existe plus
J'espère que c'est compréhensible.
Pour information, Pascal76 m'avait beaucoup aidé.
Merci de votre aide.
Amitiés Sylvie