Bonjour
Sur mon projet, j’ai ce but de code qui m’a fait « Banzai64 » que sur mon ordinateur ca marche bien et sur celui de ma femme ca ne marche pas (elle a Office en portugais et le VB est en anglai), le code bug au niveau du « AddItem Format ("2011/" & I & "/1", "mmmm") » apparemment c’est « Format » qui pose problème ! , quelqu’un a une idée le pourquoi, ou même une autre façon de faire pour obtenir le même résultat ??
Merci
Dim I As Integer
Dim Motifs
Motifs = Array("Atrasado", "A", "Não justificado", "N", "Justificado", "J", "Presente", "P", "Férias", "Fé", "Feriado", "Fe")
With Me.ComboBox1
For I = 1 To 12
.AddItem Format("2011/" & I & "/1", "mmmm")
Next I
.ListIndex = -1
End With
With Me.ComboBox3
.ColumnCount = 2
.ColumnWidths = "-1;0"
For I = 0 To UBound(Motifs) Step 2
.AddItem Motifs(I)
.List(.ListCount - 1, 1) = Motifs(I + 1)
Next I
.ListIndex = -1
End With