si les 2 premiers caractères = les 2 derniers alors msgbox dans Label

[Temjeh]

Bonsoir à tous

Me revoilà avec une petite question simple.
Pourquoi ceci n'est pas bon

If Left(Label2, 1) = Right(Label2, 1) And Left(Label2, 2) = Right(Label2, 2) Then
MsgBox "Dernier"
Exit Sub
else

J'importe les données d'une cell dans Label et je voudrais que si les 2 premiers caractères = les 2 derniers alors msgbox et exit.

Quand mon Label indique genre 65 de 65 ...exit
Merci de vos suggestions

Temjeh

 

[lacorse33]

Re : si les 2 premiers caractères = les 2 derniers alors msgbox dans Label

Bonsoir Temjeh,

Je te propose d'écrire le code comme cela :

If Left(Label2, 2) = Right(Label2, 2) Then
MsgBox ("2 premiers = 2 derniers")
Exit Sub
End If

A+

 

[Mytå]

Re : si les 2 premiers caractères = les 2 derniers alors msgbox dans Label

Salut Temjeh

Essaye avec Caption

With Label1
If Left(.Caption, 2) = Right(.Caption, 2) Then
MsgBox "Dernier"
Exit Sub
Else
'....
End If
End With

Mytå

 

[Temjeh]

Re : si les 2 premiers caractères = les 2 derniers alors msgbox dans Label

Merci beaucoup

Les 2 fonctionnes et pour Mytå j'aime aussi la facon de faire avec with je vais m'y mettre

With sheets(1) ...
Whit Label1 ...
With Textbox1

Merci a vous deux j'apprend beaucoup

Temjeh