Macro copier/coller a la suite [Résolu/Fermé]

Signaler
Messages postés
46
Date d'inscription
dimanche 9 mars 2008
Statut
Membre
Dernière intervention
21 juin 2016
-
Messages postés
46
Date d'inscription
dimanche 9 mars 2008
Statut
Membre
Dernière intervention
21 juin 2016
-
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

1 réponse

Messages postés
46
Date d'inscription
dimanche 9 mars 2008
Statut
Membre
Dernière intervention
21 juin 2016
5
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+
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 65492 internautes nous ont dit merci ce mois-ci