un mot=ensemble de mots

[stef51]

Bonjour Forum,

J'utilise une macro qui contient:

If Range("A" & Compteur).Value = "voici le contenu de la cellule la plus longue de la region septentrionale" Then Rows(Compteur & ":" & Compteur).Delete

Est il possible au lieu de copier l'integralité de la cellule (voici le contenu de la cellule la plus longue de la region septentrionale) d'y inscrire un seul mot par exemple (septentrionnale) ou (longue) qui permettrait de repondre à la requete de la même maniere ?

Si oui comment le transcrire ?

Merci de votre aide

 

[Robert]

Salut Stef, salut le forum,

Essaie comme ça :

With Range("A" & Compteur)
'définit la recherche par rapport au mot clé (ici "septentrionale", à adapter)
Set cherch = .Find("septentrionale", LookIn:=xlValues)
'condition : si trouvé
If Not cherch Is Nothing Then
Range("A" & Compteur).EntireRow.Delete 'efface la ligne
End If
End With

À plus,

Robert

 

[stef51]

Genial robert !
Merci pour l'explication claire
J'avais contourné le pb en rajoutant quelques lignes à ma macro simplement en faisant travailler l'enregistreur de macro en selectionnant à la souris edition/Remplacer LeMot* par le Mot et hop !
En fait il y avait trop de mot et la commande ne fonctionnait pas
Je vais integrer ta ligne
C'est bien plus pro.