Transfert e données d'une cellule à une autre

Bonjour,

Je suis chargé de bâtir un budget avec des prévisions de dépenses.

Je souhaiterais inscrire une dépense prévisionnelle dans une cellule (A1 par exemple) et en cochant la cellule suivante (A2 par exemple d'un X) que les données de ma cellule A1 "prévivion de dépense" passent automatiquement dans la cellule A3 "dépenses réelles", et que les données de ma cellule A1 s'effacent.

J'espère avoir été suffisament clair et merci d'avnce pour votre aide.

François21

Bonjour et bienvenu,

Le code suivant, après le double-clique sur la cellule qui contient la donnée, coupera le contenu de la cellule et copiera 2 lignes en dessous. Code à copier dans le VBE de la feuille concernée.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  Target.Cut Destination:=Target.Offset(2, 0)
End Sub

Si tu insères la ligne suivante, si nécessaire, la cellule juste en dessous sera remplie par le caractère "X" :

Target.Offest(1,0).Value="X"

Il faut les adapter à ta guise.

Merci de ta réponse.

Je vais essayer.

Amicalement