Macro copier/coller a la suite

Résolu/Fermé

Macro

schpop12 Messages postés 49 Date d'inscription dimanche 9 mars 2008 Statut Membre Dernière intervention 21 juin 2016 - 18 mars 2008 à 11:04
schpop12 Messages postés 49 Date d'inscription dimanche 9 mars 2008 Statut Membre Dernière intervention 21 juin 2016 - 18 mars 2008 à 14:53

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

A voir également:

Macro copier coller à la suite
Dessin sms copier coller zizi ✓ - Forum Réseaux sociaux
Arobase copier coller ✓ - Forum Bureautique
Copier coller pdf - Guide
Plus moyen d'avoir un arobase ! - Forum Windows 10
Croix copier coller ✓ - Forum Bureautique

1 réponse

Réponse 1 / 1

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

Discussions similaires

Macro excel copier données d'un fichier à la suite des données

Macro Copier/coller à la suite

Problème de copie de formule sur excel

problème d'espace entre les mots sous word

sonic recordnow

j'arrive pas à lire mes mail Orange