Supprimer cellule si contient...

[Sph1nxXx]

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

 

[Sph1nxXx]

Re : Supprimer cellule si contient...

Ne fonctionne toujours pas...
Je comprends pas on dirait que la macro ne correspond à rien quand je l'exécute il ne se passe rien du tout!
J'ai même mis des cellules avec RAN et VE seulement (sans rien derrière) mais même ça ne fonctionne pas...

 

[Sph1nxXx]

Re : Supprimer cellule si contient...

En fin de compte j'ai trouvé une manière bien plus simple
faire une recherche RAN/********
et remplacer tout par un espace...
merci quand même du coup de main 🙂

 

[Pierrot93]

Re : Supprimer cellule si contient...

Bonjour,

essaye peut être avec l'opérateur "like" :

Exemple pour la cellule A1

If Cells(1, 1).Value Like "*RAN*" Then Cells(1, 1).ClearContents

bonne fin d'après midi
@+

 

[Sph1nxXx]

Re : Supprimer cellule si contient...

Bonjour,

Je profite que le sujet soit ouvert pour poser une autre question
j'ai dans mes cellules plusieurs informations qui ne m'intéresse pas et contenu dans ces cellules l'information qui m'intéresse.

les seuls choses qui m'intéresses sont seulement celle qui commence par M0,P0, ED, et AAV...

J'ai utiliser la fonction dissocier mais vu que le nombre de mot précédent n'est jamais le même je suis obliger de faire un tri par la suite...

En faite dans le fichier joint (je fais ça maintenant je joint les fichiers ^^)
Il faudrait que XLD1 XLD2 etc. reste en colonne B mais que tout ce qui commence par M0 ED P0 ou AAV aille en colonne C et le reste s'efface...

je ne sais même pas si c'est possible...
Merci quand même pour ceux qui trouverons ou se pencherons dessus