ci-dessous un bout de macro qui a pour but de r=E9cup=E9rer des
commentaires d'une feuille sur une autre.
la r=E9cup se fait bien, mais je n'arrive pas =E0 trouver le code qui
convient pour r=E9cup=E9rer le format (la couleur).
Merci pour l'astuce
Sub recupcommentaires()
Dim lign(1 To 5000), com1(1 To 5000), com2(1 To 5000), com3(1 To
5000), com4(1 To 5000), com5(1 To 5000) As Variant
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Philippe.R
Bonjour, La couleur de fond de la cellule sera donnée par : Cells(i, 1).interior.colorindex -- Avec plaisir http://dj.joss.free.fr/trombine.htm http://jacxl.free.fr/mpfe/trombino.html Philippe.R Pour se connecter au forum : http://www.excelabo.net/mpfe/connexion.php News://news.microsoft.com/microsoft.public.fr.excel a écrit dans le message de news: Bonjour,
ci-dessous un bout de macro qui a pour but de récupérer des commentaires d'une feuille sur une autre. la récup se fait bien, mais je n'arrive pas à trouver le code qui convient pour récupérer le format (la couleur).
Merci pour l'astuce
Sub recupcommentaires() Dim lign(1 To 5000), com1(1 To 5000), com2(1 To 5000), com3(1 To 5000), com4(1 To 5000), com5(1 To 5000) As Variant
Sheets("synthese orderbook").Select nd = Cells(4, 3).End(xlDown).Row For i = 4 To nd For j = 1 To nl li = Cells(i, 3).Value If li = lign(j) Then Cells(i, 150).Value = com1(j) Cells(i, 151).Value = com2(j) Cells(i, 152).Value = com3(j) Cells(i, 153).Value = com4(j) Cells(i, 154).Value = com5(j)
GoTo line0 End If Next line0:
Bonjour,
La couleur de fond de la cellule sera donnée par :
Cells(i, 1).interior.colorindex
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
<benoult@sperianprotection.com> a écrit dans le message de
news:f527f1d0-2825-440b-acf9-c9e7de915f13@2g2000hsn.googlegroups.com...
Bonjour,
ci-dessous un bout de macro qui a pour but de récupérer des
commentaires d'une feuille sur une autre.
la récup se fait bien, mais je n'arrive pas à trouver le code qui
convient pour récupérer le format (la couleur).
Merci pour l'astuce
Sub recupcommentaires()
Dim lign(1 To 5000), com1(1 To 5000), com2(1 To 5000), com3(1 To
5000), com4(1 To 5000), com5(1 To 5000) As Variant
Bonjour, La couleur de fond de la cellule sera donnée par : Cells(i, 1).interior.colorindex -- Avec plaisir http://dj.joss.free.fr/trombine.htm http://jacxl.free.fr/mpfe/trombino.html Philippe.R Pour se connecter au forum : http://www.excelabo.net/mpfe/connexion.php News://news.microsoft.com/microsoft.public.fr.excel a écrit dans le message de news: Bonjour,
ci-dessous un bout de macro qui a pour but de récupérer des commentaires d'une feuille sur une autre. la récup se fait bien, mais je n'arrive pas à trouver le code qui convient pour récupérer le format (la couleur).
Merci pour l'astuce
Sub recupcommentaires() Dim lign(1 To 5000), com1(1 To 5000), com2(1 To 5000), com3(1 To 5000), com4(1 To 5000), com5(1 To 5000) As Variant