Mise en forme d'une cellule suivant sa valeur VBA

Version imprimable

1 pièce(s) jointe(s)

Bonjour à tous,

J'aimerais mettre en couleur des lignes suivant leurs valeurs, en réalité, tous les impaires comme dans cet exemple (ici en rouge) :

Pièce jointe 569860

J'ai donc crée une boucle comme ceci :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Ligne = 10 'première ligne à vérifier compteur3 = 1 Do While Not IsEmpty(Range("A" & Ligne)) If Worksheets("excel").Range("A" & Ligne).Value = compteur3 Then Range("A" & Ligne).Font.Color = RGB(255, 0, 0) End If compteur3 = compteur3 + 2 Ligne = Ligne + 1 Loop
Ce code ne fonctionne pas, seulement la ligne 10 est rouge.
Il ne boucle pas correctement dans le IF, pourtant l’algorithme me semble bon...

Merci d'avance.

Citation:

Envoyé par AirDuster

Bonjour,

A tester :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Sub Test()
 
Dim I As Long, DerniereLigne As Long
 
    With ActiveSheet
         DerniereLigne = .UsedRange.SpecialCells(xlCellTypeLastCell).Row
         For I = 10 To DerniereLigne
             With .Cells(I, 1)
                  .Font.ColorIndex = xlAutomatic
                  If .Value Mod 2 > 0 Then .Font.Color = RGB(255, 0, 0)
             End With
         Next I
    End With
 
End Sub

03/06/2020, 14h29
Menhir

Il y a beaucoup plus simple : faire une mise en forme conditionnelle avec la formule =MOD(A10;2)=1.
03/06/2020, 14h32
AirDuster

Bonjour Eric,

Merci pour votre réponse, cela fonctionne parfaitement !

Par contre, petite mise à jour de mes besoins, seul colonne A est en rouge, que dois-je modifier si je veux que ce soient les lignes A à I qui soit en rouge ?

Merci beaucoup !
03/06/2020, 16h22
AirDuster

Dois-je créer plusieurs FOR ?
03/06/2020, 16h24
Menhir

Selon moi, tu n'as même pas besoin de créer de macro.

Citation:

Envoyé par AirDuster

Par contre, petite mise à jour de mes besoins, seul colonne A est en rouge, que dois-je modifier si je veux que ce soient les lignes A à I qui soit en rouge ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Sub Test()
 
Dim I As Long, J As Long, DerniereLigne As Long
 
    With ActiveSheet
         DerniereLigne = .UsedRange.SpecialCells(xlCellTypeLastCell).Row
         For I = 10 To DerniereLigne
             For J = 1 To 9
                 With .Cells(I, J)
                      If IsNumeric(.Value) Then
                         .Font.ColorIndex = xlAutomatic
                         If .Value Mod 2 > 0 Then .Font.Color = RGB(255, 0, 0)
                      End If
                 End With
             Next J
         Next I
    End With
 
End Sub

04/06/2020, 09h07
AirDuster

2 pièce(s) jointe(s)

Bonjour Eric,

Le code que vous m'avez envoyé ne fonctionne pas correctement, j'aimerais que la ligne soit rouge uniquement en fonction de la colonne A comme ceci :
Pièce jointe 570106

Là le code fait un modulo de toutes les cellules comme ceci :
Pièce jointe 570108

J'ai bien évidemment essayé de modifier le code avant de revenir demander de l'aide.
04/06/2020, 09h14
Menhir

Avec une MFC, ça se fait en 1 min.

Citation:

Envoyé par AirDuster

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Sub Test()
 
Dim I As Long, DerniereLigne As Long
 
    With ActiveSheet
         DerniereLigne = .UsedRange.SpecialCells(xlCellTypeLastCell).Row
         .Range(.Cells(10, 1), .Cells(DerniereLigne, 9)).Font.ColorIndex = xlAutomatic
         For I = 10 To DerniereLigne
             If .Cells(I, 1).Value Mod 2 > 0 Then
                .Range(.Cells(I, 1), .Cells(I, 9)).Font.Color = RGB(255, 0, 0)
             End If
         Next I
    End With
 
End Sub

Bonjour Menhir :coucou:

04/06/2020, 09h48
AirDuster

Citation:

Envoyé par Menhir

Avec une MFC, ça se fait en 1 min.

Je ne connais pas du tout ces fonctionnalités, je vais me renseigner ! Merci.

Ton code fonctionne parfaitement Eric ! Merci beaucoup !
04/06/2020, 10h21
Menhir

Si j'ai bien compris, tes données commencent en A10.

Sélectionne l'ensemble de tes données > Ruban Accueil > Mise en Forme conditionnelle > Nouvelle règle > Type de règle = Utiliser une formule...
Dans le champ formule, mettre =MOD($A10;2)=1.
Bouton Format > Onglet Remplissage > Choisi la couleur que tu souhaite > Ok > Ok

Montre en main, ça m'a pris 20 seconde pour faire la même chose que ce code.
Et en plus, c'est dynamique. C'est-à-dire que ça se remet à jour instantanément en fonction des saisies.

Citation:

Envoyé par AirDuster

Puisqu'on parle de dynamisme : Code à mettre dans le module de l'onglet.

Code:

1
2
3
4
5
6
7
8
9
10
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
   If Target.Count > 1 Then Exit Sub
 
   If Not Intersect(Target, Range("A10:A1000")) Is Nothing Then  ' Dernière ligne à adapter
       Test
   End If
 
End Sub

04/06/2020, 11h07
AirDuster

J'ai choisi de passer par du VBA car mon fichier Excel ajoute et supprime des feuilles suivant certaines manipulation (c'est sur ces feuilles que cette mise en forme m'intéresse), j'ai donc supposé (à tort ?) qu'il était donc impossible de passer par de la mise en forme conditionnelle.
04/06/2020, 11h13
Invité

Citation:

Envoyé par AirDuster

J'ai choisi de passer par du VBA car mon fichier Excel ajoute et supprime des feuilles suivant certaines manipulation (c'est sur ces feuilles que cette mise en forme m'intéresse), j'ai donc supposé (à tort ?) qu'il était donc impossible de passer par de la mise en forme conditionnelle.

Pas besoin de vous justifier...
Il suffit d'avoir un onglet modèle à dupliquer selon les besoins et contenant l'une ou l'autre solution sachant que celle de Menhir restera la pus simple.
07/06/2020, 20h32
Pierre Fauconnier

Salut.

Aller plus vite "montre en mains" avec une technique plutôt qu'une autre ne veut rien dire car tout dépend du contexte. Si une MFC (mise en forme conditionnelle) est par essence dynamique et s'applique sans code, il est clair que si le besoin est de créer des feuilles à la volée, éventuellement statiques, la mfc, mise en place par Excel ou par vba (car il est possible de mettre de la mfc par VBA, mais attention aux versions linguistiques du code utilisé), n'a strictement aucun intérêt.

La comparaison d'une méthode Excel et de l'utilisation de VBA n'a de sens que dans un contexte qui permet la comparaison ;)

Cela dit, si les données s'y prêtent, ce qui a l'air d'être le cas ici, la mise en tableau structuré avec l'option "Lignes à bande" résout le problème sans mfc. Tout est donc, comme souvent, une question de contexte.