XL 2016 Offset avec step variable

bonjour
il me parait plus opportun d'utiliser une MFC sur la valeur NL ou Dr en ligne 3 et appliquer a la colonne entière
tout simplement 😉

Bonjour Atoto, Patrick,
Ensuite si c'est pour comprendre l'erreur qu'il y a dans votre code, il faut fournir une PJ.. avec du code.

Bonjour @Atoto, @patricktoulon 🙂 , @sylvanu 🙂

On repère d'abord les colonnes concernées d'après l'intitulé de leur en-tête dans un tableau.
On utilise ensuite ce tableau dans une boucle.

perso je l'ai fait en MFC pour tester ça fonctionne très bien 😉
plus de code 😉
et en cas d’élargissement du tableau ça se fait tout seul 😉

patricktoulon à dit:

perso je l'ai fait en MFC pour tester ça fonctionne très bien 😉
plus de code

Cliquez pour agrandir...

Tout à fait d'accord. Mais comme le demandeur a parlé de code...

(après, on peut en VBA appliquer la MFC, mais c'est pas du jeu !)

sylvanu à dit:

Bonjour Atoto, Patrick,
Ensuite si c'est pour comprendre l'erreur qu'il y a dans votre code, il faut fournir une PJ.. avec du code.

Cliquez pour agrandir...

Bonjour
Merci de votre aide

Ce code est fait pour plusieurs onglets.

j'ai créé un module pour les colonnes du champ "DR" et un autre pour les colonnes du champ "NL".

Sub colorer_Dr()
Dim onglet As Worksheet
Dim derniere_ligne As Long
Dim ligne_en_cours As Long
Dim Seuil As Variant
Dim Classe As Long
Dim s&
Dim n As Byte
For s = 4 To Sheets.Count
Set onglet = Worksheets(s)
derniere_ligne = onglet.Cells(Rows.Count, 7).End(xlUp).Row
For ligne_en_cours = 3 To derniere_ligne
For n = 0 To 45 Step 5
Seuil = onglet.Cells(ligne_en_cours, 7).Offset(0, n).Value
Classe = onglet.Cells(ligne_en_cours, 5).Value
Application.ScreenUpdating = False
If Seuil = "" Then

onglet.Cells(ligne_en_cours, 7).Offset(0, n).Interior.ColorIndex = -4142
ElseIf Classe = 2 And Seuil >= 1.2 Then
onglet.Cells(ligne_en_cours, 7).Offset(0, n).Interior.ColorIndex = 22
ElseIf Classe = 2 And Seuil <= 1 Then
onglet.Cells(ligne_en_cours, 7).Offset(0, n).Interior.ColorIndex = 35
Else
onglet.Cells(ligne_en_cours, 7).Offset(0, n).Interior.ColorIndex = 36

If Classe = 3 And Seuil >= 1.5 Then
onglet.Cells(ligne_en_cours, 7).Offset(0, n).Interior.ColorIndex = 22
ElseIf Classe = 3 And Seuil <= 1.2 Then
onglet.Cells(ligne_en_cours, 7).Offset(0, n).Interior.ColorIndex = 35
Else
onglet.Cells(ligne_en_cours, 7).Offset(0, n).Interior.ColorIndex = 36


If Classe = 4 And Seuil >= 1.8 Then
onglet.Cells(ligne_en_cours, 7).Offset(0, n).Interior.ColorIndex = 22
ElseIf Classe = 4 And Seuil <= 1.5 Then
onglet.Cells(ligne_en_cours, 7).Offset(0, n).Interior.ColorIndex = 35
Else
onglet.Cells(ligne_en_cours, 7).Offset(0, n).Interior.ColorIndex = 36

End If
End If
End If
Next
Next
Next
End Sub

Bonsoir Atoto,Patrick, Mapomme,
Just for the fun, avec la macro originale.
C'est un exercice de style.
il faut rendre le Step de la boucle dynamique, sauf qu'un Step ne peut être que statique.
( non, non, non pas de Goto )
D'où le recours à un While, et la recherche du Dr suivant avec un Match.

Bonsoir Sylvanu
J'ai pas fait attention aux dernières colonnes de mon tableau le code s’arrête à la colonne "44" les colonnes "48" et "49" ne sont pas colorées.
merci de revoir le code je suis planté et merci bcp de ton aide.

Bonsoir Sylvanu
Merci infiniment j'arrive à résoudre le problème j'ai rempli les Cellules "BC" et "BD" par un NL et Dr est ça marche très bien.
Les mots me manquent vraiment pour vous remercier pour votre savoir que vous étaler gratuitement.

Bonjour,
Je "n'étale" jamais mon savoir, j'essaye juste de partager le peu de connaissance que j'ai. 🙂