Bonjour,
Je suis novice dans la réalisation des macros.
Je voudrais exécuter la macro copier coller après chaque saisie d'une valeur dans la colonne de L27 (à L60 uniquement) de la feuille "Bordereau" du classeur ouvert (copier la cellule du dessus et à droite et la coller la valeur en C27 et ainsi de suite L30 en C28 L31 en C29 etc).
Merci de votre aide


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Cellule, Dest As Range
 
 
    Set Cellule = Range("L27:L60")
 
    For Each Cellule In Target.Cells
        If Cellule.Value <> "" Then
        ActiveCell.Offset(-1, 1).Copy
 
        End If
    Next
End Sub