Formule VBA
Résolu
Momosenpai
Messages postés
24
Date d'inscription
Statut
Membre
Dernière intervention
-
Momosenpai Messages postés 24 Date d'inscription Statut Membre Dernière intervention -
Momosenpai Messages postés 24 Date d'inscription Statut Membre Dernière intervention -
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
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
A voir également:
- Formule VBA
- Formule si et - Guide
- Formule moyenne excel plusieurs colonnes - Guide
- Formule mathématique - Télécharger - Études & Formations
- Formule somme excel colonne - Guide
- Excel mise en forme conditionnelle formule - Guide
2 réponses
Bonjour,
essaies ceci
essaies ceci
Option Explicit
Sub Test()
Dim Dligne As Integer, Lig As Integer
Application.ScreenUpdating = False
Dligne = Range("A" & Rows.Count).End(xlUp).Row
For Lig = Dligne To 5 Step -1
If Application.Sum(Range(Cells(Lig, 2), Cells(Lig, 27))) = 0 Then Rows(Lig).Delete
Next
End Sub
Merci beaucoup