[Catégorie modifiée VB6 -> VBA] VBA Ignorer une cellule commencant par

Résolu
Signaler
Messages postés
28
Date d'inscription
jeudi 5 mai 2011
Statut
Membre
Dernière intervention
18 mai 2011
-
Messages postés
28
Date d'inscription
jeudi 5 mai 2011
Statut
Membre
Dernière intervention
18 mai 2011
-
Bonjour,

Je travaille sur Excel 2007.
Voici mon problème, étant débutant en VBA, je cherche à lister des valeurs en ignorant deux types : celles dont les cellules sont vides, et celles dont les cellules commencent par "TR" par exemple "TR*", "TRACTEUR", "TRUITE", "TR-6534"

Pour les cellules vides, c'est bon j'ai trouvé :
ValeurRecherche.Value <> ""

Par contre pour les "TR", c'es la folie! J'ai essayé:
ValeurRecherche.Value <> "TR*"
ValeurRecherche.Value <> like "TR*"
ValeurRecherche.Value <> like "TR"*
ValeurRecherche.Value <> like "TR#"
ValeurRecherche.Value <> like "TR"#
et encore bien d'autres avec des parenthèses et tout le tralala...

Mon texte se présenterait sous cette forme:

For Each ValeurRecherche In Application.Sheets(ActiveSheet.Name).Range(RangePlage)
If Not MonDico.Exists(ValeurRecherche.Value) And ValeurRecherche.Value <> "" And ValeurRecherche.Value <> "TR*" Then
MonDico.Add ValeurRecherche.Value, ValeurRecherche.Value
End If

Mais ça marche pas! :/
Si vous avez une idée, je suis preneur!

Merci bien et bonne journée!

2 réponses

Messages postés
28
Date d'inscription
jeudi 5 mai 2011
Statut
Membre
Dernière intervention
18 mai 2011

En fait je n'ai pas réussi à faire fonctionner votre réponse mais j'ai trouvé :
And Not ValeurRecherche.Value Like "TR*"

Merci beaucoup quand même et bonne soirée!
Messages postés
420
Date d'inscription
vendredi 17 novembre 2006
Statut
Membre
Dernière intervention
15 juillet 2014
9
Bonjour,

Vous y étiez presque
If Not (ValeurRecherche.Value Like "TR*") Then