Déplacer plage sur une autre feuille
Résolu/Fermé
Toto
-
6 mars 2009 à 10:07
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 6 mars 2009 à 11:47
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 6 mars 2009 à 11:47
A voir également:
- Déplacer plage sur une autre feuille
- Déplacer une colonne excel - Guide
- Comment supprimer une feuille sur word - Guide
- Feuille de pointage excel - Télécharger - Tableur
- Comment imprimer en a5 sur une feuille a4 - Guide
- Feuille de score belote excel - Forum Excel
2 réponses
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 753
6 mars 2009 à 11:24
6 mars 2009 à 11:24
Salut,
Pour copier une plage de cellules de la Feuil2 et la coller à la suite de la colonne B Feuil1...
Voilà qui devrait vous faire plaisir :
Sub Macro1()
Dim plage As Range
Sheets("Feuil2").Select
Set plage = Application.InputBox("Choix de cellule(s)", Type:=8)
plage.Select
Selection.Copy
Sheets("Feuil1").Select
ActiveSheet.Range("B1").Select
Do While ActiveCell <> ""
ActiveCell.Offset(1, 0).Select
Loop
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub
Dans l'inputbox indiquer par exemple : A23:A68 ou A3 simplement.
Pour copier une plage de cellules de la Feuil2 et la coller à la suite de la colonne B Feuil1...
Voilà qui devrait vous faire plaisir :
Sub Macro1()
Dim plage As Range
Sheets("Feuil2").Select
Set plage = Application.InputBox("Choix de cellule(s)", Type:=8)
plage.Select
Selection.Copy
Sheets("Feuil1").Select
ActiveSheet.Range("B1").Select
Do While ActiveCell <> ""
ActiveCell.Offset(1, 0).Select
Loop
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub
Dans l'inputbox indiquer par exemple : A23:A68 ou A3 simplement.
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 753
6 mars 2009 à 11:47
6 mars 2009 à 11:47
Alors il faut indiquer que ce post est "résolu"
6 mars 2009 à 11:38