Bonjour,

J'essaie de programmer sous VBA,
Je désire créer une fontion VBA qui me permette de copier le contenu des cellules de la colonne C et de le coller sur la même ligne dans la colonne E seulement si la cellule cible(dans la colonne E) est vide.

Voila ce que j'ai tapé, pouvez-vous m'aider SVP, je suis vraiment bloqué...

Merci d'avance

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
  Dim Row As Object
    Set Row = ActiveSheet.Range("C" & Rows.Count).End
 
    Range("A1").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    If Selection.SpecialCells(xlCellTypeBlanks).Select = True Then Row.Select Application.CutCopyMode = False
    Else
        If Selection.SpecialCells(xlCellTypeBlanks).Select = False Then Stop
    For Each Row In ActiveSheet.Column(C)
    Target.Row.Copy _
    Destination:=ActiveSheet.Range("E" & Row)
    Next Row
    End If