Macro copier/coller a la suite
Résolu/Fermé
schpop12
Messages postés
46
Date d'inscription
dimanche 9 mars 2008
Statut
Membre
Dernière intervention
21 juin 2016
-
18 mars 2008 à 11:04
schpop12 Messages postés 46 Date d'inscription dimanche 9 mars 2008 Statut Membre Dernière intervention 21 juin 2016 - 18 mars 2008 à 14:53
schpop12 Messages postés 46 Date d'inscription dimanche 9 mars 2008 Statut Membre Dernière intervention 21 juin 2016 - 18 mars 2008 à 14:53
A voir également:
- Macro copier coller à la suite
- Dessin a copier coller ✓ - Forum Internet / Réseaux sociaux
- Macro logiciel - Télécharger - Organisation
- Coeur copier coller ✓ - Forum Internet / Réseaux sociaux
- Copier video youtube - Guide
- Super copier - Télécharger - Gestion de fichiers
1 réponse
schpop12
Messages postés
46
Date d'inscription
dimanche 9 mars 2008
Statut
Membre
Dernière intervention
21 juin 2016
6
18 mars 2008 à 14:53
18 mars 2008 à 14:53
Salut
Bon personne n'as été inspiré. J'ai trouvé tout seul donc je poste la réponse.
Sub CopierValeur()
Range("C34:I34").Select
Selection.Copy
Sheets("Synthése").Select
Cells(65535, 3).End(xlUp)(2).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End Sub
Voila si ca peut servir a quelq'un.
A+
Bon personne n'as été inspiré. J'ai trouvé tout seul donc je poste la réponse.
Sub CopierValeur()
Range("C34:I34").Select
Selection.Copy
Sheets("Synthése").Select
Cells(65535, 3).End(xlUp)(2).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End Sub
Voila si ca peut servir a quelq'un.
A+