Sub Effacer()
Columns("A:A").Select
Selection.ClearContents
End Sub
Bonjour
voici un fichier a chaque 1 dans la colonne B je veux effacer le nom dans le colonne A
a+
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
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