Macro copier/coller a la suite
Résolu
schpop12
Messages postés
49
Date d'inscription
Statut
Membre
Dernière intervention
-
schpop12 Messages postés 49 Date d'inscription Statut Membre Dernière intervention -
schpop12 Messages postés 49 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
J'utilise cette macro. Comme je m'en sert plusieurs fois il arrive que C6 soit déjas occupé. Je veut ajouter une condition si C6 est occupé copier dans C7, si C7 et occupé copier dans C8 et ansi de suite.
Si vous avez la solution merci.
Sub CopieValeur()
Range("C34:I34").Select
Selection.Copy
Sheets("Synthése").Select
Range("C6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End Sub
J'utilise cette macro. Comme je m'en sert plusieurs fois il arrive que C6 soit déjas occupé. Je veut ajouter une condition si C6 est occupé copier dans C7, si C7 et occupé copier dans C8 et ansi de suite.
Si vous avez la solution merci.
Sub CopieValeur()
Range("C34:I34").Select
Selection.Copy
Sheets("Synthése").Select
Range("C6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End Sub
A voir également:
- Macro copier coller à la suite
- Dessin sms copier coller zizi ✓ - Forum Réseaux sociaux
- Arobase copier coller ✓ - Forum Bureautique
- Historique copier coller - Guide
- Style d'écriture a copier coller - Guide
- Arobase - Forum Clavier
1 réponse
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+