Discussion :

[Ninooo]

Bonjour à tous,

Etant nouveau sur ce forum, je ne suis pas parvenu à trouver un sujet traitant de cela, je me permets donc de poster un sujet.
Avant toute chose je tiens à préciser que je suis novice en VBA et mes explications vont peut être être confuses, si vous ne comprenez pas n'hésitez pas à me questionner.
Voici mon souci: il m'a été donné un logigramme de choix que je dois matérialiser par une fenêtre à choix binaire (oui ou non) sur excel et par une macro donc. La fenêtre doit poser une question à laquelle l'utilisateur répond par oui ou non. En fonction de cela, soit sa réponse l'emmène vers une autre question, soit on arrive "en bout de ligne" avec une action à effectuer. Cette action doit alors s'inscrire dans un rapport se trouvant sur une autre feuille Excel
Ayant réussi à trouver une macro effectuant sensiblement cela, je me suis permis de l'utiliser et la voici:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Select Case Me.Label1.Caption 
    Case "Un DVI (inclus ci-après DVI ou FAI+analyse de risque produit/process) a-t-il été réalisé sur ce produit ?" 
        Passage "Le Plan de surveillance est-il suffisant ? (vs performances passées)", Me.OptionButton1 
    Case "Le Plan de surveillance est-il suffisant ? (vs performances passées)"
        Passage "Y-a-t-il une part de sous-traitance ou d'achat à enjeu (performance qualité)", Me.OptionButton1
    Case "Y-a-t-il une part de sous-traitance ou d'achat à enjeu (performance qualité)"
        Passage "Le S/T a fait un DVI?", Me.OptionButton1
    Case "Le S/T a fait un DVI?"
        Fin "FIN", Me.OptionButton1
    Case "Victime s'étouffe ?"
        Fin "Désobstruction", Me.OptionButton1
    Case "Autre cas de départ reflexe ?"
        Fin "Action", Me.OptionButton1
End Select

Et je tente d'insérer ceci, la ou j'ai mis un smiley mais sans aucune action.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
If OptionButton1.Value = True Then
    Sheets("Extraction").Range("A3") = "Fractionner les lots chez les sous-traitants, en interne ou en livraison"
Else
    Sheets("Extraction").Range("A3") = ""
End If

Pourriez vous s'il vous plait me dire s'il est mal placé ou ce qui ne va pas dans mon code?
Je vous remercie par avance pour vos réponses.

[Menhir]

S'il faut juste répondre par oui ou non, il est plus simple d'utiliser des MsgBox que des UserForm.
https://docs.microsoft.com/fr-fr/off...sgbox-function

En macro, ça donne quelque chose comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
If MsgBox ("Voulez-vous oui ou non ?", vbYesNo, "Question 1") = vbYes Then
   .... action si Oui
Else
   .... action si Non
End If

Les "actions" décrites dans ce code pouvant bien sûr être elles-même de nouvelles questions.

[Ninooo]

Bonjour Menhir,

Tout d'abord merci pour votre réponse qui m'a permis d'avancer sur une autre partie du fichier. Comme précisé au départ je suis novice et ne suis pas parvenu à faire ce que vous m'avez conseillé, en effet, lorsque je tente d'insérer un MsgBox entre mes lignes (la ou vous avez donc décrit des actions), un message d'erreur apparaît. Quel format dois-je utiliser entre "If" et "Else" et "End" svp?
Je vous remercie par avance pour votre réponse

[Menhir]

ne suis pas parvenu à faire ce que vous m'avez conseillé, en effet, lorsque je tente d'insérer un MsgBox entre mes lignes (la ou vous avez donc décrit des actions), un message d'erreur apparaît.

Si tu ne montres pas le code que tu as réalisé et que tu n'indiques pas les messages d'erreur obtenus et la ligne sur laquelle se produit l'erreur, difficile de t'indiquer ce que tu as fais de travers.