Projet VBA

[ISA]

bonjour,

merci à tous ceux qui m'ont aidé sur le sujet VBA et programmation en VBA d'un diagramme de GANTT.

j'ai néanmoins encore des pb.

Pourquoi la msgbox ne s'ouvre pas?

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

merci
à bientôt

 

[Dan]

Bonjour,

Remplace

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

par

MsgBox 'utilisateur_identifié'
Else: MsgBox 'erreur_identification'

Bon ap.

😉

 

[Creepy]

Hello à tous,

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

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

 

[ISA]

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

 

[Creepy]

Hello

Tu peux mettre un exemple en PJ stp ?

Merci

++

Creepy

 

[ISA]

rebonjour,

voilà ce que vous vouliez

merci

à bientôt