condition d'effacement

[polik]

Bonjour à tous,

J'ai beau chercher mais je ne trouve pas de macro pour effacer le contenu d'une ligne si la cellule contient le mot "TEST"

simplement

si dans cellule a6 alors on efface tout le contenu de la ligne 6

le mot "test" apparaîtra seulement dans la colonne A, mais devra disparaître suite à la macro

Merci à tous

 

[Baside]

Re : condition d'effacement

Bonsoir le Forum,

A tester

If Cells(6, 1) = "test" Then
Rows("6:6").ClearContents
End If

Amicalement, Hervé.

 

[dixit]

Re : condition d'effacement

bonsoir,
il faut un test : IF (cells( ... = "TEST")
pour la suite je propose une sélection de la ligne, puis l'effacement total et remettre TEST dans la cellule (j'avais mal lu : il ne faut pas remettre le mot TEST)
faire un enregistrement et si problème revenir
ou bien tester la dernière colonne et effacer de B à la dernière mais pour cela, l'enregistrement ne fonctionnera pas.

 

[dixit]

Re : condition d'effacement

bonsoir,
voici une proposition
la macro traite le mot en majuscules et en minuscules.

 

[polik]

Re : condition d'effacement

merci à vous

j'essaie cela et je vous reviens

 

[polik]

Re : condition d'effacement

c'est trop cool je suis bien content