Fonction IF THEN

[Egruat]

Bonjour,

Ci-joint le fichier sur lequel je travaille.

Je souhaiterai utiliser en VBA la fonction IF THEN en demandant de vérifier la valeur de chaque cellule de la colonne A. Dès qu'il y a la valeur VALUE, alors il faut sélectionner la ligne et tout le bas de la feuille, puis tout effacer.

Quelqu'un pourrait m'aider ?

Par avance merci !!

Cordialement.😎

 

[Pierrot93]

Re : Fonction IF THEN

Bonjour,

pas ouvert tonfichier, mais la méthode "find" serait peut être plus efficace, à voir...

Dim x As Range, c As Range
Set c = Range("A65536").End(xlUp)
Set x = Columns(1).Find("VALUE", c, xlValues, xlWhole, , , False)
If Not x Is Nothing Then Range(x, c).EntireRow.ClearContents

bon après midi
@+

 

[Egruat]

Re : Fonction IF THEN

Merci ! Mais cela n'efface pas toutes les lignes jusqu'à la dernière...(dans le cas de longue série)

 

[Pierrot93]

Re : Fonction IF THEN

Re,

de la ligne ou a été trouvé la première valeur "VALUE", jusqu'à la dernière ligne renseignée de la colonne A....

 

[Pierrot93]

Re : Fonction IF THEN

Re,

A noter d'ailleurs, dans ton fichier les lignes 29 à 64 sont effacées....

 

[Egruat]

Re : Fonction IF THEN

okay, mais serait-il possible d'effacer toutes les lignes de la première ligne où il y a la cellule VALUE à la dernière ligne?

 

[Pierrot93]

Re : Fonction IF THEN

Re,
bah.. c'est ce que cela fait... quelque chose doit m'échapper...

teste peut être ca

If Not x Is Nothing Then Range(x, c).EntireRow.Delete

ou ceci :

If Not x Is Nothing Then Range(x, range("A" & rows.count).EntireRow.ClearContents