Bonjour,
Grâce à l'aide de Tibo ( encore merci ), mon fichier (joint) "Modules" a considérablement évolué. Mais un tableau Excel sans couleurs ..... ça ne donne pas envie.
Tout est dans le fichier :
Un tableau A "Origine" , avec des formats mis manuellement et d'autres par MFC,
Un tableau B "Extraction" sur un nombre de test et dont je souhaite copier les formats de cellules du tableau A,
Un tableau C " Par n° de modules " , fonction du tableau B, dont je souhaite également copier les formats du tableau B.
J'ai cherché dans le forum et j'ai trouvé cette macro qui pourrait correspondre éventuellement à mon besoin mais ,étant nul en VBA, ne sais pas l'adapter à mon fichier :
Sub a()
Sheets("Données").Range("B426").Copy
With Sheets("Récap")
.Range("B4").PasteSpecial xlValues
.Range("B426").SpecialCells(xlCellTypeConstants, 23).Borders.LineStyle = xlContinuous
End WithEnd Sub
Je souhaiterais que la copie se fasse de façon automatique.
Merci de votre aide.
Belligou
Grâce à l'aide de Tibo ( encore merci ), mon fichier (joint) "Modules" a considérablement évolué. Mais un tableau Excel sans couleurs ..... ça ne donne pas envie.
Tout est dans le fichier :
Un tableau A "Origine" , avec des formats mis manuellement et d'autres par MFC,
Un tableau B "Extraction" sur un nombre de test et dont je souhaite copier les formats de cellules du tableau A,
Un tableau C " Par n° de modules " , fonction du tableau B, dont je souhaite également copier les formats du tableau B.
J'ai cherché dans le forum et j'ai trouvé cette macro qui pourrait correspondre éventuellement à mon besoin mais ,étant nul en VBA, ne sais pas l'adapter à mon fichier :
Sub a()
Sheets("Données").Range("B426").Copy
With Sheets("Récap")
.Range("B4").PasteSpecial xlValues
.Range("B426").SpecialCells(xlCellTypeConstants, 23).Borders.LineStyle = xlContinuous
End WithEnd Sub
Je souhaiterais que la copie se fasse de façon automatique.
Merci de votre aide.
Belligou