Copier cellules fusionnées

Bonjour à tous.

J'aimerais que dans mon fichier qui fonctionne avec une macro, je puisse en feuil 2 Cellule A1 pouvoir dans la macro que j'ai modifié (récup sur le forum)

avoir la possibilité de choisir la t police , la couleur, supprimer les bordures ,etc

Je pense que c'est possible, mais je n'ai pas encore trouvé le bon code

Merci de votre aide

Bonne fin de journée

bonjour

les mises en forme se font

soit au clavier/souris

soit par MFC

pas besoin de VBA.

bon travail

amitiés

Salut Led,

Voici ce que tu veux comme code (même si je comprend pas l’intérêt xD)

Édit : je rejoins à 300% jmd et je rajoute même que les cellules fusionnées sont l’ennemie d'Excel

Sub CopieColle()
    Range("D1:E1").Copy
    Sheets("Feuil2").Range("A1").PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
        , SkipBlanks:=False, Transpose:=False
End Sub

Bonjour jmg et Juice

Merci pour vos réponses,J'ai bien compris votre message, mais comme je suis sur un fichier en cours de developement et que suis vraiment débutant, j'explore les faisabilités dans les 2 cas.

Mais je suis d'accord avec jmb la mise en forme conditionnelle est à faire, je n'y avais pas pensé

Sur le forum pas vu, ou alors pas fait la bonne recherche.

Merci à Juice pour le code que je vais tester

Je vous tiens au courant après essais

Bonne fin de journée à vous

Ledzep

Re Bonjour Juice

J'ai fait le teste de ton code

Hélas cela ne fonctionne pas dans le sens qu'il conserve la mise en forme.

Une idée ?

Merci de ta réponse

Ledzep

Ledzep,

C'est que tu ne veux pas conserver la mise en forme et juste copier le contenu ?

Dans ce cas :

Sub CopieColle()
    Sheets(2).Cells(1, 1) = Sheets(1).Cells(1, 4)
    'Sheets(x)
    'x est égal à ton numéro de feuille.
    'La feuille la plus à gauche est égal à un.
    'La suivante est égal à deux etc...
    '
    'Cells(t,k)
    't est égal au numéro de ligne.
    'donc t = 1 renvoie à la ligne n°1 du classeur
    'k est égal au numéro de colonne.
    'donc k = 1 renvoie à la colonne A du classeur
    '
    'Exemple :
    'Sheets(3).Cells(4,3) renvoie les coordonnées =
    'Feuille 3 // Cellule C4
End Sub

Restant à dispo !

Bonjour à tous

Merci de votre aide.

J'ai lu et relu vos recommandations et ..

Et bien cela fonctionne maintenant

Je l'ai adapté à mon fichier qui commence à bien avancé.

Worksheets(1).Cells(16, 4) = Worksheets(2).Cells(45, 6)

De plus la grosse bêtise c'est que en fait je faisais l'inverse de ce que je voulais , j'avais inversé Worksheets(1) et (2) donc cela me renvoie rien puisque la cellule étais vierge. Trop bête Ledzep.

encore une question la commande pour supprimer le" presse papier" d'excel sur un dossier uniquement

J'ai lu ce tuto mais je ne m'en souvient plus où

Enfin merci à vous

Ledzep