Macro Copier/ Coller
Med Ali
-
Med Ali -
Med Ali -
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
A voir également:
- Macro Copier/ Coller
- Historique copier coller - Guide
- Copier coller pdf - Guide
- Copier-coller - Accueil - Informatique
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Style d'écriture a copier coller - Guide
Range("C" & L).Activate
Range("C" & L).PasteSpecial xlPasteAll
Run-time error '6'
Overflow