pb de msgbox

PascalXLD

XLDnaute Barbatruc

• 25 Avril 2005

• #2

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

 

Vote positif 0 Vote négatif

N

neness

Guest

• 25 Avril 2005

• #3

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

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 25 Avril 2005

• #4

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

 

Vote positif 0 Vote négatif

N

neness

Guest

• 25 Avril 2005

• #5

re

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

A bientôt

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 25 Avril 2005

• #6

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

 

Vote positif 0 Vote négatif

N

neness

Guest

• 25 Avril 2005

• #7

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

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 25 Avril 2005

• #8

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

 

Vote positif 0 Vote négatif

N

neness

Guest

• 25 Avril 2005

• #9

re

ok je vous envoie ça

merci

A bientôt

 

Vote positif 0 Vote négatif

N

neness

Guest

• 25 Avril 2005

• #10

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

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 25 Avril 2005

• #11

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

Cliquez pour agrandir...

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

Salut

 

Vote positif 0 Vote négatif

N

neness

Guest

• 25 Avril 2005

• #12

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

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 25 Avril 2005

• #13

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

Bonne soirée

 

Vote positif 0 Vote négatif

N

neness

Guest

• 25 Avril 2005

• #14

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

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 25 Avril 2005

• #15

re

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

 

Vote positif 0 Vote négatif