Formule VBA Résolu/Fermé

Question

Bonjour ,

Voici mon problème :
 
J'ai essayé de faire un code VBA qui me supprime les lignes d'un tableau quand une plage (A2, AA2)par exemple  de cette même ligne ne contient aucun numéro .


Sub Test()

 Dligne = Range("A" & Rows.Count).End(xlUp).Row

For i = 5 To Dligne ' mon tableau commence a partir de la ligne 5
  
 If Cells(i, 2).Value = 0 And Cells(i, 3).Value = 0 And Cells(i, 4).Value = 0 ' allant jusqu'a 27 Then

 Rows(i).Delete
 
End If

Next i

End Sub

Y'a t il un moyen d'améliorer cette formule ? Merci 

Voici un exemple 

	https://www.cjoint.com/?DDdkVZqBLsM

merci d'avance

michel_m · Answer

Bonjour,

essaies ceci

Option ExplicitSub Test()Dim Dligne As Integer, Lig As IntegerApplication.ScreenUpdating = False Dligne = Range("A" & Rows.Count).End(xlUp).RowFor Lig = Dligne To 5 Step -1     If Application.Sum(Range(Cells(Lig, 2), Cells(Lig, 27))) = 0 Then Rows(Lig).DeleteNextEnd Sub

foo · Answer

Bonjour

Pour effacer les ligne on commence par la fin

Sub Test()
Dligne = Range("A" & Rows.Count).End(xlUp).Row
   For I = Dligne To 5 Step -1
      If Cells(I, 2).Value = "" And Cells(I, 3).Value = 0 And Cells(I, 4).Value = "" Then
         Rows(I).Delete
      End If
   Next
End Sub

A+
Maurice

Formule VBA

2 réponses

Discussions similaires