Controle Clé RIB dans Userform

[Herlay]

Bonjour le Forum,
J'ai récupéré un code pour une vérification de clé Rib, il fonctionne très bien, mais la saisie des infos se fait dans une feuil!.
J'aimerais que la saisie se fasse dans un userform, et , en cas d'erreur, le Label1 ("Rib erroné") s'affiche.
J'ai commencé le userform (fichier joint). mais le code du calcul de la clé RIb est trop complexe.
Merci d'avance pour votre aide.
Herlay

 

[Papou-net]

Re : Controle Clé RIB dans Userform

Bonjour Herlay,

Voici ton fichier modifié complété.

Espérant avoir répondu.

Cordialement.

 

[pierrejean]

Re : Controle Clé RIB dans Userform

Bonjour Herlay

Teste:

Private Sub TextBox4_AfterUpdate()
If CInt(TextBox4) = TestCleRIB(TextBox1, TextBox2, TextBox3, TextBox4) Then
  Label1.Visible = False
Else
  Label1.Visible = True
End If
End Sub

Edit :Salut Papou-net
PS: As-tu controlé ton code ?

 

[Herlay]

Re : Controle Clé RIB dans Userform

Bonjour Papou-net, PierreJean,
Merci à vous deux, les 2 solutions me conviennent.
cordialement.
Herlay

 

[Papou-net]

Re : Controle Clé RIB dans Userform

Bonjour pierrejean,

Oui, bien sûr que je l'ai testé : pourquoi, le code ne fonctionne pas chez toi ?

Cordialement.

PS : j'aime ta méthode d'affichage/masquage du Label1 : pas besoin de modifier sa propriété Caption. Par contre, ta proposition ne fonctionne que si l'on renseigne TextBox4 en dernier.

 

[pierrejean]

Re : Controle Clé RIB dans Userform

Re

Toutes mes excuses Papou-net
J'ai completement foiré dans mes premiers tests
Ta solution est indiscutablement la meilleure