Pro majuscule valeur Combo versu Range

[Temjeh]

Bonjour à tous et merci pour votre aide!

J'ai juste une petit prob avec des majuscules:

J'ai ceci:

...bla ...bla
For compteur = 1 To DerLigne
If Range('E' & compteur).Text = ComboBox1.Text Then
...bla ...bla

Le prob est que si range an'a pas de majuscule et que la valeur de Combobox1 en a une ...ben la loope cesse. Comment lui dire que temjeh = Temjeh


J'ai essayé ceci en vain:

For compteur = 1 To DerLigne
If Range('E' & compteur).Text = ComboBox1.Text Then

Temjeh
Merci infiniement

 

[_Thierry]

Bonjour Temjeh, le Forum

Deux possibilités pour les majuscules :

1) En Top de Module :

Option Compare Text

(Sera applicable à tous les codes du modules en question)


2) En cours de Run Time du Code :

If Ucase(Range('E' & compteur).Text) = Ucase(ComboBox1.Text)


Une autre variante :

If Ucase(Cstr(Range('E' & compteur).Text)) = Ucase(Cstr(ComboBox1.Text))

A noter que la conversion en String par Cstr est parfois indispensable comme par exemple activer des Feuilles avec leur noms dans une ComboBox...

Bon Dimanche
[ol]@+Thierry[/ol]

 

[Hervé]

bonjour temjeh, le forum

essaye de placer en tete de ton module : Option Compare Text

cette syntaxe permet de faire des comparaisons sans tenir compte de la casse.

salut

Edition : oups...salut l'ami thierry 🙂

Message édité par: hervé, à: 29/01/2006 14:24

 

[_Thierry]

Salut cher ami Hervé !

Sous réserve que celà soit la demande de Temjeh, car même si la condition n'est pas remplie en ne trouvant pas à cause de la casse, ce ne devrait pas stopper son Loop ...

Bon Aprèm
[ol]@+Thierry[/ol]

 

[Temjeh]

Merci beaucoup pour votre aide rapide

Il y a bug pour les 3 codes!!!
Je copie et colle If Ucase(Cstr(Range('E' & compteur).Text)) = Ucase(Cstr(ComboBox1.Text))
mais il me marque (code reste rouge une erreur de syntaxe. Je ne sais pas si ca change quelques choses mais ce code est sous un CommandButton. Aussi Option Compare Text ne fait rien.

Merci j'attend vos commentaires

Temjeh

 

[_Thierry]

Re Temjeh

Pour les If... Arf ben j'ai pas copié les 'Then' pour ne t'indiquer que la partie qui interressait pour les majuscules / minuscules lol

Pour l'option Compare Text elle fonctionne aussi bien dans un Private Module de UserForm que dans un Module Publique... Donc pas de problème si ce statememnt est bien fait en Top de module en dehors de toute procédure ! (comme Option Explicit ou Option base 1 )

Bon Courage
[ol]@+Thierry[/ol]

 

[Temjeh]

Pour allégé ce site j'ai mis le code total ici:

http://pages.videotron.com/temjeh/ne_plus.html

Merci

Temjeh

 

[Temjeh]

Milles excuses tu as raison _Thierry

J'ai honte de moi il manquais un THEN

Je recommence plus

Surtout que j'ai mis en doute vos(aussi celle de Hervé) compétence

Temjeh

Bravo! et merci

 

[_Thierry]

Re Temjeh

Ah bon !!! lol

Je viens de tester ton code sur Videotron avec :

If UCase(Range('E' & compteur).Text) = UCase(ComboBox1.Text) Then

ça semble passer, of course je n'ai pas refait le UserForm...

Par contre si Ti passe par là, il va dire que tu fais dans le Western Spaguetti avec tous tes Goto !!! lol

Bon Dimanche
[ol]@+Thierry[/ol]

 

[Temjeh]

Rebonjour

J,ai justement un gif pour ceux qui ne save pas gestionner les erreurs.



Temjeh