Trouver astuce code vba
Résolu
Brabra
-
Brabra -
Brabra -
Bonsoir,
Je vous explique :
En fait j'ai un questionnaire à choix multiple qui m'envoie, quand je choisi certaines réponses, sur une page demandée.
J'aimerais, car j'ai 4 questions et 12 choix différents de réponses, avoir un code qui, si je ne choisis pas l'une des réponses d'au dessus, m'envoie sur une autre page qui serait comme une "page d'erreur' pour dire que c'est un mauvais choix. Comme ca je n'aurais pas à recopier plus d'une quarantaine de fois chaque code pour chaque valeur...
Merci
Sub Interpretation()
If box_mesure = "- de 1,70 M" And box_cheveux = "BRUN-NOIR" And box_yeux = "NOISETTE" And box_age = "22 ANS" Then
'aller sur la bonne feuille
Sheets("BENJI").Select
End If
If box_mesure = "= 1,75 M" And box_cheveux = "BRUN-NOIR" And box_yeux = "BLEU" And box_age = "28 ANS" Then
'aller sur la bonne feuille
Sheets("FLORENT").Select
End If
If box_mesure = "+ de 1,80 M" And box_cheveux = "CHATAIN" And box_yeux = "VERT" And box_age = "21 ANS" Then
'aller sur la bonne feuille
Sheets("RAPHAEL").Select
End If
Je vous explique :
En fait j'ai un questionnaire à choix multiple qui m'envoie, quand je choisi certaines réponses, sur une page demandée.
J'aimerais, car j'ai 4 questions et 12 choix différents de réponses, avoir un code qui, si je ne choisis pas l'une des réponses d'au dessus, m'envoie sur une autre page qui serait comme une "page d'erreur' pour dire que c'est un mauvais choix. Comme ca je n'aurais pas à recopier plus d'une quarantaine de fois chaque code pour chaque valeur...
Merci
2 réponses
-
Bonjour
If box_mesure = "- de 1,70 M" And box_cheveux = "BRUN-NOIR" And box_yeux = "NOISETTE" And box_age = "22 ANS" Then 'aller sur la bonne feuille Sheets("BENJI").Select ElseIf box_mesure = "= 1,75 M" And box_cheveux = "BRUN-NOIR" And box_yeux = "BLEU" And box_age = "28 ANS" Then 'aller sur la bonne feuille Sheets("FLORENT").Select ElseIf box_mesure = "+ de 1,80 M" And box_cheveux = "CHATAIN" And box_yeux = "VERT" And box_age = "21 ANS" Then 'aller sur la bonne feuille Sheets("RAPHAEL").Select Else 'aller sur la feuille "ERREUR" Sheets("ERREUR").Select End If
Si aucun des choix ne correspond, alors on pointe sur la feuille "ERREUR"
cdlt -
Par contre, si j'essaie de l'étendre à une seconde page avec la même forme de questionnaire mais avec des données différentes et il ne prend pas en compte la modifications des données mais prend toujours en compte les anciennes données... Est ce normal ?
Cordialement
