OVH Cloud OVH Cloud

Code VBA

1 réponse
Avatar
Albert
Je dois dans un if then faire r=E9f=E9rence =E0 une somme de=20
quatre cellules. Si la somme est sup=E9rieure =E0 0, la ligne=20
s'=E9fface, autrement je descends d'une ligne et je=20
recommence.=20

Quelqu'un aurait-il la gentillesse de m'aider et=20
m'expliquer comment =E9crire ce code.

Merci d'avance.

1 réponse

Avatar
ru-th
Salut

une possibilité
Sub test()
For i = [a65536].End(xlUp).Row To 1 Step -1
If Application.Sum(Range("a" & i & ":d" & i)) > 12 Then Rows(i).Delete
Next
End Sub

a+
rural thierry
"Albert" a écrit dans le message de news:
099901c3dc1f$27cd51d0$
Je dois dans un if then faire référence à une somme de
quatre cellules. Si la somme est supérieure à 0, la ligne
s'éfface, autrement je descends d'une ligne et je
recommence.

Quelqu'un aurait-il la gentillesse de m'aider et
m'expliquer comment écrire ce code.

Merci d'avance.