Fonction ou code pour coller une plage à la suite
Résolu/Fermé
A voir également:
- Fonction ou code pour coller une plage à la suite
- Fonction si et - Guide
- Code ascii de a - Guide
- Code puk bloqué - Guide
- Code telephone oublié - Guide
- Code activation windows 10 - Guide
2 réponses
via55
Messages postés
14477
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
3 octobre 2024
2 730
26 janv. 2020 à 16:41
26 janv. 2020 à 16:41
Bonjour
Tu peux facilement trouver la 1ere ligne vide d'une colonne avec une instruction telle que
Ensuite il reste plus qu'à se positionner sur la bonne cellule pour coller la plage
Cdlmnt
Via
Tu peux facilement trouver la 1ere ligne vide d'une colonne avec une instruction telle que
Ligne = Sheets("Feuil2").Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row + 1
Ensuite il reste plus qu'à se positionner sur la bonne cellule pour coller la plage
Cdlmnt
Via
via55
Messages postés
14477
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
3 octobre 2024
2 730
26 janv. 2020 à 17:59
26 janv. 2020 à 17:59
Re
Il faut selectionner la cellule de la bonne ligne avant de coller comme je disais précédemment
Avant Selection. Paste mettre cette ligne
Cdlmnt
Via
Il faut selectionner la cellule de la bonne ligne avant de coller comme je disais précédemment
Avant Selection. Paste mettre cette ligne
Sheets("Feuil2").Range("A" & ligne).Select
Cdlmnt
Via
26 janv. 2020 à 17:01
Je viens de tester et la plage de la feuille 1 ne se colle pas à la suite de la plage en feuille 2.
Voici comment j'ai retranscrit dans VBA:
Sheets("Feuil1").Select
Range("A1").Select
Selection.CurrentRegion.Select
Selection.Copy
Sheets("Feuil2").Select
Ligne = Sheets("Feuil2").Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row + 1
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Merci d'avance pour votre correctif...
Cdlt,
gexelpa