Help VBA Résolu/Fermé

Question

Bonjour, Je réalise actuellement un questionnaire sur excel et je découvre le bonheur des macros. Petit problème, je ne connais rien au VBA... Certes, c'est un peu ambitieux, mais je suis pleine de bonne volonté! Alors mon premier problème... J'ai créé une boite de dialogue pour une réponse qui se déclenche quand la personne répond : "autres". Et ça marchait ! Le problème est que j'ai 5 questions de ce type et que je n'arrive pas à reproduire le même fonctionnement indépendamment les uns des autres. Avec ma dernière formule, j'arrive a faire déclencher les boites de dialogue uniquement si la personne répond "Autres" dès la première question. Pouvez vous m'aider ? Un grand merci par avance pour votre aide. Voici ma dernière formule: Private Sub Worksheet_calculate() Dim result As String If [H16] = "Autres" Then result = InputBox("question 7 vous avez répondu Autres pouvez vous précisez") If result <> "" Then Range("I16").Select ActiveCell = result Else If [H18] = "Autres" Then result = InputBox("question 8 précisez Autres") If result <> "" Then Range("I18").Select ActiveCell = result Else If [H20] = "Autres" Then result = InputBox("question 9 précisez Autres") If result <> "" Then Range("I20").Select ActiveCell = result Else If [H22] = "Autres" Then result = InputBox("question 10 précisez Autres") If result <> "" Then Range("I22").Select ActiveCell = result Else If [H24] = "Autres" Then result = InputBox("question 11 précisez Autres") If result <> "" Then Range("I24").Select ActiveCell = result End If End If End If End If End If End If End If End If End If End If End Sub

Frenchie83 · Answer

Bonjour Private Sub Worksheet_calculate() Dim result As String If [H16] = "Autres" Then result = InputBox("question 7 vous avez répondu Autres pouvez vous précisez") If result <> "" Then [I16] = result End If If [H18] = "Autres" Then result = InputBox("question 8 vous avez répondu Autres pouvez vous précisez") If result <> "" Then [I18] = result End If If [H20] = "Autres" Then result = InputBox("question 9 vous avez répondu Autres pouvez vous précisez") If result <> "" Then [I20] = result End If If [H22] = "Autres" Then result = InputBox("question 10 vous avez répondu Autres pouvez vous précisez") If result <> "" Then [I22] = result End If If [H24] = "Autres" Then result = InputBox("question 11 vous avez répondu Autres pouvez vous précisez") If result <> "" Then [I24] = result End If End Sub Cdlt

michel_m · Answer

Bonjour

une autre manière par une macro événementielle: la macro de déclenche lorsque'on valide une saisie dans les cellules H16 ,H18 etc
Option ExplicitOption Compare TextPrivate Sub Worksheet_Change(ByVal Target As Range)Dim Num As Byte, ResultIf Not Intersect(Target, Range("H16, H18, H20, H22, H24")) Is Nothing And Target.Count = 1 Then    If Target = "Autres" Then        Num = ((Target.Row - 16) / 2) + 7        Result = InputBox("question " & Num & " vous avez répondu Autres pouvez vous précisez")        If Result <> "" Then Target.Offset(1, 0) = Result    Else        Target.Offset(1, 0) = Target    End IfEnd IfEnd Sub 

Pour installer
1:  faire un "copier" de ce code
2: clic droit sur le nom de l'onglet (en bas et à droite de la feuille)
3: visualiser le code
4: coller

La maquette
https://www.cjoint.com/c/EFomqikhMG5
 
 Michel

Help VBA

2 réponses

Discussions similaires