COmplément code vba

[link93]

Bonjour,

Alors mon souci est que j'ai un code vba qui me permet de remplir des cases sauf que je ne peux que choisir qu'une case après je dois recopie le même code pour pouvoir remplis 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 voudrai c'est que des que le message Question 1 s'affiche en fonction de la réponse (satisfait, insatisfait....) donc de la valeur que je rentre sa se mette directement dans une cellule définie

Exemple: Si satisfait l'opérateur tape 2 et la valeur va dans A1 si insatisfait on tape 3 la valeur va dans A2 ainsi de suite

En espérant avoir été clair merci d'avance

 

[porcinet82]

Re : COmplément code vba

Salut,

Et bien pourquoi pas simplement avec :

If mesure = 2 then Range("A1").Value = mesure
ElseIf mesure = 3 then Range("A2").Value = mesure
[COLOR=green]'...[/COLOR]

A moins que je n'ai rien compris... Si c'est le cas, peut etre qu'un exemple en pièce jointe serait plus parlante.

@+

 

[Pierrot93]

Re : COmplément code vba

Bonjour Link

pas tout compris moi... ton code à l'air de fonctionner, la valeur saisie se retrouve bien en B2...

bon après midi
@+

Edition : bonjour Romain, aarf à coté de la plaque moi....

 

[link93]

Re : COmplément code vba

Re merci d'avoir répondu ton code et peut être la réponse mais quand je l'essaye un message d'erreur apparaît qui met " erreur compilation else sans if"

Je mis connais pas vraiment donc je ne sais pas si l'erreur viens de moi merci

 

[link93]

Re : COmplément code vba

Bonjour pierrot93

Le code que j'ai mit fonctionne mais ne répond pas tout à fait à ce dont j'ai besoin

J'aimerai que lorsque le message apparaît, en fonction du chiffre que je mets dedans celui ci aille dans une case définie

merci pour votre aide

 

[Pierrot93]

Re : COmplément code vba

Re

en l'absence de Romain, regarde son code ci-dessous ainsi modifié :

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

@+

 

[Pyrof]

Re : COmplément code vba

Bonjour,

Peut être comme ça

Select Case mesure
    Case -2: col = 2
    Case -1: col = 3
    Case 1: col = 4
    Case 2: col = 5
    Case Else: col = 0
End Select
If col <> 0 Then Cells(1, col) = mesure

 

[link93]

Re : COmplément code vba

AHHH pierrot quesque je serais devenu sans toi serieusement MERCIIIIIIII

Tu vien de m'eviter une fin d'aprém de ***** lol merci encor A+