Bonjour,

J'ai essayé de chercher sur internet pour m'aider à résoudre mon problème mais je coince un peu. Peut être que je n'ai pas utiliser les bon mots clés et je me permets de vous demander votre aide. Je m'explique :
J'ai plusieurs variables que je souhaite mettre en forme. Si aucune trouvée alors ça passe à la suite du traitement. Actuellement ma macro boucle sur la première variable et ne sort jamais de ma macro ^^'

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
17
18
19
20
21
Dim MotCle1, i1 As Byte, C1 As Range
    'On définit les mots clés
    MotCle1 = Array("320730*", "3208*", "3301*", "3303*", "330430*", "330530*", "330590*", "3307*", "3403*", "3405*", "3506*", "3809*", "3810*", "3814*")
    'On effectue la recherche de chaque mot clé dans la colonne F de la sheet1
    For i1 = 0 To UBound(MotCle1) + 1
        Do
            Set C1 = Worksheets("DONNEES").Columns(1).Find(MotCle1(i1), LookIn:=xlValues, LookAt:=xlPart)
            'Si le mot clé est trouvé
            If Not C1 Is Nothing Then
                    With C1.Interior
                    .Pattern = xlSolid
                    .PatternColorIndex = xlAutomatic
                    .Color = 65535
                    .TintAndShade = 0
                    .PatternTintAndShade = 0
                    End With
                    C1.Font.Bold = True
                    'GoTo SUITETRAITEMENT
            End If
        Loop While Not C1 Is Nothing
    Next i1
Dans mon tableau, feuille 1, colonne 1 il trouve par exemple le chiffre "32073090". Il me le mettra en gras, mais ne passe pas au second critère "3208*" pour le mettre en gras également. Il boucle uniquement sur le premier critère "320730*". Mon autre problème est que s'il trouve un chiffre qui contient le critère "320730" dont le début est différent alors il me le mettra aussi en gras (exemple : 85320730 sera en gras). Alors que je souhaite mettre en forme uniquement les chiffres commençant par "320730".

Pourriez-vous m'aider ?