Problème dans ma boucle

Problème dans ma boucle - VB/VBA/VBS - Programmation

Marsh Posté le 30-09-2009 à 16:14:12    

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

Reply

Marsh Posté le 30-09-2009 à 16:14:12   

Reply

Marsh Posté le 30-09-2009 à 18:06:45    

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
Reply

Marsh Posté le 01-10-2009 à 08:09:49    


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

Reply

Marsh Posté le 01-10-2009 à 15:55:29    

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

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed