Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1167 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Problème dans ma boucle

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Problème dans ma boucle

n°1928011
hoob91
Posté le 30-09-2009 à 16:14:12  profilanswer
 

Bonjour à tous,
 
Je rencontre une difficulté dans la condition ci-dessous :
 
 
 
'------------------------Vérifiez qu'un seul champ soit rempli--------------------
   
 
 If NumAudit = "" And NomPilote = "" Or NumAudit <> "" And NomPilote <> "" Then
         MsgBox ("Veuillez ne remplir qu'un seul champ !" )
         
     '--Vider les champs------
       NumAudit.Clear
       NomPilote.Clear
           
      Else
      MsgBox ("Ok" )
      End If
 
 
Je souhaite passer à l'instruction suivante uniquement  si l'un des 2 champ soit rempli.
 
Merci de votre aide

mood
Publicité
Posté le 30-09-2009 à 16:14:12  profilanswer
 

n°1928035
Schnouf
A table !
Posté le 30-09-2009 à 18:06:45  profilanswer
 

Salut,

 

ben il suffit de mettre un ou exclusif :

 

If NumAudit <> "" xor NomPilote <> "" then
...

 


Dans ce cas, seulement si l'un des deux champs est rempli, on passera dans la boucle.


Message édité par Schnouf le 30-09-2009 à 18:08:45
n°1928129
hoob91
Posté le 01-10-2009 à 08:09:49  profilanswer
 


J'ai modifié la macro avec le xor :  
 
 
 
If NumAudit = "" And NomPilote = "" Xor NumAudit <> "" And NomPilote <> "" Then
         MsgBox ("Veuillez ne remplir qu'un seul champ !" )
         
     '--Vider les champs------
       NumAudit.Clear
       NomPilote.Clear
     
       
      Else
      MsgBox ("Ok" )
      End If
 
      Call Select_Auditeur
 
Mais si  par exemple je rempli les champs ou que les 2 soit vides il passe quand mm à  l'instruction suivante .
 
Merci

n°1928308
Schnouf
A table !
Posté le 01-10-2009 à 15:55:29  profilanswer
 

Tu n'as pas besoin de mettre tout ça, la simple condition NumAudit <> "" xor NomPilote <> "" suffira, en gros ça te donnera :

Code :
  1. If NumAudit <> "" xor NomPilote <> "" then
  2.          MsgBox ("Veuillez ne remplir qu'un seul champ !" )
  3.        
  4.      '--Vider les champs------
  5.        NumAudit.Clear
  6.        NomPilote.Clear
  7.    
  8.      
  9.       Else
  10.       MsgBox ("Ok" )
  11.       End If
  12.       Call Select_Auditeur


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Problème dans ma boucle

 

Sujets relatifs
[VBA] problème dans une boucle[Oracle & PHP] boucle if dans while : problème
Excel 2003, problème avec une boucle[vb] problème de boucle avec datagridview
Problème d'affichage double boucle (mysql_fetch_array)problème boucle while
[PHP} Probleme boucle[CS4] Lancement en boucle {résolu}
[PERL]probleme avec boucle For[supprimer]Problème de boucle dans un batch
Plus de sujets relatifs à : Problème dans ma boucle


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR