Projet VBA

Dan

XLDnaute Barbatruc

Membre du Staff

Modérateur

• 25 Avril 2005

• #2

Bonjour,

Remplace

MsgBox ('utilisateur_identifié')
Else: MsgBox ('erreur_identification')

par

MsgBox 'utilisateur_identifié'
Else: MsgBox 'erreur_identification'

Bon ap.

😉

 

Vote positif 0 Vote négatif

C

Creepy

XLDnaute Accro

• 25 Avril 2005

• #3

Hello à tous,

Et plutôt d'imbriquer les si fait ca :

Code:

Private Sub CmdButtonok_Click() 
fin = 4 
For i = 2 To fin 
If boite_utilisateur = Range('a' & i).Value and boite_mot_de_passe = Range('b' & i).Value Then 
MsgBox ('utilisateur_identifié') 
Else: MsgBox ('erreur_identification')  
End If 
Next 
End Sub

C'est plus propre avec un ET

++

Creepy

 

Vote positif 0 Vote négatif

I

ISA

Guest

• 25 Avril 2005

• #4

bonjour à tous,

encore une petite question sur mon projet: pourquoi il m'ouvre la msgbox 'erreur d'identification' alors que les identifiants sont bons?

Private Sub CmdButtonok_Click()
fin = 4
For i = 2 To fin
If boite_utilisateur = Range('a' & i).Value And boite_mot_de_passe = Range('b' & i).Value Then
MsgBox 'utilisateur_identifié'
Else: MsgBox 'erreur_identification'
End If
Next
End Sub

merci

à bientôt

 

Vote positif 0 Vote négatif

C

Creepy

XLDnaute Accro

• 25 Avril 2005

• #5

Hello

Tu peux mettre un exemple en PJ stp ?

Merci

++

Creepy

 

Vote positif 0 Vote négatif

I

ISA

Guest

• 25 Avril 2005

• #6

rebonjour,

voilà ce que vous vouliez

merci

à bientôt

 

Vote positif 0 Vote négatif