1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
|
Private Sub EQ_Change()
If EQ.Value = "A" Then GoTo 10
If EQ.Value = "B" Then GoTo 20
If EQ.Value = "C" Then GoTo 30
10 'Planning mensuel général---------------------------------------------------------------------------------------------------- EQA
For I = 1 To 31
Me.Controls("TextBox1_" & I).Value = Feuil2.Cells(6, 26 + I).Value 'fait remonter les jours (lettre)
Me.Controls("TextBox2_" & I).Value = Feuil2.Cells(7, 26 + I).Value 'fait remonter les jours (Chiffre)
Me.Controls("TextBox3_0").Value = Feuil2.Cells(8, 19).Value 'Ligne 1 grade nom prénom
Me.Controls("TextBox3_0").BackColor = Feuil2.Cells(8, 19).Interior.Color 'Ligne 1 Couleur de l'equipe
Me.Controls("TextBox3_" & I).Value = Feuil2.Cells(8, 26 + I).Value 'Ligne 1 affiche le planning
Me.Controls("TextBox3_" & I).BackColor = Feuil2.Cells(8, 26 + I).Interior.Color 'Ligne 1 couleur suivant planning |
Partager