XL 2016 boucle vba

[titeuf70]

Bonjour
j'ai besoin de vos lumières quant à la boucle que je peut utiliser.
au fait j'ai une somme sur la cellule A2 et des heures sur la colonne B
Je voudrais mette en couleur les cellules de la colonne A dés qu'on atteint la somme cible (A2) via la colonne B

en vous remerciant par avance

 

[Wayki]

Salut,
Comme nous n'avons pas de fichier, sait tu faire une boucle pour commencer ? For each est approprié pour ton cas.

 

[job75]

Bonsoir titeuf70, Wayki,

Formule de la MFC sur toute la colonne A =(A1<>"")*(SOMME(B$1:B1)>=A$2)

A+

 

[JBARBE]

Bonsoir à tous,
Peut-être comme ceci :
Bonne nuit !

Option Explicit

Sub Test()
Dim i As Long
Range("B2") = ""
Range("A4:A1000").Interior.ColorIndex = xlNone
For i = 4 To 1000 ' de la ligne 4 à la ligne 1000
If Range("B2") < Range("A2") Then ' si la cellule A2 et supérieur à B2
Range("B2") = Range("B2") + Cells(i, 2) ' le cellule B2 est augmentée
Cells(i, 1).Interior.ColorIndex = 3 ' l'intérieur de la cellule est rouge
Else ' sortie de la boucle
Exit For
End If
Next i
End Sub

Bonsoir Job ( pas vu )

 

[JBARBE]

Re,
Peut-être je n'ai pas compris !
Voici une autre version !
Bonne nuit à tous !

Option Explicit

Sub Test()
Dim i As Long
Range("B2") = ""
Range("A4:A1000").Interior.ColorIndex = xlNone
Range("B2") = Range("B4")
For i = 5 To 1000 ' de la ligne 5 à la ligne 1000
Range("B2") = Range("B2") + Cells(i, 2) ' le cellule B2 est augmentée
If Range("B2") > Range("A2") And Cells(i, 1) <> "" Then ' si la cellule B2 et supérieur à A2
Cells(i, 1).Interior.ColorIndex = 3 ' l'intérieur de la cellule est rouge
ElseIf Cells(i, 1) = "" Then ' sortie de la boucle
Exit For
End If
Next i
End Sub

 

[titeuf70]

Re,
Peut-être je n'ai pas compris !
Voici une autre version !
Bonne nuit à tous !

Option Explicit

Sub Test()
Dim i As Long
Range("B2") = ""
Range("A4:A1000").Interior.ColorIndex = xlNone
Range("B2") = Range("B4")
For i = 5 To 1000 ' de la ligne 5 à la ligne 1000
Range("B2") = Range("B2") + Cells(i, 2) ' le cellule B2 est augmentée
If Range("B2") > Range("A2") And Cells(i, 1) <> "" Then ' si la cellule B2 et supérieur à A2
Cells(i, 1).Interior.ColorIndex = 3 ' l'intérieur de la cellule est rouge
ElseIf Cells(i, 1) = "" Then ' sortie de la boucle
Exit For
End If
Next i
End Sub

Merci infiniment ça répond à mes attentes

 

[titeuf70]

Bonsoir titeuf70, Wayki,

Formule de la MFC sur toute la colonne A =(A1<>"")*(SOMME(B$1:B1)>=A$2)

A+

merci bcp j'ai tester est c'est pratique aussi sans vba