XL 2019 Réduction de tremes dans une boucle IF...then

[scrib]

Bonjour à tout le forum,

Voilà, j'ai cette boucle If

DerLigne = Cells(Rows.Count, 1).End(xlUp).Row
    If (Range("C" & DerLigne).Value = "" And Range("D" & DerLigne).Value = "" And Range("E" & DerLigne).Value = "" _
    And Range("F" & DerLigne).Value = "" And Range("G" & DerLigne).Value = "" And Range("H" & DerLigne).Value = "" _
    And Range("I" & DerLigne).Value = "" And Range("J" & DerLigne).Value = "" And Range("K" & DerLigne).Value = "" _
    And Range("L" & DerLigne).Value = "") Then
        Range("A" & DerLigne).Value = ""
        Range("B" & DerLigne).Value = ""
    End If

Il y a-til une solution pour reduire le nombre de terme entre le If et le Then. J'ai essayé:

If (Range("A:L" & DerLigne)) then
    Range("A" & DerLigne).vlaue = ""
    Range("A" & DerLigne).Value = ""
end iF

Mais ce code ne fonctionne pas. Avez-vous une solution?
Merci pour vos future réponses.

 

[Hasco]

Bonjour,

Essayez :

'Compte le nombre de valeurs de C à L
' Si aucune alors efface A:B
If Application.CountA(Range("C" & derligne).Resize(,10)) = 0 Then

    Range("A" & derligne).Resize(, 2).Value =  Empty

End If

Où Application.CountA = fonction de feuille NBVAL


Cordialement

 

[scrib]

Bonjour Roblochon,
Merci pour cette réponse, je ne pense jamais à cette fonction qui est pourtant d'une clarté limpide.
Idem pour la fonction Resize.
Cordialement.