Différence inputbox majuscule/minuscule

[barry white]

Lut a tous,

Je me prends la tete avec une histoire de majscule :

voici ma macro (simplifié) :

Dim TYPprst As String

TYPprst = InputBox("veillez saisir le type prestation")

If TYPprst = "TOTO" Then

Application.Run "PERSO.XLS!TOTO"
     
else

Application.Run "PERSO.XLS!TOTO1"

end if

Quand je saisi etoto en minuscule il execute la macro "toto1" au lieu de la macro "toto"

Donc le fait de ne pas saisir toto majuscule, la macro considére que c'est autres choses.

Qu'est ce qu'il faut ajouter dans le code pour que la macro ne fait pas de controle sur la majuscule/minuscule.

merci!

 

[Robert]

Re : Différence inputbox majuscule/minuscule

Bonsoir Barry White, bonsoir le forum,

Essaie comme ça :

If UCase(TYPprst) = "TOTO" Then

 

[Roland_M]

Re : Différence inputbox majuscule/minuscule

bonsoir

Dim TYPprst As String
TYPprst = InputBox("veillez saisir le type prestation")
If UCase(TYPprst) = "TOTO" Then
Application.Run "PERSO.XLS!TOTO"
ElseIf UCase(TYPprst) = "TOTO1" Then
Application.Run "PERSO.XLS!TOTO1"
else
msgbox "Erreur de saisie !?"
End If

 

[barry white]

Re : Différence inputbox majuscule/minuscule

Nikel Messieurs!

Merci à vous ca passe nikel merci!!