Private Sub CommandButton1_Click()
Dim Cellule As Range
For Each Cellule In Range("B2:B" & Range(("B65536")).End(xlUp).Row)
If Cellule = 1 Then Cellule.Offset(0, -1) = ""
Next
End Sub
bhbh, tu parles du fond ou de la forme ?
Pour le premier, il est normal que ce soit le même, on répond à la même interprétation.
Pour la deuxième, je ne sais pas comment interpréter ta question ?
Est-il condamnable de présenter les choses de manière différente ?
Ceci dit, dans le :
Code:
Option Explicit
Dim i As Integer
Dim cel As Range
Sub Del()
Application.ScreenUpdating = False
For i = 4 To Range("A65536").End(xlUp).Row
If Cells(i, 2) = 1 Then Cells(i, 1).ClearContents
Next
End Sub
peux-tu m'expliquer l'intérêt de "Dim cel as Range" ?