Bonjour le forum
Voila j'ai un fichier de base, qui grace a un CommandButton va remplir un fichier annexe vierge en fonction de certains critéres puis finira en enregisrant ce fichier sous un autre nom.
J'ai réalisé le code en commencant par faire faire ce que je voulais au programme pour la premiére personne de la liste, pour cette personne ca marche sans souci, mais maitenant je voudrais que avec ce même bouton il me fasse la même chose pour toute les personnes.
Seulement il ne veut pas et me dis "For crontrol variable already in use" (la variable de controle "for" est deja utilisé).
Je me demande donc si il est possible d'utiliser deux commandes "for" en même temps ou sil existe une autre technique pour que je parvienne à mes fins.
Une petite image pour illustrer tout ca:
http://img172.imageshack.us/my.php?image=tempbi6.jpg
et voici mon programme (version qui fonctionne pour une personne)
Voila j'ai un fichier de base, qui grace a un CommandButton va remplir un fichier annexe vierge en fonction de certains critéres puis finira en enregisrant ce fichier sous un autre nom.
J'ai réalisé le code en commencant par faire faire ce que je voulais au programme pour la premiére personne de la liste, pour cette personne ca marche sans souci, mais maitenant je voudrais que avec ce même bouton il me fasse la même chose pour toute les personnes.
Seulement il ne veut pas et me dis "For crontrol variable already in use" (la variable de controle "for" est deja utilisé).
Je me demande donc si il est possible d'utiliser deux commandes "for" en même temps ou sil existe une autre technique pour que je parvienne à mes fins.
Une petite image pour illustrer tout ca:
http://img172.imageshack.us/my.php?image=tempbi6.jpg
et voici mon programme (version qui fonctionne pour une personne)
Code:
Private Sub CommandButton1_Click()
Dim Cell As Range
Dim remplace As String, poste As String, explication As String, mois As String
Dim nom As String, prenom As String
Dim heure As Integer, jour As Integer
Workbooks.Open "c:\Documents And Settings\diaquint\My Documents\rpl.xls"
ActiveWindow.WindowState = xlMinimized
Workbooks("2007Schicht2modif1.xls").Activate
ActiveWindow.WindowState = xlMaximized
Set plage_date = Range("D9:AG9")
i=5
For Each Cell In plage_date
If Cell.Interior.ColorIndex = 6 Or Cell.Interior.ColorIndex = 7 Then
i=i+1
nom = Range("B9")
prenom = Range("B10")
Workbooks("rpl").Worksheets("sheet1").Range("C3") = prenom & " " & nom
Workbooks("rpl").Worksheets("sheet1").Range("C3").Borders.LineStyle = xLineStyleNone
heure = Cell.Value
jour = Cells(6, Cell.column)
Select Case ActiveSheet.Name
blablabla
End Select
Workbooks("rpl").Worksheets("sheet1").Range("E1") = mois
With Workbooks("rpl").Worksheets("sheet1").Range("E1").Font
.Bold = False
.Italic = False
.Underline = False
End With
Workbooks("rpl").Worksheets("sheet1").Cells(i, 1) = heure
Workbooks("rpl").Worksheets("sheet1").Cells(i, 2) = jour & " " & mois
remplace = InputBox("Entrez le nom de la personne remplacée le " & jour & " " & mois & " par " & prenom & " " & nom, "Remplacement")
Workbooks("rpl").Worksheets("sheet1").Cells(i, 3) = remplace
poste = InputBox("Entrez le poste", "Remplacement")
Workbooks("rpl").Worksheets("sheet1").Cells(i, 4) = poste
explication = InputBox("Entrez les explications du remplacement", "Remplacement")
Workbooks("rpl").Worksheets("sheet1").Cells(i, 5) = explication
End If
Next
Workbooks("rpl").Activate
Workbooks("rpl").SaveAs Filename:="remplacement " & mois & " " & nom
End Sub
Dernière édition:
