Discussion :

[PasdeSalade]

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 !

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.

[anasecu]

Bonjour,

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[PasdeSalade]

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

Bonne continuation.

Cordialement.