Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

vba excel problème pour une boucle

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
Y

yayanne

XLDnaute Nouveau
Bonjour,

Voila j'ai des clients qui passent des commandes mais quand ils arrivent ils doivent dire s'ils sont des anciens ou des nouveaux clients. Si par exemple ce sont des anciens ils doivent rentrer leur identifiant et leur mot de passe dans deux inputbox et si c'est le bon identifiant il peut accéder à la commande. j'ai donc fait une boucle qui permet de retrouver ces données dans la table Clients et de les copier sur la première ligne du tableau et ensuite de supprimer le doublon.



Mais le souci c'est que je n'arrive pas à faire que si l'identifiant et le mot de passe sont faux que le client ne puisse pas accéder à la Page Commande et reste sur la page Espace client sans pour autant que cela insère une ligne vide dans ma table Clients. Merci d'avance.
 
Trier par date Trier par votes
Re : vba excel problème pour une boucle

Bonjour yayanne

A premiere vue , la sortie de ton inputbox ne convient pas.
Il faudrait une sortie du style
si reponse de "input box" = "" then exit sub.
Avec un bout de ton code ,je pourrais mieux voir les problème;

Cordialement
 
Vote positif 0 Vote négatif
Re : vba excel problème pour une boucle

'ENTRER MOT DE PASSE ET IDENTIFIANT SI ANCIEN CLIENT
Sub deja_client()
i = 0
Dim vrai As Boolean
vrai = False
Reponse = MsgBox("Êtes-vous déjà client dans notre société ?", vbYesNo)
If Reponse = 6 Then
ligne = 10
Rep = InputBox(" Entrer votre identifiant")
Rep2 = InputBox("Entrer votre mot de passe")
While Sheets("Clients").Cells(ligne, 3) <> 0 And Sheets("Clients").Cells(ligne, 10) <> 0 ' Cette boucle Permet de rechercher l'identifiant de l'ancien client et copier la ligne correspondante avant l'insérer dans la 1ère ligne de la table Clients
cel = Sheets("Clients").Cells(ligne, 3)
cel2 = Sheets("Clients").Cells(ligne, 10)
If Rep = Sheets("Clients").Cells(ligne, 3) And Rep2 = Sheets("Clients").Cells(ligne, 10) And vrai = False Then

Sheets("Clients").Select 'Insérer une ligne dans la table client
Range("C10:L10").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove


For j = 3 To 10
cel3 = Worksheets("Clients").Cells(i + ligne, j).Value
Worksheets("Clients").Cells(10, j).Value = Worksheets("Clients").Cells(i + ligne + 1, j).Value
Next
vrai = True

Else

End If

ligne = ligne + 1

Wend
i = 11


cell = Worksheets("Clients").Cells(i, 3).Value ' Permet de rechercher la ligne que l'on a copié ci-dessus avant de la supprimer pour éviter les doublons
While Worksheets("Clients").Cells(i, 3).Value <> ""
cell = Worksheets("Clients").Cells(i, 3).Value
If Rep = Worksheets("Clients").Cells(i, 3).Value Then
For j = 3 To 10
Worksheets("Clients").Cells(i, j).Select
Selection.Delete Shift:=xlUp
Next
End If
i = i + 1
Wend

If Rep = "" Then Exit Sub 'La ligne suivante place la valeur saisie dans la cellule identifiant de la feuille active
Range("identifiant").Value = Rep
Sheets("Commande").Select
Else
Sheets("Clients").Select 'Insérer une ligne dans la table client avant d'ouvrir l'userform Nouveau client à partir de l'espace client
Range("C10:L10").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Sheets("Espace_clients").Select


nouveau_client.Show

End If

End Sub

Voici ce que j'ai mis alors la sa fonctionne mais j'ai un autre souci c'est que je veux que lorsque le client a mis un mauvais identifiant et un mauvais mot de passe qu'il reste sur la page Espace_client parce qu'avec cette boucle mm si sa ne bouge plus ma table client ben il a quand mm accès à la Commande !!

Merci d'avance
 
Vote positif 0 Vote négatif
Re : vba excel problème pour une boucle

Bonjour,
Essaies comme ceci par exemple
Code: 
Sub deja_client()
Dim Q1$, Q2$, c As Range
If MsgBox("Êtes-vous déjà client dans notre société ?", vbYesNo) = vbNo Then Exit Sub
With Sheets("Clients")
    Q1 = InputBox(" Entrer votre identifiant")
    If Q1 = "" Then Exit Sub
    Set c = .Range("C:C").Find(Q1) 'vérifie l'identifiant
    If c Is Nothing Then Exit Sub
    Q2 = InputBox("Entrer votre mot de passe")
    If Q2 = "" Then Exit Sub
    If CStr(.Cells(c.Row, 10)) <> Q2 Then Exit Sub 'vérifie le mot de passe
    'la suite du code
End With
End Sub
A+
kjin
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Y
  • Question Question
Microsoft 365 Filtre permanent ou recherche V
Réponses
4
Affichages
293
Omni
O
D
  • Question Question
XL 2013 Codage VBA
Réponses
6
Affichages
150
Oneida
N
  • Résolu(e)
Microsoft 365 Ecrire une formule de calcul en Vba Excel
24 25 26
Réponses
385
Affichages
14 K
TooFatBoy
H
  • Question Question
Autres mise a jour automatique feuille excel vba
Réponses
2
Affichages
679
HANN
H
F
  • Question Question
XL 2021 recherche vertical avec la terminaison d'une donnée
Réponses
1
Affichages
475
sylvanu
  • Question Question
XL 2019 Cherche Volontaires pour tester dll interface VBA Dotnet
Réponses
8
Affichages
590
patricktoulon
C
  • Question Question
XL 2021 VBA - créer une boucle de calcul pour remplir un tableau à partir de 2 autres sur une même feuille
Réponses
7
Affichages
733
clineM
C
  • Question Question
XL pour MAC Besoin d'aide pour calculer automatiquement un jour de livraison dans Excel
Réponses
10
Affichages
1 K
ArnaudSi
P
  • Question Question
XL 2021 Code VBA pour copier coller des données de cellules d'une feuille a une autre
2
Réponses
15
Affichages
1 K
lafleur
L
F
  • Question Question
XL 2010 Ne pas avoir à choisir entre valeur exacte ou approximative
Réponses
12
Affichages
1 K
Cousinhub
E
  • Question Question
XL 2013 Excel VBA - Problème lien hypertexte pour ouvrir un dossier
2
Réponses
19
Affichages
2 K
TooFatBoy
P
  • Résolu(e)
XL 2016 Masquer les caractères dans une boîte de dialogue de saisie de mot de passe Excel
Réponses
8
Affichages
1 K
AR MOR
A
G
  • Question Question
Microsoft 365 Reconstitution stock a date - besoin d'aide
Réponses
0
Affichages
554
GregH
G
J
  • Question Question
XL 2016 Base de travail CRM pour commerciaux
Réponses
5
Affichages
1 K
dysorthographie
  • Question Question
Autres [RÉSOLU] Excel pour gérer une base de données ?
Réponses
10
Affichages
823
dysorthographie
S
  • Résolu(e)
XL 2019 probleme avec une vba
2
Réponses
21
Affichages
2 K
herve62
S
  • Question Question
XL 2016 Associer une commande fournisseur à une commande client
Réponses
0
Affichages
1 K
SPAL
S
T
  • Question Question
XL pour MAC Recherche de mots clefs dans une cellule Texte
Réponses
2
Affichages
1 K
Tsr75a
T
M
  • Question Question
Microsoft 365 EXCEL - Combiner deux listes pour créer une liste déroulante dynamique
Réponses
1
Affichages
482
Matprobexcel
M
Créez votre propre moteur de recherche pour vos recettes de cuisine en HTML !
Réponses
1
Affichages
635
dysorthographie
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…