Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

  • Initiateur de la discussion Initiateur de la discussion scrib
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

scrib

XLDnaute Nouveau
Bonjour à tout le forum,

Voilà, j'ai cette boucle If
VB:
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é:
VB:
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.
 
Solution
Bonjour,

Essayez :
VB:
'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
Bonjour,

Essayez :
VB:
'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
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
4
Affichages
177
  • Question Question
Microsoft 365 Export données
Réponses
4
Affichages
649
Réponses
8
Affichages
233
Réponses
2
Affichages
153
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…