Création Boite de dialogue

Bonjour,

Voilà je cherche à créer une macro pour que soit possible la fonction suivante :

En remplissant une cellule précise (admettons la cellule E9) je voudrais qu'une boite de dialogue s'ouvre, dans laquelle il faudrait obligatoirement écrire quelque chose à destination d'une autre cellule (admettons la.... I9, ou une cellule de la même ligne)

Je voudrais que cette macro soit active pour toute la colonne E9

Cette macro est-elle possible? J'ai fait quelques recherches et je n'ai encore rien trouvé. Et débutant sur VBA, je dois avouer que je ne sais pas trop comment m'y prendre...

Merci d'avance à vous!

Bonjour,

il faut que tu utilises l'événement Change de la feuille qui est appelé sur une saisie.

Ex :

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim v As Variant ' mettre un type plus précis si possible (as double ou as string)
    If Target.Column <> 5 Or Target.Row = 1 Then Exit Sub 'si colonne <> E ou ligne =1 on quitte

    v = InputBox("Valeur = ", "Saisie")
    ' éventuellement tester la validité de la saisie
    Cells(Target.Row, "I") = v ' l'inscrire en I
    'ou
    'Target.Offset(, 4) = v ' l'inscrire 4 colonne à droite
End Sub

eric

Merci beaucoup ça marche nickel!!