Vba excel complement de code SVP
Résolu/Fermé
A voir également:
- Vba excel complement de code SVP
- Liste déroulante excel - Guide
- Code ascii de a - Guide
- Si et excel - Guide
- Code puk bloqué - Guide
- Code de déverrouillage oublié - Guide
2 réponses
Mabelle60
Messages postés
468
Date d'inscription
mercredi 4 avril 2007
Statut
Membre
Dernière intervention
21 juin 2017
130
23 janv. 2009 à 13:23
23 janv. 2009 à 13:23
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
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
ps : ct bien moi lol
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
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
23 janv. 2009 à 13:31
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