Discussion :

[Guizmonster]

Bonjour,

Je suis confronté à un problème. Je ne suis pas un grand expert mais je sais transférer et travailler un peu de la donnée par VBA.

J'essaie de copier d'un fichier .xlsm vers un autre du texte. Jusque là je savais faire. Mais là je veux le copier en gardant son format d'origine, c'est à dire s'il est en couleur, barré etc. Et autant excel sait le faire manuellement, autant je suis incapable de le faire par macro. J'ai fait un enregistrement de macro en faisant du copier coller mais ca ne fonctionne pas.

Sur le fichier joint, je voudrais simplement copier par macro le texte et sa mise en forme de la cellule A1 à la cellule C1.

Pouvez-vous m'aider?

Cordialement

[21Formatic]

Bonjour,

Comme ceci ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Sub Macro1()
 
    Range("A1").Copy Range("C1")
End Sub

[Guizmonster]

C'est tout simple... Je me prenais la tête

[Pierre Fauconnier]

Salut.

Attention que copier une cellule de cette manière d'un classeur à l'autre copie la cellule avec toutes ses propriétés. Cela peut amener le classeur cible à recevoir des scories indésirables (plages nommées, validation par liste entraînant des liaisons entre classeur, etc).

Perso, j'effectuerais deux collages spéciaux, un valeur puis un format, pour contrôler au plus près ce qui est transféré d'un classeur à l'autre

[21Formatic]

Hello !

Très bonne remarque effectivement. Merci pour la précision.

Comme c'était dans le même fichier, je ne me suis pas posé de questions. Et à force de ne pas se poser de questions, on en arrive à faire des erreurs stupides à certains moments.

Cela étant dit, ici les mises en forme sont faites sur différents mots, placés dans différentes lignes de la cellule. Ce n'est pas la cellule en elle-même qui a une mise en forme et le collage spécial format ne donne donc rien. À mon niveau tout du moins.

Il faudrait, pour chaque mot, récupérer toutes ses propriétés de police et les réappliquer ?

[Pierre Fauconnier]

Si c'est dans le même fichier et que ce sont des parties de texte qui ont été altérées par un format, alors, ta solution d'un simple Copy est ok (je n'ai pas regardé le fichier)

Aller chercher la mise en forme du texte à l'intérieur de la valeur de la cellule, c'est galère.

[21Formatic]

Bon courage

[Guizmonster]

Effectivement, cette solution ne fonctionne pas entre 2 classeurs.

Je n'avais pas mis dans l'équation le fait qu'il s'agit d'une cellule fusionnée vers une autre cellule fusionnée.

Jusqu'à présent je faisais ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

workbook1.Range("pouet") = workbook2.Range("coincoin")