Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Ajout de plusieurs conditions avt suppression de lignes?

Ajout de plusieurs conditions avt suppression de lignes?

5 réponses
Avatar
david
Bonjour,
J'aimerais faire fonctionner la macro suivante. L'idée etant d'ajouter
plusieurs conditions avant qu'une ligne soit supprimée.
Merci par avance ;)
David

sub essai
Application.ScreenUpdating = False
Application.Calculation = xlManual
For i = Sheets("calcul").[b65536].End(3).Row To 2 Step -1
If Sheets("calcul").Range("B" & i) = "Error" Then
If Sheets("calcul").Range("C" & i) = "Error" Then
If Sheets("calcul").Range("D" & i) = "Error" Then
If Sheets("calcul").Range("E" & i) = "Error" Then
If Sheets("calcul").Range("B" & i) = "Error" Then
Rows(i).Delete
End If
Next i
Application.Calculation = xlAutomatic
End Sub
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
JB
Bonjour,

Sub essai()
Application.ScreenUpdating = False
Application.Calculation = xlManual
For i = Sheets("calcul").[b65536].End(3).Row To 2 Step -1
With Sheets("calcul")
If .Cells(i, "B") = "Error" And .Cells(i, "C") = "Error" _
And .Cells(i, "D") = "Error" And .Cells(i, "E") = "Error" Then
Rows(i).Delete
End If
End With
Next i
Application.Calculation = xlAutomatic
End Sub

JB
http://boisgontierjacques.free.fr/

On 27 fév, 12:58, "david" wrote:
Bonjour,
J'aimerais faire fonctionner la macro suivante. L'idée etant d'ajouter
plusieurs conditions avant qu'une ligne soit supprimée.
Merci par avance ;)
David

sub essai
Application.ScreenUpdating = False
Application.Calculation = xlManual
For i = Sheets("calcul").[b65536].End(3).Row To 2 Step -1
If Sheets("calcul").Range("B" & i) = "Error" Then
If Sheets("calcul").Range("C" & i) = "Error" Then
If Sheets("calcul").Range("D" & i) = "Error" Then
If Sheets("calcul").Range("E" & i) = "Error" Then
If Sheets("calcul").Range("B" & i) = "Error" Then
Rows(i).Delete
End If
Next i
Application.Calculation = xlAutomatic
End Sub


Avatar
Daniel.C
Bonjour.

Essaie :
Sub essai()
Application.ScreenUpdating = False
Application.Calculation = xlManual
With Sheets("calcul")
For i = .[b65536].End(3).Row To 2 Step -1
If Application.CountIf(.Range("B" & i & ":E" & i), "Error") = 4 Then
Rows(i).Delete
End If
Next i
End With
Application.Calculation = xlAutomatic
End Sub

Tu peux augmenter le nombre de colonnes ou ajouter d'autres conditions.
Cordialement.
Daniel
"david" a écrit dans le message de news:
47c55049$0$17184$
Bonjour,
J'aimerais faire fonctionner la macro suivante. L'idée etant d'ajouter
plusieurs conditions avant qu'une ligne soit supprimée.
Merci par avance ;)
David

sub essai
Application.ScreenUpdating = False
Application.Calculation = xlManual
For i = Sheets("calcul").[b65536].End(3).Row To 2 Step -1
If Sheets("calcul").Range("B" & i) = "Error" Then
If Sheets("calcul").Range("C" & i) = "Error" Then
If Sheets("calcul").Range("D" & i) = "Error" Then
If Sheets("calcul").Range("E" & i) = "Error" Then
If Sheets("calcul").Range("B" & i) = "Error" Then
Rows(i).Delete
End If
Next i
Application.Calculation = xlAutomatic
End Sub


Avatar
JB
Bonjour,

Sub essai()
Application.ScreenUpdating = False
Application.Calculation = xlManual
For i = Sheets("calcul").[b65536].End(3).Row To 2 Step -1
With Sheets("calcul")
If .Cells(i, "B") = "Error" And .Cells(i, "C") = "Error" _
And .Cells(i, "D") = "Error" And .Cells(i, "E") = "Error" Then
Rows(i).Delete
End If
End With
Next i
Application.Calculation = xlAutomatic
End Sub

JB
http://boisgontierjacques.free.fr


On 27 fév, 12:58, "david" wrote:
Bonjour,
J'aimerais faire fonctionner la macro suivante. L'idée etant d'ajouter
plusieurs conditions avant qu'une ligne soit supprimée.
Merci par avance ;)
David

sub essai
Application.ScreenUpdating = False
Application.Calculation = xlManual
For i = Sheets("calcul").[b65536].End(3).Row To 2 Step -1
If Sheets("calcul").Range("B" & i) = "Error" Then
If Sheets("calcul").Range("C" & i) = "Error" Then
If Sheets("calcul").Range("D" & i) = "Error" Then
If Sheets("calcul").Range("E" & i) = "Error" Then
If Sheets("calcul").Range("B" & i) = "Error" Then
Rows(i).Delete
End If
Next i
Application.Calculation = xlAutomatic
End Sub


Avatar
david
Trop fort! Merci beaucoup JB. ;)
Bon après midi,
David
Avatar
francois.forcet
On 27 fév, 12:58, "david" wrote:
Bonjour,
J'aimerais faire fonctionner la macro suivante. L'idée etant d'ajouter
plusieurs conditions avant qu'une ligne soit supprimée.
Merci par avance ;)
David

sub essai
Application.ScreenUpdating = False
Application.Calculation = xlManual
For i = Sheets("calcul").[b65536].End(3).Row To 2 Step -1
If Sheets("calcul").Range("B" & i) = "Error" Then
If Sheets("calcul").Range("C" & i) = "Error" Then
If Sheets("calcul").Range("D" & i) = "Error" Then
If Sheets("calcul").Range("E" & i) = "Error" Then
If Sheets("calcul").Range("B" & i) = "Error" Then
Rows(i).Delete
End If
Next i
Application.Calculation = xlAutomatic
End Sub


Salut à toi

Je pense qu'une erreur s'est glissé dans ta dernière condition
Je suppose qu'il faut comprendre :

If Sheets("calcul").Range("F" & i) = "Error" Then

Dans cette hypothèse je te propose ceci :

For i = Sheets("calcul").[b65536].End(3).Row To 2 Step -1
Do While Sheets("calcul").Range("B" & i).Offset(0, j).Address <>
Sheets("calcul").Range("G" & i).Address
If Sheets("calcul").Range("B" & i).Offset(0, j) = "Error" Then
n = n + 1
End If
j = j + 1
Loop
If n = 5 Then
Rows(i).Delete
End If
n = 0
j = 0
Next i

Celà devrait convenir

Dis moi !!!!!