Vba excel complement de code SVP

Résolu
Ken rock -  
 Ken rock -
Bonjour,

ALor mon souci est que j'ai un code vba qui me permet de remplir des case prédefinie dasn le code sauf que je ne peut que choisir qu'une case aprés je recopie le meme code pour avec une autre case.

voila mon code :

mesure = InputBox(prompt:=" Question 1 -2= Pas du tout satisfait -1 = Insatisfait 1 = Satisfait 2 = Tout à fait satisfait")
If mesure = "" Then Exit Sub
Range("B2").Value = mesure

Ce que je voudrait c'est que des que le message Question 1 s'affiche en fonction de la réponse (satisfait,insatisfait ....)
dc de la valeur que je rentre sa se mette directement dans une cellule

ex: si satisfait l'opérateur tape 2 et sa va dans A1 si insatisfait on tape 3 sa va dans A2 ect

En esperant avoir été clair merci d'avance
A voir également:

2 réponses

Réponse 1 / 2
Mabelle60 Messages postés 492 Statut Membre 131
 
Salut
Essaye
mesure = InputBox(prompt:=" Question 1 -2= Pas du tout satisfait -1 = Insatisfait 1 = Satisfait 2 = Tout à fait satisfait")
If mesure = "" Then Exit Sub
x = mesure-1
Cells(1,x).Value = mesure
End if
0
Baki
 
Salut mabell je vien d'eesayé ton code et il me mette end if sans bloc if.

Je l'ai enlevé le msg aparait mais kn j'essaye de saisir une deuxieme valeur sa me met : erreur d'exécution 1004

erreur définie par l'application ou par l'objet

merci pour tes propositions
0
Réponse 2 / 2
Ken rock
 
ps : ct bien moi lol
0
Ken rock
 
RE voila le code qui marche pour ceux que sa peux intéresser :

mesure = InputBox(prompt:=" Question 2 -2= Pas du tout satisfait -1 = Insatisfait 1 = Satisfait 2 = Tout à fait satisfait")
If mesure = "" Then
Exit Sub
ElseIf mesure = -2 Then Range("B3").Value = mesure
ElseIf mesure = -1 Then Range("C3").Value = mesure
ElseIf mesure = 1 Then Range("D3").Value = mesure
ElseIf mesure = 2 Then Range("E3").Value = mesure


merci pour votre aide
0