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.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
at
tunisieno a couché sur son écran :
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
essaye avec
if x = "CH9" then if optionbutton=1 then Call prog_etiqCAB
else Call prog_PLT_traceur end if
tunisieno a couché sur son écran :
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
essaye avec
if x = "CH9" then
if optionbutton=1 then Call prog_etiqCAB
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
essaye avec
if x = "CH9" then if optionbutton=1 then Call prog_etiqCAB
else Call prog_PLT_traceur end if
tunisieno
at a écrit le 13/12/2009 à 19h00 :
tunisieno a couché sur son écran :
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
essaye avec
if x = "CH9" then if optionbutton=1 then Call prog_etiqCAB
else Call prog_PLT_traceur end if
Merci pour ta reponse j'ai essaye ton code sa lance le 2eme programme si x<>CH9 sinon lorsque x=CH9 le programme prog_etiqCAB ne se lance pas.
at a écrit le 13/12/2009 à 19h00 :
tunisieno a couché sur son écran :
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
essaye avec
if x = "CH9" then
if optionbutton=1 then Call prog_etiqCAB
else
Call prog_PLT_traceur
end if
Merci pour ta reponse
j'ai essaye ton code sa lance le 2eme programme si x<>CH9 sinon lorsque x=CH9 le programme prog_etiqCAB ne se lance pas.
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
essaye avec
if x = "CH9" then if optionbutton=1 then Call prog_etiqCAB
else Call prog_PLT_traceur end if
Merci pour ta reponse j'ai essaye ton code sa lance le 2eme programme si x<>CH9 sinon lorsque x=CH9 le programme prog_etiqCAB ne se lance pas.
at
tunisieno avait prétendu :
Merci pour ta reponse j'ai essaye ton code sa lance le 2eme programme si x<>CH9 sinon lorsque x=CH9 le programme prog_etiqCAB ne se lance pas.
Et optionbutton=1 également ?
Voici un exemple proposé par MS:
And, opérateur, exemple Cet exemple utilise l'opérateur And pour réaliser une conjonction logique sur deux expressions.
Dim A, B, C, D, MyCheck A = 10: B = 8: C = 6: D = Null ' Initialise les variables. MyCheck = A > B And B > C ' Renvoie True. MyCheck = B > A And B > C ' Renvoie False. MyCheck = A > B And B > D ' Renvoie Null. MyCheck = A And B ' Renvoie 8 (comparaison au niveau du bit).
tunisieno avait prétendu :
Merci pour ta reponse
j'ai essaye ton code sa lance le 2eme programme si x<>CH9 sinon lorsque x=CH9
le programme prog_etiqCAB ne se lance pas.
Et optionbutton=1 également ?
Voici un exemple proposé par MS:
And, opérateur, exemple
Cet exemple utilise l'opérateur And pour réaliser une conjonction
logique sur deux expressions.
Dim A, B, C, D, MyCheck
A = 10: B = 8: C = 6: D = Null ' Initialise les variables.
MyCheck = A > B And B > C ' Renvoie True.
MyCheck = B > A And B > C ' Renvoie False.
MyCheck = A > B And B > D ' Renvoie Null.
MyCheck = A And B ' Renvoie 8 (comparaison au niveau du bit).
Merci pour ta reponse j'ai essaye ton code sa lance le 2eme programme si x<>CH9 sinon lorsque x=CH9 le programme prog_etiqCAB ne se lance pas.
Et optionbutton=1 également ?
Voici un exemple proposé par MS:
And, opérateur, exemple Cet exemple utilise l'opérateur And pour réaliser une conjonction logique sur deux expressions.
Dim A, B, C, D, MyCheck A = 10: B = 8: C = 6: D = Null ' Initialise les variables. MyCheck = A > B And B > C ' Renvoie True. MyCheck = B > A And B > C ' Renvoie False. MyCheck = A > B And B > D ' Renvoie Null. MyCheck = A And B ' Renvoie 8 (comparaison au niveau du bit).
tunisieno
at a écrit le 13/12/2009 à 20h43 :
tunisieno avait prétendu :
Merci pour ta reponse j'ai essaye ton code sa lance le 2eme programme si x<>CH9 sinon lorsque x=CH9 le programme prog_etiqCAB ne se lance pas.
Et optionbutton=1 également ?
Voici un exemple proposé par MS:
And, opérateur, exemple Cet exemple utilise l'opérateur And pour réaliser une conjonction logique sur deux expressions.
Dim A, B, C, D, MyCheck A = 10: B = 8: C = 6: D = Null ' Initialise les variables. MyCheck = A > B And B > C ' Renvoie True. MyCheck = B > A And B > C ' Renvoie False. MyCheck = A > B And B > D ' Renvoie Null. MyCheck = A And B ' Renvoie 8 (comparaison au niveau du bit).
Oui il faut également optionbutton1=true je suis vraiment perdu je ne vois pas comment ecrire le code
at a écrit le 13/12/2009 à 20h43 :
tunisieno avait prétendu :
Merci pour ta reponse
j'ai essaye ton code sa lance le 2eme programme si x<>CH9 sinon lorsque
x=CH9
le programme prog_etiqCAB ne se lance pas.
Et optionbutton=1 également ?
Voici un exemple proposé par MS:
And, opérateur, exemple
Cet exemple utilise l'opérateur And pour réaliser une conjonction
logique sur deux expressions.
Dim A, B, C, D, MyCheck
A = 10: B = 8: C = 6: D = Null ' Initialise les variables.
MyCheck = A > B And B > C ' Renvoie True.
MyCheck = B > A And B > C ' Renvoie False.
MyCheck = A > B And B > D ' Renvoie Null.
MyCheck = A And B ' Renvoie 8 (comparaison au niveau du bit).
Oui il faut également optionbutton1=true je suis vraiment perdu je ne vois pas comment ecrire le code
Merci pour ta reponse j'ai essaye ton code sa lance le 2eme programme si x<>CH9 sinon lorsque x=CH9 le programme prog_etiqCAB ne se lance pas.
Et optionbutton=1 également ?
Voici un exemple proposé par MS:
And, opérateur, exemple Cet exemple utilise l'opérateur And pour réaliser une conjonction logique sur deux expressions.
Dim A, B, C, D, MyCheck A = 10: B = 8: C = 6: D = Null ' Initialise les variables. MyCheck = A > B And B > C ' Renvoie True. MyCheck = B > A And B > C ' Renvoie False. MyCheck = A > B And B > D ' Renvoie Null. MyCheck = A And B ' Renvoie 8 (comparaison au niveau du bit).
Oui il faut également optionbutton1=true je suis vraiment perdu je ne vois pas comment ecrire le code
jean-marc
"tunisieno" wrote in message news:
Oui il faut également optionbutton1=true je suis vraiment perdu je ne vois pas comment ecrire le code
Essaie de l'écrire ici en français et on te donnera une traduction. Il faut bien comprendre (en français) ce que signifient "ET" et "OU".
Donc tu as 2 variables : - x, qui peut valoir "CH9" ou autre chose - OptionButton1 qui peut valoir 1 ou 0
Tu as 3 actions possibles: - Lancer prog_etiqCAB - lancer prog_PLT_traceur - ne rien faire
Maintenant répond à ces questions (en choisissant parmi les 3 actions proposées ci-dessus) :
Que faut il faire dans les 4 cas suivants :
x égal "CH9" et OptionButton1=0 ? x Pas égal à "CH9" et OptionButton1=0 ?
x égal "CH9" et OptionButton1 = 1 ? x Pas égal à "CH9" et OptionButton1 = 1 ?
Si tu réponds à ces 4 questions, alors on peut te donner le code en basic.