XL 2016 boucle vba

titeuf70 · 24 Août 2021

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 · 24 Août 2021

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

job75 · 24 Août 2021

Bonsoir titeuf70, Wayki,

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

A+

JBARBE · 24 Août 2021

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

VB:

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 · 24 Août 2021

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

Code:

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 · 25 Août 2021

JBARBE à dit:

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

Code:

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 · 25 Août 2021

job75 à dit:
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

XL 2016 boucle vba

titeuf70

XLDnaute Nouveau

Wayki

XLDnaute Impliqué

job75

XLDnaute Barbatruc

Pièces jointes

JBARBE

XLDnaute Barbatruc

Pièces jointes

JBARBE

XLDnaute Barbatruc

Pièces jointes

titeuf70

XLDnaute Nouveau

titeuf70

XLDnaute Nouveau

Discussions similaires