Z
Zebi
Guest
Cette macro se plante à l'instruction Cellule.Offset sur une erreur 424 ?
For i = 1 To 100
adra = "d" & i
Range(adra).Select
sect = ActiveCell.Value
ctr = i & ":" & i
If sect = "LUNDI" Then
Rows(ctr).Select
Selection.Insert Shift:=xlDown
ActiveCell = sect
cellule.Offset(-1, 0).Value = "Tot/sem"
Selection.Font.Bold = True
End If
Next
Merci de votre aide
For i = 1 To 100
adra = "d" & i
Range(adra).Select
sect = ActiveCell.Value
ctr = i & ":" & i
If sect = "LUNDI" Then
Rows(ctr).Select
Selection.Insert Shift:=xlDown
ActiveCell = sect
cellule.Offset(-1, 0).Value = "Tot/sem"
Selection.Font.Bold = True
End If
Next
Merci de votre aide