Formating conditionnel VBA

Version imprimable

Bonjour,

Je suhaiterais faire un format conditionnel via VBA et ne parvient pas a faire donctionner mon code.
J'ai une table dans laquelle je souhaite faire une boucle pour balayer toute la table en ligne et en colonne.
pour chaque ligne , je souhaite colorer les 25 cellules suivante sur la même ligne si une cellule est égale à 50

Voici le code que j'ai fait, mais je n'arrive pas a rentrer dans la dernière boucle for...

Auriez vous des conseils?
Si il est possible de faire cette mise en forme via la "mise en forme conditionnelle" je suis aussi interessée.
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 Sub Essai_MiseEnForme() Dim FinLigne As Integer Dim FinColonne As Integer 'i=row 'j=column FinLigne = Cells(3, 4).End(xlToRight).Column FinColonne = Cells(4, 2).End(xlDown).Row For i = 4 To FinLigne For j = 4 To FinColonne If Cells(i, j) = 50 Then 'k = increment pour colorer For k = j + 1 To k = j + 25 'ici je n'arrive pas a entrer dans la boucle for Cells(i, k).Font.ColorIndex = 41 Next End If Next Next End Sub
Merci beaucoup

20/10/2020, 10h07
cavo789

Bonjour

Sans VBA, as-tu déjà essayé le formatage conditionnel ? Si tu sélectionnes les 25 cellules puis, dans ta condition, tu dis quelque chose comme "supérieur" et "A1>50" (je le fais de tête; sans vérifier), cela doit pourtant fonctionner.

Note que VBA sera forcément, monstrueusement, plus lent.

Bonjour JudRos,

Je pense avoir trouvé 2 petites erreurs à la première lecture de ton code.

Tu aurais pas inversé FinLigne et FinColonne ?

Et une petite erreur dans la description de ton For k.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub Essai_MiseEnForme()
 
Dim FinLigne As Integer
Dim FinColonne As Integer
'i=row
'j=column
 
FinLigne = Cells(3, 4).End(xlToRight).Column  'Nbr de Colonne
FinColonne = Cells(4, 2).End(xlDown).Row      'Nbr de Ligne
 
For i = 4 To FinLigne   ' Donc i = 4 to Nbr Colonne ??
    For j = 4 To FinColonne   ' Donc j = 4 to Nbr Ligne ??
        If Cells(i, j) = 50 Then
        'k = increment pour colorer
            For k = j + 1 To j + 25 'tu avais écris k =  j +1 to k = j + 25. Il ne faut pas réécrire ta variable après le "to". Il faut comprendre k = ((j +1) to (j + 25))
                 Cells(i, k).Font.ColorIndex = 41
            Next
        End If
    Next
Next
 
End Sub

Zeabon

20/10/2020, 10h33
Zeabon

Citation:

Envoyé par cavo789

Bonjour

Sans VBA, as-tu déjà essayé le formatage conditionnel ? Si tu sélectionnes les 25 cellules puis, dans ta condition, tu dis quelque chose comme "supérieur" et "A1>50" (je le fais de tête; sans vérifier), cela doit pourtant fonctionner.

Note que VBA sera forcément, monstrueusement, plus lent.

Bonjour cavo789,

Dans la macro, on remarque que le balayage de la plage est vertical et horizontal.

Donc si une 25 cellules à gauche ou la cellule même ont la valeur 50, alors elle est colorier.

En fonction du nombre de colonne, je pense que le formatage conditionnel risque d'être difficile à appliquer.

Zeabon

bonjour à tous
à tester

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
Option Explicit
Sub colorier()
Dim F As Worksheet
Set F = Sheets("Feuil1")
Dim i As Long
Dim derlig As Long
Dim dercol As Long
Dim plage As Range
Dim Cel As Range
Dim L As Long
Dim C As Long
Dim X As Integer
derlig = F.Cells.SpecialCells(xlCellTypeLastCell).Row
dercol = F.Cells.SpecialCells(xlCellTypeLastCell).Column
Set plage = F.Range(F.Cells(1, 1), F.Cells(derlig, dercol))
For Each Cel In plage
If Cel.Value = 50 Then
L = Cel.Row
C = Cel.Column
For C = C To C + 26
F.Cells(L, C).Interior.Color = RGB(50, 200, 100)
Next C
End If
Next Cel
End Sub

20/10/2020, 12h54
JudRos

bonjour,

Merci beaucou pour votre aide, en effet j'ai corrigé les erreurs comme dit par Zeabon et tout roule!

En effet en formating conditionnel, vu que ce que je souhaite controler est glissant, c'est trop compliqué.

Merci beaucoup pour votre aide.