Microsoft 365 Définir une plage variable dans le cadre d'une boucle

chris6999 à dit:

Bonjour Le FORUM

J'essaye de prédéfinir une plage variable sur laquelle passera une boucle de type for each.
Mes connaissances en VB étant fort limitées j'ai du mal à trouver …. les mots pour le dire.

Ma plage va de D3 à la cellule de la dernière donnée du tableau.

Voici mon code :

Dercol = Cells(2, Cells.Columns.Count).End(xlToLeft).Column
Derlig = Range("A" & Rows.Count).End(xlUp).Row

For Each c In Cells(range("D3"), Dercol & Derlig)
If c.Interior.ColorIndex = 2 Then c.Interior.ColorIndex = -4142
Next c

Je ne parviens pas à exécuter mon code car le système ne parvient pas à identifier la plage.

Quelqu'un peut-il m'aider dans la rédaction de ce cette commande.

merci par avance

Bien cordialement

Cliquez pour agrandir...

For Each c In Range([D3], Cells(derlig, dercol))
OU
For Each c In Range(Cells(3, "D"), Cells(derlig, dercol))

MsgBox Range([D3], Cells(derlig, dercol)).Address

Jacky67 à dit:

Bonjour à tous
Essaye avec

VB:

For Each c In Range([D3], Cells(derlig, dercol))
OU
For Each c In Range(Cells(3, "D"), Cells(derlig, dercol))

*Pour tester la plage pris en considération, on peut utiliser, par exemple

VB:

MsgBox Range([D3], Cells(derlig, dercol)).Address

**On pourrait aussi sans vba faire cela avec la mise en forme conditionnelle

Cliquez pour agrandir...

dysorthographie à dit:

bonsoir,

VB:

For Each c In Range(Range("D3"), Cells(Cells.Rows.Count, "D").End(xlUp))
    If c.Interior.ColorIndex = 2 Then c.Interior.ColorIndex = -4142
Next

Cliquez pour agrandir...