Bonjour,
Je souhaiterais supprimer tout le contenu d'une cellule qui contiendrait RAN ou alors VE.
La rendre vide en d'autre terme.
La seul macro que j'ai est la suivante :
Sub Cellule()
Dim a As Long
Dim b As Long
a = Range("C65000").End(xlUp).Row
For b = a To 1 Step -1
If Cells(b, 1).Value = "RAN" Then
Rows(b).Delete
End If
Next b
End Sub
Mais cela ne marche pas...
PS : mon VE ou RAN se trouve dans la colonne C ou D...
mais là ça ne fonctionne pas...
Merci beaucoup.
Max
Je souhaiterais supprimer tout le contenu d'une cellule qui contiendrait RAN ou alors VE.
La rendre vide en d'autre terme.
La seul macro que j'ai est la suivante :
Sub Cellule()
Dim a As Long
Dim b As Long
a = Range("C65000").End(xlUp).Row
For b = a To 1 Step -1
If Cells(b, 1).Value = "RAN" Then
Rows(b).Delete
End If
Next b
End Sub
Mais cela ne marche pas...
PS : mon VE ou RAN se trouve dans la colonne C ou D...
mais là ça ne fonctionne pas...
Merci beaucoup.
Max