OVH Cloud OVH Cloud

choix indic dans 1 champ

6 réponses
Avatar
Natou
Bonjour,
j'ai posé une question à laquelle j'ai reçu réponse, j'ai exploité la
réponse, mais j'ai essayé de passer par l'inputbox pour avoir un formulaire
de choix puisque je n'ai que 2 choix à proposer aux opératrices :
If PrgLAButilisé = "RK467" Or PrgLAButilisé = "RK468" Then
If InputBox("C'est une notice" & " " & [NUMNOTICE] & " " & "Veuiller
choisir l'option 1 ou 2 pour continuer" & " " & "(choix1 = 0.53m - choix2 =
0.70m)", "laize", 0) = 1 Then
COMMENT1 = "10.05m x 0.53m - 5,3 m² 11yd. x 20 ½ in.-57sq.ft."
Else
COMMENT1 = "10.05m x 0.70m - 7 m² 11yd. x 27.56in.-75.4sq.ft."
End If
End If
je souhaiterais dans ce que j'indique lors de ma question veuillez choisir
etc pourvoir passer à la ligne automatiquement que dois-je mettre comme signe
pour cela, exemple "choix 1 = 0.53m" et dessous le choix suivant,
je souhaiterais également les obliger à écrire 1 ou 2 car si je valide sans
rien rentrer dans mon comment1 j'aurais "0" pouvez-vous également me dire
comment retirer le bouton "annuler" de l'inputbox de façon à ce que les
opératrice n'est le choix que de rentrer le chiffre 1 ou le 2 sans
possibilité d'aller plus loin .....
Merci en espérant avoir été claire dans mes explications;

6 réponses

Avatar
Raymond [mvp]
Bonjour.

tu peux faire ceci:

Dim Response As String
If PrgLAButilisé = "RK467" Or PrgLAButilisé = "RK468" Then
Do Until Response = "1" Or Response = "2"
Response = InputBox("C'est une notice" & " " & [NUMNOTICE] & vbCrLf _
& "Veuiller choisir L 'option 1 ou 2 pour continuer" _
& vbCrLf & "(choix1 = 0.53m - choix2 = 0.70m)", "laize", 1)
If Response = "1" Then
COMMENT1 = "10.05m x 0.53m - 5,3 m² 11yd. x 20 ½ in.-57sq.ft."
Else
COMMENT1 = "10.05m x 0.70m - 7 m² 11yd. x 27.56in.-75.4sq.ft."
End If
Loop
End If


--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Natou" a écrit dans le message de news:

Bonjour,
j'ai posé une question à laquelle j'ai reçu réponse, j'ai exploité la
réponse, mais j'ai essayé de passer par l'inputbox pour avoir un
formulaire
de choix puisque je n'ai que 2 choix à proposer aux opératrices :
If PrgLAButilisé = "RK467" Or PrgLAButilisé = "RK468" Then
If InputBox("C'est une notice" & " " & [NUMNOTICE] & " " &
"Veuiller
choisir l'option 1 ou 2 pour continuer" & " " & "(choix1 = 0.53m - choix2
0.70m)", "laize", 0) = 1 Then
COMMENT1 = "10.05m x 0.53m - 5,3 m² 11yd. x 20 ½ in.-57sq.ft."

Else
COMMENT1 = "10.05m x 0.70m - 7 m² 11yd. x 27.56in.-75.4sq.ft."
End If
End If
je souhaiterais dans ce que j'indique lors de ma question veuillez choisir
etc pourvoir passer à la ligne automatiquement que dois-je mettre comme
signe
pour cela, exemple "choix 1 = 0.53m" et dessous le choix suivant,
je souhaiterais également les obliger à écrire 1 ou 2 car si je valide
sans
rien rentrer dans mon comment1 j'aurais "0" pouvez-vous également me dire
comment retirer le bouton "annuler" de l'inputbox de façon à ce que les
opératrice n'est le choix que de rentrer le chiffre 1 ou le 2 sans
possibilité d'aller plus loin .....
Merci en espérant avoir été claire dans mes explications;



Avatar
Natou
Merci je vais essayer



Bonjour,
j'ai posé une question à laquelle j'ai reçu réponse, j'ai exploité la
réponse, mais j'ai essayé de passer par l'inputbox pour avoir un formulaire
de choix puisque je n'ai que 2 choix à proposer aux opératrices :
If PrgLAButilisé = "RK467" Or PrgLAButilisé = "RK468" Then
If InputBox("C'est une notice" & " " & [NUMNOTICE] & " " & "Veuiller
choisir l'option 1 ou 2 pour continuer" & " " & "(choix1 = 0.53m - choix2 =
0.70m)", "laize", 0) = 1 Then
COMMENT1 = "10.05m x 0.53m - 5,3 m² 11yd. x 20 ½ in.-57sq.ft."
Else
COMMENT1 = "10.05m x 0.70m - 7 m² 11yd. x 27.56in.-75.4sq.ft."
End If
End If
je souhaiterais dans ce que j'indique lors de ma question veuillez choisir
etc pourvoir passer à la ligne automatiquement que dois-je mettre comme signe
pour cela, exemple "choix 1 = 0.53m" et dessous le choix suivant,
je souhaiterais également les obliger à écrire 1 ou 2 car si je valide sans
rien rentrer dans mon comment1 j'aurais "0" pouvez-vous également me dire
comment retirer le bouton "annuler" de l'inputbox de façon à ce que les
opératrice n'est le choix que de rentrer le chiffre 1 ou le 2 sans
possibilité d'aller plus loin .....
Merci en espérant avoir été claire dans mes explications;


Avatar
Natou
J'ai un pb mineur soit, mais je souhaite aller jusqu'au bout, tout fonctionne
sauf le "vbCrLf_" qui veut dire quoi au juste ? le passage de mon commentaire
à la ligne, lorsque je l'écris j'ai un msg d'erreur qui se positionne dessus
et qui m'insulte"erreur de compilation variable non déclarée" qq chose comme
ça, comment puis le faire taire ?
Merci


Bonjour.

tu peux faire ceci:

Dim Response As String
If PrgLAButilisé = "RK467" Or PrgLAButilisé = "RK468" Then
Do Until Response = "1" Or Response = "2"
Response = InputBox("C'est une notice" & " " & [NUMNOTICE] & vbCrLf _
& "Veuiller choisir L 'option 1 ou 2 pour continuer" _
& vbCrLf & "(choix1 = 0.53m - choix2 = 0.70m)", "laize", 1)
If Response = "1" Then
COMMENT1 = "10.05m x 0.53m - 5,3 m² 11yd. x 20 ½ in.-57sq.ft."
Else
COMMENT1 = "10.05m x 0.70m - 7 m² 11yd. x 27.56in.-75.4sq.ft."
End If
Loop
End If


--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Natou" a écrit dans le message de news:

Bonjour,
j'ai posé une question à laquelle j'ai reçu réponse, j'ai exploité la
réponse, mais j'ai essayé de passer par l'inputbox pour avoir un
formulaire
de choix puisque je n'ai que 2 choix à proposer aux opératrices :
If PrgLAButilisé = "RK467" Or PrgLAButilisé = "RK468" Then
If InputBox("C'est une notice" & " " & [NUMNOTICE] & " " &
"Veuiller
choisir l'option 1 ou 2 pour continuer" & " " & "(choix1 = 0.53m - choix2
0.70m)", "laize", 0) = 1 Then
COMMENT1 = "10.05m x 0.53m - 5,3 m² 11yd. x 20 ½ in.-57sq.ft."


Else
COMMENT1 = "10.05m x 0.70m - 7 m² 11yd. x 27.56in.-75.4sq.ft."
End If
End If
je souhaiterais dans ce que j'indique lors de ma question veuillez choisir
etc pourvoir passer à la ligne automatiquement que dois-je mettre comme
signe
pour cela, exemple "choix 1 = 0.53m" et dessous le choix suivant,
je souhaiterais également les obliger à écrire 1 ou 2 car si je valide
sans
rien rentrer dans mon comment1 j'aurais "0" pouvez-vous également me dire
comment retirer le bouton "annuler" de l'inputbox de façon à ce que les
opératrice n'est le choix que de rentrer le chiffre 1 ou le 2 sans
possibilité d'aller plus loin .....
Merci en espérant avoir été claire dans mes explications;










Avatar
Raymond [mvp]
Sous quelle version es-tu ? celle que hérode utilisait ?
si vbCrLf (saut de ligne) ne fonctionne pas tu le remplaces par:
... & Chr(13) & Chr(10) & .......

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Natou" a écrit dans le message de news:

J'ai un pb mineur soit, mais je souhaite aller jusqu'au bout, tout
fonctionne
sauf le "vbCrLf_" qui veut dire quoi au juste ? le passage de mon
commentaire
à la ligne, lorsque je l'écris j'ai un msg d'erreur qui se positionne
dessus
et qui m'insulte"erreur de compilation variable non déclarée" qq chose
comme
ça, comment puis le faire taire ?
Merci


Avatar
Natou
Merci Raymond,
Pourtant la version que j'utilise n'a pas l'âge de notre ami "hérode"
version 2002 devrais-je télécharger un correctif de mise à jour de ma version
???? si oui laquelle et ou devrais je la trouver Merci à toi...



Sous quelle version es-tu ? celle que hérode utilisait ?
si vbCrLf (saut de ligne) ne fonctionne pas tu le remplaces par:
.... & Chr(13) & Chr(10) & .......

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Natou" a écrit dans le message de news:

J'ai un pb mineur soit, mais je souhaite aller jusqu'au bout, tout
fonctionne
sauf le "vbCrLf_" qui veut dire quoi au juste ? le passage de mon
commentaire
à la ligne, lorsque je l'écris j'ai un msg d'erreur qui se positionne
dessus
et qui m'insulte"erreur de compilation variable non déclarée" qq chose
comme
ça, comment puis le faire taire ?
Merci







Avatar
Raymond [mvp]
Bonjour.

la version 2002 d'origine gère le vbCrLf et même bien avant. il ne faut pas
qu'il soit accolé à &.

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Natou" a écrit dans le message de news:

Merci Raymond,
Pourtant la version que j'utilise n'a pas l'âge de notre ami "hérode"
version 2002 devrais-je télécharger un correctif de mise à jour de ma
version
???? si oui laquelle et ou devrais je la trouver Merci à toi...