Modifier code Userform

[lynyrd]

Bonjour le forum
Dans le fichier ci-joint,je dois inserer une nouvelle colonne (en rouge dans l'exemple)pour la date de chaque journée (de 1 à 38)
Comment faudrait t'il modifier le code afin que en cliquant sur "LYON" l'userform m'affiche :
journée 01 : lyon - toulouse 08/08/2008
journée 02 : lorient - lyon + nouvelle date ,etc...

au lieu de :
journée 01 : lyon - toulouse
journée 02 : 08/08/2008
Mes connaissances en VBA etant assez limitées,je fais appel à vos services.
Merci .

 

[wilfried_42]

Re : Modifier code Userform

Bonjour lynrid

voici le code avec en rouge les modifs

Option Base 1

[COLOR="Red"]Dim MyArray(38, 3)[/COLOR]

Private Sub CommandButton1_Click()
Unload UserForm1
End Sub
Private Sub UserForm_Initialize()
Dim J As Single

Lig = ActiveCell.Row

ListBox1.ColumnCount = 5
ListBox1.ColumnWidths = "70;120"
For J = 1 To 38
If J < 10 Then
    MyArray(J, 1) = "Journée 0" & J & " : "
    Else
    MyArray(J, 1) = "Journée " & J & " : "
  End If
[COLOR="red"]    MyArray(J, 2) = Cells(Lig, ((J - 1) * 2) + 2)
    MyArray(J, 3) = Cells(Lig, ((J - 1) * 2) + 3)
[/COLOR]
Next J
ListBox1.List() = MyArray
UserForm1.Label2 = "Equipe : " & ActiveCell.Value
End Sub

edit : Bonjour CBEA

 

[cbea]

Re : Modifier code Userform

Bonjour lynyrd,

Voici une solution.


PS : bonjour Wilfried

 

[lynyrd]

Re : Modifier code Userform

Merci à vous deux
cela fonctionne parfaitement
A+