Ajout de plusieurs conditions avt suppression de lignes?

Le
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #5238561
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"
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


Daniel.C
Le #5238541
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" 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


JB
Le #5238531
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"
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


david
Le #5238521
Trop fort! Merci beaucoup JB. ;)
Bon après midi,
David
francois.forcet
Le #5238501
On 27 fév, 12:58, "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


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 !!!!!

Publicité
Poster une réponse
Anonyme