pb de msgbox

[neness]

bonjour à tous,

j'ai fait un programme ac plusieurs msgbox et l'ordi m'ouvre pas la bonne. Pk?



merci à toutes les réponses

A bientôt

 

[PascalXLD]

Bonjour

Sans plus de détail de ta part je dirai que cela ne vient pas du pc mais de celui qui a programmé et qui n'a pas mis le bon code au bon endroit ou qui n'appelle pas la bonne boite 😉

Bonne journée

Message édité par: Pascal76, à: 25/04/2005 16:03

 

[neness]

bonjour pascal76,

merci pour ta réponse

voilà quelques précisions

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 d'identification'
End If
Next
End Sub

le programme ouvre la msgbox 'erreur d'identification' alors que le nom d'utilisateur et le mot de passe sonr corrects. Je ne comprends pas pk?

A bientôt

 

[PascalXLD]

Re

Bah tout dépend si ton utilisateur se trouve en ligne 3 ou 4 il va d'abord te mettre un message d'erreur pour la ligne 2

Bon courage

 

[neness]

re

ok je vois ce que vous voulez dire.
comment est ce que je peux résoudre le pk?

A bientôt

 

[PascalXLD]

re

je verrais un truc du genre

Private Sub CmdButtonok_Click()
Dim i as Byte
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 d'identification'
End If
exit for
end if
Next
End Sub

 

[neness]

re

J'ai fait ce que vous veniez de m'écrire
là le pb c'est que plus aucune msgbox ne s'ouvre.
pk?

merci

A bientôt

 

[PascalXLD]

Re

le mieux serait d'envoyer un morceau du fichier avec des noms et des mots de passe bidon sinon on va tourner en rond

 

[neness]

re

ok je vous envoie ça

merci

A bientôt

 

[neness]

bonjour à tous

pour tous ceux qui souhaiterai m'aider , voilà le pb:
une msgbox s'ouvre mais c'est pas la bonne comparée à la demarche que je suis.

merci d'avance

A bientôt

 

[Hervé]

Bonjour

Une proposition :

Private Sub CommandButton1_Click()
Dim i As Byte

For i = 2 To 4
If boite_utilisateur = Range('a' & i).Text And boite_mot_de_passe = Range('b' & i).Text Then
MsgBox 'utilisateur identifié'
Exit Sub
End If
Next i

MsgBox 'erreur d'identification'
End Sub

le fin=4 est inutile ou alors il faut le déclarer, dim fin as byte

Salut

 

[neness]

bonjour hervé,

merci pour votre aide
mais ca marche toujours pas
il m'ouvre la msgbox erreur d'identification alors que l'utilisateur et mot de passe sont bons.
pk?


A bientôt

 

[PascalXLD]

Bah oui mais je le répètre joins ton fichier qu'on regarde sinon on va y passer la nuit

Bonne soirée

 

[neness]

rebonjour,

bah c'est ce que j'ai fait, je vous l'ai envoyé mais apparemment ca n'a pas marché.
alors pourriez m'expliquer comment on fait pr l'envoyer?


merci

A bientôt

 

[PascalXLD]

re

il faut joindre un fichier au format zip (minuscules) sans accent ni caractères spéciaux dans le nom