Activer cellules selon reponse à message box
Bonjour,
j'ai un problème tout bête dont je ne vois pas la solution...
j'ai insérer ds ma macros un messagebox. Lorsque la reponse est oui, je voudrais activer et remplir une cellule, et lorsque la reponse et non, ben activer et remplir une autre cellule. Cependant ca ne marche pas....
voici ma macros...
'message de confirmation
Range("AS22").Select
valid = MsgBox("je pose ma question...?", vbYesNo)
If valid = 7 Then: Range("AS22").Select
ActiveCell.Formula = "=DEVIS!C57"
If valid = 8 Then: Range("BB22").Select
ActiveCell.Formula = "=DEVIS!C57"
cordialement,
guillaume
Bonjour,
Essaye ce code :
Sub test()
Dim valid As String
valid = MsgBox("je pose ma question...?", vbYesNo)
If valid = vbYes Then
Range("AS22").Formula = "=DEVIS!C57"
Else: Range("BB22").Formula = "=DEVIS!C57"
End If
End SubAmicalement
Dan
Bonjour,
A mon aviis, if faut que tu utilise non pas MsgBox mais InputBox pour récupérer la valeur de ta variable. Essaye tu verras.
édit : Salut Dan
Niquel!
Pile ce qu'il me fallait Dan! je te remercie!
(on mettra ca sur le compte du lundi matin... ^^)
Bonne journée et encore merci