A
Alex
Guest
Bonjour le forum
J'ai une feuille contenant une combobox
dés que je choisi un nom dans la combobox1 présente sur la feuille(presence)
je voudrais qu'il active la ligne contenant le nom choisi d'une autre feuille("jour")
pour qu'il place tous les informations de cette ligne dans une userform contenant une combobox2
Ma combobox1 est initialisée
je réalise cette macro pour l'activation de la ligne de la feuille(jour)
Private Sub ComboBox1_Change()
Worksheets("jour").Select
nomchoisie = ComboBox1.Text
Dim Ligne As Integer
For Ligne = 2 To 67
If Sheets("jour").Range("A" & Ligne).Text = nomchoisie Then
Sheets("jour").Range("A" & Ligne).Activate
UserForm1.Show
End If
Next
End Sub
mais aprés je ne sait pas trop comment faire pour remplir la combobox contenant
les information de la ligne
j'ai fais :
Private Sub userform_Initialize()
ActiveCell.Select
For i = 0 To 31
If Sheets("jour").ActiveCell.Offset(0, i) <> "" Then
ComboBox2.AddItem (Sheets("joursRTT+").ActiveCell.Offset(0, i))
Else
End If
Next
End Sub
mais cela ne fonctionne pas
SVP aidez moi
Merci d'avance
J'ai une feuille contenant une combobox
dés que je choisi un nom dans la combobox1 présente sur la feuille(presence)
je voudrais qu'il active la ligne contenant le nom choisi d'une autre feuille("jour")
pour qu'il place tous les informations de cette ligne dans une userform contenant une combobox2
Ma combobox1 est initialisée
je réalise cette macro pour l'activation de la ligne de la feuille(jour)
Private Sub ComboBox1_Change()
Worksheets("jour").Select
nomchoisie = ComboBox1.Text
Dim Ligne As Integer
For Ligne = 2 To 67
If Sheets("jour").Range("A" & Ligne).Text = nomchoisie Then
Sheets("jour").Range("A" & Ligne).Activate
UserForm1.Show
End If
Next
End Sub
mais aprés je ne sait pas trop comment faire pour remplir la combobox contenant
les information de la ligne
j'ai fais :
Private Sub userform_Initialize()
ActiveCell.Select
For i = 0 To 31
If Sheets("jour").ActiveCell.Offset(0, i) <> "" Then
ComboBox2.AddItem (Sheets("joursRTT+").ActiveCell.Offset(0, i))
Else
End If
Next
End Sub
mais cela ne fonctionne pas
SVP aidez moi
Merci d'avance