Copie motif de fond de cellule format de police

[sev]

Bonjour à tous,

comment copier le motif d'un fond de cellule et le format de police ( gras, souligné, italique, couleur) ?


Private Sub CommandButton1_Click()
Application.ScreenUpdating = False

NoColonne = 3
NoPremLigne = 6: NoDernLigne = 151
For L = NoPremLigne To NoDernLigne: CoulFond = Sheets("PARC").Cells(L, NoColonne).Interior.ColorIndex
For I = NoPremLigne To NoDernLigne
If Sheets("ROSE").Cells(I, NoColonne) = Sheets("PARC").Cells(L, NoColonne) Then
Sheets("ROSE").Cells(I, NoColonne).Interior.ColorIndex = CoulFond
End If
Next
Next
end sub

 

[fanfan38]

Re : Copie motif de fond de cellule format de police

Bonjour
J'ai essayé ta macro
1° un fichier exemple aurai été le bienvenu...
2° La seul erreur que j'ai trouvé (et en plus ça marche après correction)
Avant le end sub ajoute cette ligne
Application.ScreenUpdating = True
car tu annule l'affichage au debut de la macro et tu ne le remet pas en service...

A+ François