B3 si b2

[Didier]

Bonsoir le forum

je n'arrive pas à faire tourler cette boucle,quelqu'un pourrais t-il me dire
ce qui ne marche pas,il bloque à la ligne Worksheets
Dim I As Integer

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("b2").Value = "s4" Then
For I = 1 To 30
Worksheets("feuil1").Cells(I, 3) = "1:00"
Next I
End If
End Sub
Merci
Didier

 

[Didier]

Re bonsoir
excusez moi j'avais tapé ("feuil11") à la place de("feuil1") dans le VB
bonne soirée
Didier