Modifier code Userform

lynyrd

XLDnaute Impliqué
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 .
 

Pièces jointes

  • ligue1.zip
    24.9 KB · Affichages: 22

wilfried_42

XLDnaute Barbatruc
Re : Modifier code Userform

Bonjour lynrid

voici le code avec en rouge les modifs

Code:
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
 
Dernière édition:

Statistiques des forums

Discussions
312 842
Messages
2 092 733
Membres
105 519
dernier inscrit
faivre-roussel.ivan@orang