Aide sur macro

gildas lechat · 29 Juin 2010

Bonjour le forum, 🙂

Ca fait un moment que je n'ai pas fait appel à vous..

Voila, j'ai une macro permettant de récupérer le contenue d'une celulle pour la copier dans un autre fichier. (mise à jour de dossier)
Cela fonctionne parfaitement.

Dans le cas ou ce n'est pas une valeur à récuper mais la couleur de la cellule, je ne sais pas comment modifier la macro..
Merci de votre aide

For I = 1 To .FoundFiles.Count

If .FoundFiles(I) <> FichierACopierPath Then
Workbooks.Open .FoundFiles(I)
FichierAEcraser = ActiveWorkbook.Name
Workbooks.Open FichierACopierPath
Workbooks(FichierACopier).Worksheets(1).Range("Y17)".Value = Workbooks(FichierAEcraser).Worksheets(1).Range("Y17)".Value
Workbooks(FichierACopier).Worksheets(1).Range("Q18:R18)".Value = Workbooks(FichierAEcraser).Worksheets(1).Range("Q18:R18").Value
Workbooks(FichierAEcraser).Close
Workbooks(FichierACopier).Activate
ActiveWorkbook.SaveAs .FoundFiles(I) 'enregistrement du fichier actuel sur tous les fichiers "a-...." du repertoire et de ses sous dossiers
ActiveWorkbook.Close
End If
Next

Guest · 29 Juin 2010

Re : Aide sur macro

Bonjour,

Exemple:

Pour la couleur de fond d'une cellule

Code:

Workbooks(FichierACopier).Worksheets(1).Range("Y17").[COLOR=blue]Interior.ColorIndex[/COLOR] = Workbooks(FichierAEcraser).Worksheets(1).Range("Y17").[COLOR=blue]Interior.ColorIndex[/COLOR]

Pour la couleur d'écriture: .Font.ColorIndex

A+

gildas lechat · 29 Juin 2010

Re : Aide sur macro

Bonjour Hasco,

Merci beaucoup
gildas

Aide sur macro

gildas lechat

XLDnaute Occasionnel

Guest

Guest

gildas lechat

XLDnaute Occasionnel

Discussions similaires

Aide sur macro

gildas lechat

XLDnaute Occasionnel

Guest

Guest

gildas lechat

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency