Bonjour à tous,
Après recherches je n'ai pas trouvé ce qu'il me faut. Je pense que ca devrait vite être réglé puisque le chantier n'est pas très important.
Je voudrais juste savoir comment, en plus de copier le contenu des cellules, copier leurs mises en forme. J'ai le code pour la copie de contenu. Est ce qu'il s'agir juste d'une extension qui précise la copie de mise en forme sans exclure la copie de contenu ? Cela m'étonnerait, la copie de contenu me semblerai implicite. Quant à l'extension précisant la copie de la mise en forme, je pense qu'elle exclue la copie du contenu.
Pouvez vous me dire si ce que je pense n'est pas faux et m'indiquer comment procéder pour copier le contenu et la mise en forme ?
Merci beaucoup.
Après recherches je n'ai pas trouvé ce qu'il me faut. Je pense que ca devrait vite être réglé puisque le chantier n'est pas très important.
Je voudrais juste savoir comment, en plus de copier le contenu des cellules, copier leurs mises en forme. J'ai le code pour la copie de contenu. Est ce qu'il s'agir juste d'une extension qui précise la copie de mise en forme sans exclure la copie de contenu ? Cela m'étonnerait, la copie de contenu me semblerai implicite. Quant à l'extension précisant la copie de la mise en forme, je pense qu'elle exclue la copie du contenu.
Pouvez vous me dire si ce que je pense n'est pas faux et m'indiquer comment procéder pour copier le contenu et la mise en forme ?
Code:
With Sheets("Rapport actuel").Range("A65536").End(xlUp)
.Offset(1).FormulaR1C1 = "=Entrée!R" & Cel.Row & "C1"
.Offset(1, 1).FormulaR1C1 = "=Entrée!R" & Cel.Row & "C2"
.Offset(1, 2).FormulaR1C1 = "=Entrée!R" & Cel.Row & "C3"
.Offset(1, 3).FormulaR1C1 = "=Entrée!R" & Cel.Row & "C4"
.Offset(1, 4).FormulaR1C1 = "=Entrée!R" & Cel.Row & "C5"
.Offset(1, 12).FormulaR1C1 = "=Entrée!R" & Cel.Row & "C7"
End With
Merci beaucoup.