Macro pour entrer valeur

Bonjour

Je suis novice en macro et en visual basic, mais je cherche un code qui m'enlèverai bien une épidne du pied.

A la base j'ai une facture que j'ai automatisé. J'ai une liste de référence que je peux selectionner et dès que je supprime la référence, toutes les autres cellules qui sy réfèrent se vident, et inversement. (désignation, prix unitaire HT, prix hors taxe)
Il n'y a que dans la colonne quantité que je n'ai pas de formule ... je cherche à faire ceci :

=si(D23="";""; Laisse moi entrer la valeur") (dans la cellule D25)
Mon but est que des que je supprime la référence qui se trouve dans D23, tout se vite, y compris la quantité. Et si il y a une référence dans D23, qu'il me laisse rentrer la valeur.

Je ne peux pas écrire "entrer valeur" car la colonne quantité est utilisé pour trouver le Prix hors taxe, donc sa me marquera "erreur".

Donc j'aimerai (si il n'y a pas d'autre moyen) une macro qui me permettrait de me poser la question suivante : "quelles quantités ? " dans la cellule D25 dès que j'ai selectionné une référence dans la cellule A25
De même pour les cellules qui suivent : Ref A26 => question pour D26

J'ai mis la pièce jointe car je concoit que mon explication ne soit pas très clair ...


Merci d'avance =)

bonjour southstory,

je te propose la macro événementielle suivante, cette macro s'execute dès qu'une valeur est modifier sur la feuille, une verification se fait pour savoir si la cellule qui vient d'être modifié fait partie de la plage D23:D30 ( c'est un exemple à adapter) si c'est le cas, un message s'affiche demandant d'entrer une valeur. la valeur entrée est transcrit dans la cellule à droite de la cellule qui vient d'être modifiée.

cette macro doit être coller sur la page code de la feuille, pour atteindre cette page fait un clic droit sur l'onglet de ta feuille et sélectionne "Visualiser le code"

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub Worksheet_Change(ByVal Target As Range) 'attribue la référence d'objet ici à la l'intersection (cellule active) et la plage ("D23:D30") Set ici = Application.Intersect(Target, Range("D23:D30")) 'vérifie si la cellule active fait partie de la plage D23:D30 If Not ici Is Nothing Then 'inscrire la valeur de l'inputbox dans la premiere cellule à droite de la cellule active Target.Offset(0, 1) = InputBox("Entrer la quatité") End If End Sub

---