Macro Copier/ Coller
Bonjour,
Je voudrai créer une macro qui permettrait de copier la cellule sélectionnée sur une feuille excel et la remettre sur une autre dans un tableau. Pour cela elle vérifie que la case ou elle la met soit bien vide avant de coller.
Voici le code que j'ai développé et dans lequel j'ai des problèmes :
Sub Copier_RCF()
Dim I As Integer
Dim L As Integer
Selection.Copy
I = 0
L = 10
Do While I = 0
If [ISBLANK(CL)=TRUE] Then
Range("CL").Activate
Range("CL").PasteSpecial xlPasteAll
I = 1
Else: L = L + 1
End If
Loop
End Sub
Je voudrai créer une macro qui permettrait de copier la cellule sélectionnée sur une feuille excel et la remettre sur une autre dans un tableau. Pour cela elle vérifie que la case ou elle la met soit bien vide avant de coller.
Voici le code que j'ai développé et dans lequel j'ai des problèmes :
Sub Copier_RCF()
Dim I As Integer
Dim L As Integer
Selection.Copy
I = 0
L = 10
Do While I = 0
If [ISBLANK(CL)=TRUE] Then
Range("CL").Activate
Range("CL").PasteSpecial xlPasteAll
I = 1
Else: L = L + 1
End If
Loop
End Sub
