Modifier le format de cellule par procédure

Bonjour à toutes et tous.

Je vous avais sollicité pour "Report de texte d'une cellule vers une autre" et vous m'avez permis d'avancer ! :D

Aujourd'hui je tourne en rond car j'essaie de modifier "dans la foulée" le format de ces cellules saisies (par la Sub re_insert()), en cherchant leur correspondance dans la colonne G de la feuille Système, et de récupérer Interior.Color et Font.ColorIndex, et enfin de l'appliquer à cette cellule, et ainsi de suite.

Est-il possible d'exécuter cette action sans avoir la feuille activée, passer en revue ces 4 cellules (pour mon exemple) et leur "appliquer" cette modif après recherche ??

J'espère que j'ai réussi à m'expliquer ?

Merci beaucoup.

Bonjour,

Citation:

---

Envoyé par PasdeSalade

j'essaie de modifier "dans la foulée" le format de ces cellules saisies (par la Sub re_insert()), en cherchant leur correspondance dans la colonne G de la feuille Système, et de récupérer Interior.Color et Font.ColorIndex, et enfin de l'appliquer à cette cellule, et ainsi de suite.

---

Je te propose de modifier ainsi ta procédure pour avoir les formats dans la feuille 'ville'

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub re_insert() Dim uligne As Integer Dim vcolonne As Integer Dim cel As Range Range("PListe").Select With Sheets("Système") For uligne = 2 To Selection.Rows.Count + 1 Sheets("Ville").Cells(4, .Range("B" & uligne).Value).Value = .Cells(uligne, 6).Value Set cel = .Columns("G").Find(.Cells(uligne, 6).Value, Range("G2")) If Not cel Is Nothing Then cel.Copy Sheets("Ville").Cells(4, .Range("B" & uligne)).PasteSpecial xlPasteFormats End If Next uligne End With End Sub

---

Bonjour anasecu,
merci de ce retour, cela marche pour moi, je vais pouvoir continuer mon bout de chemin !! :lol:

Bonne continuation.

Cordialement.