macro d'insertion de couleur en fonction du contenu

**Sylvainarcil** · 28/07/2015, 15h11

Bonjour,

j'aurais voulu avoir de l'aide pour une macro qui me permettrais de mettre en différente couleur (bleu, jaune ou gris) suivant se qui est écrit sur une nomenclature.
actuellement je le fait à la main ligne par ligne grâce à ne macro couleur classique se qui m'évite les manipulations souris mais cette manip me prend encore beaucoup trop de temps

j'ai essayer

Code :

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

1
2
For Each c In Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row)
    If c = "3                8" then ...........

le problème c'est que ce n'est pas la valeur complète de la ligne mais que le début
en fait je voudrait que tout se qui commence de A1 à Axxxx par "3 8" soit de la couleur jaune tout se qui commence par "4 P" soit de couleur bleue

et ainsi de suite quelqu'un pourrait m'aider svp ?

merci d'avance

**antonysansh** · 28/07/2015, 15h34

Une piste à adapter :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test()
    Dim n&, c As Range
    n = Cells(Application.Rows.Count, 1).End(xlUp).Row
    For Each c In Range(Cells(1, 1), Cells(n, 1))
        If c Like "1*" Then
            c.Interior.Color = RGB(255, 0, 0)
        ElseIf c Like "2*" Then
                c.Interior.Color = RGB(0, 255, 0)
        ElseIf c Like "3*" Then
                c.Interior.Color = RGB(0, 0, 255)
        End If
    Next
End Sub

Il te reste a choisir tes couleurs, et les tests via l'opérateur Like.
[chaine_de_caracteres] Like "3 8*" va être vrai si [chaine_de_caracteres] commence par "3 8".

**vinc_bilb** · 28/07/2015, 15h41

Bonjour,

Autre piste: un format conditionnel simple doit faire l'affaire aussi .... même sous 2003 je pense

**Sylvainarcil** · 28/07/2015, 16h06

merci beaucoup,

ça marche presque niquel juste un problème

j'ai mis :

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
Sub macrocouleur()
'
' Macrocouleur Macro
'
' Touche de raccourci du clavier: Ctrl+h
 
    Dim n&, c As Range
    n = Cells(Application.Rows.Count, 1).End(xlUp).Row
    For Each c In Range(Cells(1, 1), Cells(n, 1))
        If c Like "5                C*" Then
            c.Interior.Color = 15773696
        ElseIf c Like "3                8*" Then
                c.Interior.Color = 65535
 
        End If
    Next
End Sub

il me met bien ce qui est en "5 C" en bleu
tout se qui est en "3 8" en jaune mais aussi certaine autres lignes comme des "5 2" en jaune
et ce n'est juste ma cellule qui est de couleur et j'aimerais toute la ligne

et j'ai une deuxième problématique
je veux que toutes les lignes portant "5 C" soit en bleu sauf celles ayant une ligne en dessous portant du texte

je suis désolé si j'embête ....

**Sylvainarcil** · 28/07/2015, 16h46

en fait la macro est fait pour mon entreprise et elle est partagé pour tout nos postes ( entre 3 et 7)
je l'ai fait pour éviter toutes les manipulations de modification à la main qui nous prenaient un temps fou et dont les novices en informatique ne savent pas faire

j'ai déjà effectué toutes les mise en formes (bordures, tailles des colonnes etc...)
nous avons aussi un fichier à joindre qui à été rajouté sur simple CTRL+E

mais impossible de rajouté les couleurs qui nous permettrais un gain de temps énorme

**antonysansh** · 29/07/2015, 08h11

Bonjour,

Tu peux tester ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub test()
    Dim n&, c As Range
    n = Cells(Application.Rows.Count, 1).End(xlUp).Row
    For Each c In Range(Cells(1, 1), Cells(n, 1))
        If c Like "3 8*" Then
            c.EntireRow.Interior.Color = 65535
        ElseIf c Like "5 C*" And Cells(c.Row + 1, 1) = "" Then
            c.EntireRow.Interior.Color = 15773696
        End If
    Next
End Sub

Par contre

et j'ai une deuxième problématique
je veux que toutes les lignes portant "5 C" soit en bleu sauf celles ayant une ligne en dessous portant du texte

ici je ne teste que sur la colonne 1

**Sylvainarcil** · 29/07/2015, 08h54

voici un exemple d'une nomenclature la couleur saumon est la couleur que nous remplissons par nous même (contrôle de pièce)
par contre j'aurais aimer que le jaune et le bleu soit mis automatiquement via macro (je ne sais pas si c'es possible)

c'est toujours plus simple en voyant le fichier

ENOMFILTRED.xls

**Sylvainarcil** · 29/07/2015, 09h48

je viens de tester

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
22
23
24
Sub macrocouleur()
'
' Macrocouleur Macro
'
' Touche de raccourci du clavier: Ctrl+h
 
    Dim n&, c As Range
    n = Cells(Application.Rows.Count, 1).End(xlUp).Row
    For Each c In Range(Cells(1, 1), Cells(n, 1))
        If c Like "3                8******" Then
            c.EntireRow.Interior.Color = 65535
        ElseIf c Like "4                8******" Then
            c.EntireRow.Interior.Color = 65535
        ElseIf c Like "5                8******" Then
            c.EntireRow.Interior.Color = 65535
        ElseIf c Like "5                C*" Then
            c.EntireRow.Interior.Color = 15773696
        ElseIf c Like "5                 C*" And Cells(c.Row + 1, 1) Like "CDE*" Then
        c.EntireRow.Interior.Color = RGB(255, 255, 255)
        ElseIf c Like "5                C*" And Cells(c.Row + 1, 1) Like "OT*" Then
        c.EntireRow.Interior.Color = RGB(255, 255, 255)
        End If
    Next
End Sub

il ne veux rien savoir
et un problème que je n'avais pas pensé....

le"5 8" comporte le jaune mais aussi le bleu par contre les lignes bleue ne comporte au max que 4 chiffres les ligne jaunes 7 tout le temps j'ai essayer comme si dessus en aoutant des "*" mais il prend en compte les espaces ...

**bboy-eazy** · 29/07/2015, 09h53

BOnjour,

Juste de passage et j'en profite pour poser une question:

Code :

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

Like "2*"

Qu'elle est l'utilité de mettre une "*" ?
C'est pas la première fois que je vois ca et je ne sais pas qu'est ce que ca veut dire en langage VBA...
Merci d'avance

**Sylvainarcil** · 29/07/2015, 09h56

je pense après ce n'est que ma vision ^^'

que le "*" sert à préciser qu'il y a une suite derrière le chiffre ou la lettre

après on va attendre les professionnels

**vinc_bilb** · 29/07/2015, 10h02

Bonjour,

Voir l'aide sur le like ...

Code :

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

Like "2*"

se lit comme
"si ça commence par 2 (et peut importe ce qu'il y a derrière"

? 1 Caractère
* Zéro ou plus Caractère
# Nombre entre 0 et 9
[charlist] 1 caractère dans la charlist
....

**mayekeul** · 29/07/2015, 10h16

bonjour,

alors pour la condition, je ferais plus comme cela

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub colorize()
Dim char1 As String, char2 As String, c As Range
 
For Each c In Range("A5:A" & Cells(5, 1).End(xlDown).Row)
    char1 = Left(c, 1)
    char2 = Left(Trim(Right(c, Len(c) - 1)), 1)
    If char1 = "5" And char2 = "C" Then
        c.EntireRow.Interior.Color = 655525
    End If
Next
 
End Sub

**antonysansh** · 29/07/2015, 10h46

Bonjour le fil

L'opérateur Like trouve typiquement sont utilisation dans ce cas.
Par contre j'ai l'impression qu'à chaque réponse la problématique se complexifie ^^

Sylvainarcil tu devrais résumer (et de façon exhaustive) dans quel cas tu veux mettre de la couleur.

**Sylvainarcil** · 29/07/2015, 10h58

Merci pour l'info du like

j'ai donc fait

Code :

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

1
2
3
4
5
6
7
8
9
Dim n&, c As Range
    n = Cells(Application.Rows.Count, 1).End(xlUp).Row
    For Each c In Range(Cells(1, 1), Cells(n, 1))
        If c Like "3                8######" Then
            c.EntireRow.Interior.Color = 65535
        ElseIf c Like "4                8######*" Then
            c.EntireRow.Interior.Color = 65535
        ElseIf c Like "5                8######*" Then
            c.EntireRow.Interior.Color = 65535

et il ne me prend plus les lignes ayant une 3 ou 4 chiffres

mon dernier problème car la tout est ok sauf ça,
c'est de mettre en bleu toutes les lignes où il n'y a pas un texte en dessous du type "CDE" ou "OT" celles avec les lignes en dessous comportant du texte autre qu'un article doivent rester blanches
comme par exemple

5 792 (1) FIL DE CABLAGE PVC NORMES UL+CSA NOIR AWG14 (2,5MM2) 100,00
5 876 (1) EMBOUT SIMPLE TYPE MOYEN ROUGE SECTION:1MM2 AWG18 400,00

les deux lignes vont être bleues

mais

5 C6171766 (0) CABLE PLAT ASI NOIR 2X1.5 100,00
CDE N° : 21505699/2 pour le : 17/07/2015 : Livrée OT validé N° : 2012690609 le : 15/07/2015 OT validé N° : 2012690609 le : 15/07/2015

les lignes doivent rester banches

je suis d'accord avec toi antonysansh ^^' en fait je m'aperçois au fur et à mesure de l'avancement que ça se complexifie

**mayekeul** · 29/07/2015, 11h11

c'est simple

Il faut tester "CDE" ou "OT" ensuite, tu colories la ligne courante et la ligne précédente

**Sylvainarcil** · 29/07/2015, 11h24

je n'y avais pas penser comme cela mais oui je vais tester comme ça

question bête

j'ai fait une manip' qui m'a changer mon curseur d'écriture sous vba en un rectangle noir je ne peux plus faire espace .... comment revenir au curseur de base ?

**mayekeul** · 29/07/2015, 11h27

je pense comme cela :

Code :

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

application.cursor=xldefault

**Sylvainarcil** · 29/07/2015, 11h55

je rentre le code où ?

image ci-jointe
Nom : Sans titre.jpg
Affichages : 109
Taille : 343,4 Ko

au lieu d'avoir le curseur d'écriture standard (la ligne simple) je me retrouve avec ce gros patté la il m'est impossible d'utiliser la touche espace maintenant ....