Aller au contenu

probleme condition if else


Messages recommandés

Posté(e)

Bonjour,

Je dois pouvoir lancer un programme lorsque x= ch9 et que optionbutton1 = true sinon il lance un autre programme. Le problème c'est qu'il lance les 2 programmes..

 

Private Sub CommandButton1_Click()

Dim Nom As String

Dim x As String

Nom = ThisDrawing.Name

 

x = Left(Nom, 3)

 

If x = "CH9" And OptionButton1 = True Then

 

Call prog_etiqCAB

Else

Call prog_PLT_traceur

End If

 

si x n'est pas égale à ch9 et que OptionButton1 = alors il doit lancer prog_PLT_traceur.

 

Merci pour votre aide

Posté(e)

Bonsoir,

 

j'ai pour habitude en vba de ne pas trop utiliser les fonctions if else avec plusieurs conditions, je pense qu'il faut plus choisir la fonction 'Select case' qui est plus simple :

 

select case x

case "CH9"

select case OptionButton1

case true

Call prog_etiqCAB

case else

end select

 

case "Toto"

 

case else

select case OptionButton1

case true

Call prog_PLT_traceur

case else

end select

 

end select

 

j'ai fait les quelques lignes de tête mais ça devrait te donner la trame de base pour comprendre le fonctionnement de la fonction.

 

slt

 

 

Créer un compte ou se connecter pour commenter

Vous devez être membre afin de pouvoir déposer un commentaire

Créer un compte

Créez un compte sur notre communauté. C’est facile !

Créer un nouveau compte

Se connecter

Vous avez déjà un compte ? Connectez-vous ici.

Connectez-vous maintenant
×
×
  • Créer...

Information importante

Nous avons placé des cookies sur votre appareil pour aider à améliorer ce site. Vous pouvez choisir d’ajuster vos paramètres de cookie, sinon nous supposerons que vous êtes d’accord pour continuer. Politique de confidentialité