[XL-2003] Mise en forme [Résolu]

[xema972]

Bonjour,

J'ai un souci avec mon code (ci-joint), je ne comprends pas pourquoi, il me colorie toute la page en rouge alors qu'il ne doit colorié que les ligne qu'il ne trouve pas. Je ne trouve pas mon erreur

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
With Sheets("2- PREP ADI")
    'on décolorie toutes ls cellules de la feuille 1
    .Cells.Interior.ColorIndex = xlNone
    'LastLig indique la ligne de la dernière cellule remplie de la colonne G de la feuille 1
    Lastlig = .Cells(.Rows.Count, "g").End(xlUp).Row
    'On boucle sur toutes les cellules de la colonne G (de la ligne 2 à la ligne LastLig)
    For i = 2 To Lastlig
        'Pour chaque valeur de la colonne G, on cherche si elle existe en colonne q de la feuille 2
        Set c = Sheets("3- SIRCA").Range("q:q").Find(.Range("g" & i).Value, LookIn:=xlValues, lookat:=xlWhole)
        If Not c Is Nothing Then
            'Si on trouve la valeur recherchée, on fait quoi?
            Range("g" & i).Offset(0, 28).Value = c.Value
            Range("g" & i).Offset(0, 29).Value = c.Offset(0, 1).Value
            Range("g" & i).Offset(0, 31).Value = "VRAI"
            Set c = Nothing
        Else
            'Pour chaque valeur de la colonne G, on cherche si elle existe en colonne q de la feuille 2
                Set c = Sheets("5- PACIFICA").Range("q:q").Find(.Range("g" & i).Value, LookIn:=xlValues, lookat:=xlWhole)
                    If Not c Is Nothing Then
            'Si on trouve la valeur recherchée, on fait quoi?
                        Range("g" & i).Offset(0, 28).Value = "NS"
                        Range("g" & i).Offset(0, 29).Value = "NS"
                        Range("g" & i).Offset(0, 30).Value = "NS"
                        Range("g" & i).Offset(0, 34).Value = "463100000000"
                        Range("g" & i).Offset(0, 36).Value = "NS"
                        Set c = Nothing
                    Else
            'Pour chaque valeur de la colonne G, on cherche si elle existe en colonne K de la feuille 2
                Set c = Sheets("6- VIA VITA").Range("k:k").Find(.Range("g" & i).Value, LookIn:=xlValues, lookat:=xlWhole)
                        If Not c Is Nothing Then
            'Si on trouve la valeur recherchée, on fait quoi?
            Range("g" & i).Offset(0, 28).Value = "NS"
            Range("g" & i).Offset(0, 29).Value = "NS"
            Range("g" & i).Offset(0, 30).Value = "NS"
            Range("g" & i).Offset(0, 34).Value = "462211000000"
            Range("g" & i).Offset(0, 36).Value = "NS"
                    Set c = Nothing
                        Else
            'Si n'est pas trouvé, on colorie la ligne en rouge
            Intersect(.UsedRange, .Rows(i)).Interior.ColorIndex = 3
                        End If
                    End If
        End If
    Next i
End With

Merci pour votre aide

[Jean-Pierre49]

Bonjour

'Si n'est pas trouvé, on colorie la ligne en rouge
Intersect(.UsedRange, .Rows(i)).Interior.ColorIndex = 3

Si c'est la ligne pourquoi pas

Code :

.Rows(i).Interior.ColorIndex = 3

Cordialement

[gFZT82]

Bonjour,

J’ai testé ton code. il colorie bien toutes les lignes qu'il ne trouve pas dans la plage utilisée.

Cordialement.

[xema972]

Quand je le teste, il colorie toutes lignes en rouge.
Je ne sais pas si ma condition final est bien placée. Quand j'y vais pas à pas, il décolorie bien la feuille et ensuite il la recolorie

[Excellant]

Envoyé par xema972

Quand je le teste, il colorie toutes lignes en rouge.
Je ne sais pas si ma condition final est bien placée. Quand j'y vais pas à pas, il décolorie bien la feuille et ensuite il la recolorie

bonjour,

pour qu'il ne colorie pas toutes les lignes ni toutes les colonnes il faut
1. Supprimer toutes les lignes ("couper") après celle que tu n'utilises pas (exemple supprimer toutes les lignes après la 10ème)
2. Supprimer toutes les colonnes ("couper") après celle que tu n'utilises pas
(exemple supprimer toutes les colonnes après la 12ème)
3. Te placer sur la cellule A1
4. Sauver
5. Utiliser le code indiquer ci dessus en faisant intersect avec .usedrange.

Les étapes 1 à 4 permettente à Excel de prendre en compte que la dernière cellule utilisée sur ta feuille est la L2 (ligne=10, colonne=12)

Attention les étapes 3 et 4 sont obligatoires.

Est-ce assez clair ?

[gFZT82]

Quand je le teste, il colorie toutes lignes en rouge.
Je ne sais pas si ma condition final est bien placée. Quand j'y vais pas à pas, il décolorie bien la feuille et ensuite il la recolorie

Je ne comprends pas la séquence que tu décris.
En effectuant ta procédure pas à pas, tu devrais constater les phases suivantes :
- suppression du remplissage de toutes les cellules de la feuille «2- PREP ADI », donc feuille blanche.
On balaye chaque cellule renseignée de la colonne G de la feuille «2- PREP ADI »
- s’il existe une valeur identique en colonne Q de la feuille "3- SIRCA", on effectue le traitement1,
- sinon, s’il existe une valeur identique en colonne Q de la feuille "5- PACIFICA", on effectue le traitement2,
- sinon, s’il existe une valeur identique en colonne K de la feuille " 6- VIA VITA", on effectue le traitement3,
- sinon, on colorie la ligne en rouge.
Au final, on ne colorie la ligne en rouge que si la correspondance n’a pas été trouvée.
Si tu obtiens toutes les lignes en rouge, c’est qu’aucune correspondance n’a été trouvée.
Reste à savoir pourquoi.
En pas à pas, tu dois pouvoir vérifier ce qui se passe quand 2 valeurs identiques sont comparées.

Cordialement.

[xema972]

J'ai trouvé l'anomalie, en fait les lignes des feuilles de comparaison étaient masquées par un filtre. C'est pourquoi, la macro mettait une couleur sur chaque ligne.

Quand j'ai retiré le filtre plus de souci.

Est ce réellement une anomalie ?

Y a-t-il un code qui me permette de vérifié si il y a un filtre et dans ce cas le retirer.

Merci pour vos réponses