Re : Pb liste de choix de ComboBox
Bonjour Paf,
merci pour ton aide. Je viens de le mettre en place. Et cela fonctionne.
Sauf que maintenant les données que je modifie ne sont plus prises en compte dans mes onglets.
Pourtant je n'ai rien changé dans mes procédures de modifications de données.
Merci encore pour ton aide
Breitzou
Sub UserForm_Activate()
C1.Value = Sheets("feuil2").Range("B5").Value
C2.Value = Sheets("feuil2").Range("C5").Value
C3.Value = Sheets("feuil2").Range("D5").Value
C4.Value = Sheets("feuil2").Range("B6").Value
C5.Value = Sheets("feuil2").Range("C6").Value
C6.Value = Sheets("feuil2").Range("D6").Value
C7.Value = Sheets("feuil2").Range("B7").Value
C8.Value = Sheets("feuil2").Range("C7").Value
C9.Value = Sheets("feuil2").Range("D7").Value
Me.MultiPage1.Value = 1
C11.Value = Sheets("feuil3").Range("C5").Value
C14.Value = Sheets("feuil3").Range("C6").Value
C10.Value = Sheets("feuil3").Range("B5").Value
C12.Value = Sheets("feuil3").Range("D5").Value
C13.Value = Sheets("feuil3").Range("B6").Value
C15.Value = Sheets("feuil3").Range("D6").Value
End Sub
Sub UserForm_Initialize()
Set f = Feuil2
C1.List = Array("Effectué", "En cours", "Non effectué")
C3.List = Array("Dudul", "Riri", "Fifi", "Loulou", "Tic", "Tac")
C4.List = Array("Effectué", "En cours", "Non effectué")
C6.List = Array("Dudul", "Riri", "Fifi", "Loulou", "Tic", "Tac")
C7.List = Array("Effectué", "En cours", "Non effectué")
C9.List = Array("Dudul", "Riri", "Fifi", "Loulou", "Tic", "Tac")
Set f = Feuil3
C10.List = Array("Effectué", "En cours", "Non effectué")
C12.List = Array("Dudul", "Riri", "Fifi", "Loulou", "Tic", "Tac")
C13.List = Array("Effectué", "En cours", "Non effectué")
C15.List = Array("Dudul", "Riri", "Fifi", "Loulou", "Tic", "Tac")
End Sub
Private Sub CommandButton3_Click() 'modifier les données
If C1.ListIndex > -1 Then
With f
For y = 1 To 3: .Cells(C1.ListIndex + 5, y + 1) = Me("C" & y).Value: Next y
For y = 4 To 6: .Cells(C1.ListIndex + 6, y - 2) = Me("C" & y).Value: Next y
For y = 7 To 9: .Cells(C1.ListIndex + 7, y - 5) = Me("C" & y).Value: Next y
End With
End If
Unload Me
End Sub
Private Sub CommandButton9_Click() 'modifier les données
If C10.ListIndex > -1 Then
With f
For y = 10 To 12: .Cells(C10.ListIndex + 5, y - 8) = Me("C" & y).Value: Next y
For y = 13 To 15: .Cells(C10.ListIndex + 6, y - 11) = Me("C" & y).Value: Next y
End With
End If
Unload Me
End Sub