Copier à premières lignes vides
Résolu
Patrick50
-
Patrick50 -
Patrick50 -
Bonjour,
Je dois réaliser une macro consistant à :
- copier A1:E1 et coller cette plage en collage spécial valeur à la première ligne vide de la plage L100:Q2000
- puis copier Q1 et coller cette cellule en collage spécial valeur à la 1ere ligne vide de la plage I100:I2000.
La référence des lignes vides évolue.
Merci pour votre aide.
Je dois réaliser une macro consistant à :
- copier A1:E1 et coller cette plage en collage spécial valeur à la première ligne vide de la plage L100:Q2000
- puis copier Q1 et coller cette cellule en collage spécial valeur à la 1ere ligne vide de la plage I100:I2000.
La référence des lignes vides évolue.
Merci pour votre aide.
A voir également:
- Copier à premières lignes vides
- Comment copier une vidéo youtube - Guide
- Super copier - Télécharger - Gestion de fichiers
- Style d'écriture a copier coller - Guide
- Aller à la ligne excel - Guide
- Historique copier coller - Guide
1 réponse
Bonjour,
On peut faire une macro à paramètres (plage source, plage destination), mais ceci doit marcher :
A+
On peut faire une macro à paramètres (plage source, plage destination), mais ceci doit marcher :
Sub Macro1()
Range("A1:E1").Copy
i = 100
While Range("L" & i).Value <> "" And i < 2000
i = i + 1
Wend
If i <= 2000 Then
Range("L" & i).Select
Selection.PasteSpecial Paste:=xlPasteValues
End If
Range("Q1").Copy
i = 100
While Range("I" & i).Value <> "" And i < 2000
i = i + 1
Wend
If i <= 2000 Then
Range("I" & i).Select
Selection.PasteSpecial Paste:=xlPasteValues
End If
End Sub
A+
La macro fonctionne très bien merci.
Je souhaiterais ajouter une condition : si AL6=1 alors la macro s'exécute sinon elle ne s'exécute pas.
Sub Macro1() If Range("AL6").Value = 1 Then Range("A1:E1").Copy i = 100 While Range("L" & i).Value <> "" And i < 2000 i = i + 1 Wend If i <= 2000 Then Range("L" & i).Select Selection.PasteSpecial Paste:=xlPasteValues End If Range("Q1").Copy i = 100 While Range("I" & i).Value <> "" And i < 2000 i = i + 1 Wend If i <= 2000 Then Range("I" & i).Select Selection.PasteSpecial Paste:=xlPasteValues End If End If End SubOK ça fonctionne
Merci