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

Résolu
Guillaume831 Messages postés 28 Date d'inscription jeudi 5 mai 2011 Statut Membre Dernière intervention 18 mai 2011 - 5 mai 2011 à 12:35
Guillaume831 Messages postés 28 Date d'inscription jeudi 5 mai 2011 Statut Membre Dernière intervention 18 mai 2011 - 5 mai 2011 à 17:25
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

Guillaume831 Messages postés 28 Date d'inscription jeudi 5 mai 2011 Statut Membre Dernière intervention 18 mai 2011
5 mai 2011 à 17:25
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!
3
foliv57 Messages postés 420 Date d'inscription vendredi 17 novembre 2006 Statut Membre Dernière intervention 15 juillet 2014 9
5 mai 2011 à 13:22
Bonjour,

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