Private Sub CommandButton2_Click()
Dim nbpers, i, ligne, j, colused, colfin As Integer
Dim cel As Range, flag As Boolean
Dim dateJour As Date
'colused = variable utilisé pour la colonne used
'colfin = variable qui récupère la colonne de la derniere cellule de la ligne concerné
Sheets("Estimation détaillée").Select
Range("B1").Value = "nous sommes le : "
Range("B2").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
Columns("A:B").EntireColumn.AutoFit
nbpers = InputBox("combien de personne y a t-il sur le projet ")
ligne = 8
For i = 1 To nbpers
'colonne used
flag = False
dateJour = Range("B2").Value
'recherche sur la ligne des jours de la date d'aujourd'hui
For Each cel In Range("F2:IV2")
If cel.Value = dateJour Then
flag = True
cel.Select
Exit For
End If
Next
If flag = True Then ' La date a été trouvée
colused = ActiveCell.Column
Range("D" & ligne).FormulaR1C1 = "=Sum(RC[2]:RC[" & colused - 4 & "])"
'même formule pour les 13 autres tâches
Range("D" & ligne).Select
Selection.AutoFill Destination:=Range("D" & ligne, "D" & ligne + 13), Type:=xlFillDefault
End If
'
'colonne raf
'selection de la dernière case de la ligne pour récupérer la colonne
Range("IV1").Select
colfin = ActiveCell.Column
MsgBox colfin
MsgBox colused
'For j = colused - 4 To colfin
'Range("C" & ligne).Value = Range("C" & ligne).Value + Cells(ligne, j).Value
'Next
Range("C" & ligne).Select
ActiveCell.FormulaR1C1 = "=SUM(RC[" & colused - 2 & "]:RC[" & colfin & "])"
'
ligne = ligne + 18
Next
End Sub