Fonction IF THEN

Pierrot93

XLDnaute Barbatruc

• 5 Août 2011

• #2

Re : Fonction IF THEN

Bonjour,

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

Code:

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
@+

 

Vote positif 0 Vote négatif

E

Egruat

XLDnaute Occasionnel

• 5 Août 2011

• #3

Re : Fonction IF THEN

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 5 Août 2011

• #4

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....

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 5 Août 2011

• #5

Re : Fonction IF THEN

Re,

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

 

Vote positif 0 Vote négatif

E

Egruat

XLDnaute Occasionnel

• 5 Août 2011

• #6

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?

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 5 Août 2011

• #7

Re : Fonction IF THEN

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

teste peut être ca

Code:

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

ou ceci :

Code:

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

 

Vote positif 0 Vote négatif