Recherche texte et mise en forme

[bazi_imene]

Bonjour,

je voudrai savoir comment faire une recherchev pour recopier un texte et de sa mise en forme

Cordialement

[taz067]

Hello
Peut-être qu’avec un fichier exemple, on pourrait voir ce que vous vous voulez faire

[bazi_imene]

Suivi des maquettes 1.xlsx (149,2 Ko)

Bonjour,

voici mon tableau

[Jacquinot_WILL-FREAD]

Bonsoir,
Une suggestion avec une petite macro :
Suivi des maquettes 1.xlsm (161,9 Ko)
Will-Fread

[bazi_imene]

Bonjour,

Merci beaucoup

[Jacquinot_WILL-FREAD]

Bonjour,
Ce fut un plaisir, n’oublie pas de marquer solution.

[bazi_imene]

Bonjour,
voici la solution j’ai modifié et réadapté

Suivi des maquettes…xlsx (344,3 Ko)

[Jacquinot_WILL-FREAD]

Bonjour,
Malheureusement, la macro n’est pas dans ce classeur.

[bazi_imene]

Je n’arrive pas a inserer l’excel avec macro donc je mets le programme ici :

Sub couleur()
Dim celluleD As Range
Dim celluleE As Range
Dim plageCouleur As Range
Dim feuille1 As Worksheet
Dim feuille2 As Worksheet

' Référence à la feuille "Feuil1"
Set feuille1 = ThisWorkbook.Worksheets("Feuil1")

' Référence à la feuille "Feuille2"
Set feuille2 = ThisWorkbook.Worksheets("Feuil2")

' Définir la plage de cellules non vides dans la colonne D de la feuille "Feuil1"
Set plageCouleur = feuille1.Range("D2:D" & feuille1.Cells(feuille1.Rows.Count, "D").End(xlUp).Row)

' Parcourir chaque cellule non vide dans la plage de la colonne D
For Each celluleD In plageCouleur
    ' Vérifier si la cellule de la colonne D n'est pas vide
    If Not IsEmpty(celluleD) Then
        ' Parcourir chaque cellule dans la colonne C de la feuille "Feuille2"
        For Each celluleE In feuille2.Range("C2:C" & feuille2.Cells(feuille2.Rows.Count, "C").End(xlUp).Row)
            ' Vérifier si les valeurs des cellules de la colonne C et de la colonne D sont égales
            If CStr(celluleE.Value) = CStr(celluleD.Value) Then
                ' Vérifier si la cellule de la colonne C contient une couleur
                If celluleE.Interior.ColorIndex <> xlNone Then
                    ' Appliquer la couleur d'arrière-plan correspondante à la cellule de la colonne D
                    celluleD.Offset(0, 1).Interior.Color = RGB(celluleE.Offset(0, 2).Value, celluleE.Offset(0, 3).Value, celluleE.Offset(0, 4).Value)
                    ' Copier la valeur correspondante dans la cellule de la colonne D
                    celluleD.Offset(0, 1).Value = celluleE.Offset(0, 5).Value
                End If
                Exit For ' Sortir de la boucle si une correspondance est trouvée
            End If
        Next celluleE
    End If
Next celluleD

End Sub

[taz067]

Voilà la procédure, le forum ne bloque pas les fichiers avec macro