Résolu Excel/VBA Ignorer texte commençant par

[Guillaume831]

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 <> "" [color=0061ff]And ValeurRecherche.Value <> "TR*"[/color] 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!

 

[zeb]

Salut TRuillaume <--- ah, ah ! faut t'ignorer !!!

(je recommence)

Salut Guillaume et bienvenue.

Alors tout d'abord, va me lire le règlement. Apprends-y que toute pièce de code doit être présentée à l'aide de la balise

. C'est non négociable. [:zeb:4] Modifie ton message en conséquence.

Ensuite, apprends ou révise tes conditions. L'opérateur de négation en VB, ça n'est pas <>. C'est [b]Not[/b].

Ta condition devient :[cpp]ValeurRecherche.Value <> "" And Not ValeurRecherche.Value Like "TR*"[/cpp]
C'est bête, t'avais fait le plus dur, c'est-à-dire d'avoir chercher à utiliser [b]Like[/b].

:o

 

[Guillaume831]

Meilleure réponse sélectionnée par Guillaume831.

 

[Guillaume831]

Salut TRuillaume <--- ah, ah ! faut t'ignorer !!!

(je recommence)

Salut Guillaume et bienvenue.

Alors tout d'abord, va me lire le règlement. Apprends-y que toute pièce de code doit être présentée à l'aide de la balise

. C'est non négociable. [:zeb:4] Modifie ton message en conséquence.

Ensuite, apprends ou révise tes conditions. L'opérateur de négation en VB, ça n'est pas <>. C'est [b]Not[/b].

Ta condition devient :[cpp]ValeurRecherche.Value <> "" And Not ValeurRecherche.Value Like "TR*"[/cpp]
C'est bête, t'avais fait le plus dur, c'est-à-dire d'avoir chercher à utiliser [b]Like[/b].

:o[/quotemsg]

Premièrement merci beaucoup Zeb! Et secondement je m'en vais de ce pas mettre le post en résolu et changer le code comme tu me l as demandé! :)

Bonne soirée l'ami!