Déplacer plage sur une autre feuille
Résolu
Toto
-
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention -
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention -
Bonjour,
J'ai un problème sur Excel.
Enfaite je voudrai grâce à une macro (sur VBA) copier les valeurs uniquement (pas la mise en forme) d'une plage de cellules variable (ex : A2:A??? de la feuil2) et la coller à la suite de la colonne B de la feuil1.
Est-ce que quelqu'un a une idée ?
Merci d'avance
J'ai un problème sur Excel.
Enfaite je voudrai grâce à une macro (sur VBA) copier les valeurs uniquement (pas la mise en forme) d'une plage de cellules variable (ex : A2:A??? de la feuil2) et la coller à la suite de la colonne B de la feuil1.
Est-ce que quelqu'un a une idée ?
Merci d'avance
A voir également:
- Déplacer plage sur une autre feuille
- Déplacer une colonne excel - Guide
- Comment imprimer en a5 sur une feuille a4 - Guide
- Deplacer une icone sur iphone - Guide
- Vous ne pouvez pas déplacer des objets en dehors de la feuille - Forum Excel
- Feuille diddl la plus rare ✓ - Forum Graphisme
2 réponses
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.
Toto
Merci beaucoup sa marche comme je voulais
