Supprimer des lignes selon un critère déterminé avec une macro VBA

phlaurent55 à dit:

Bonjour RTS001, et bienvenue sur le forum

Voici le code qui répond à ta demande

Code:

For i = Range("A65535").End(xlUp).Row To 3 Step -1
If Cells(i, 1) = "" Or Left(Cells(i, 1), 4) <> "E201" Then Rows(i).Delete
Next i

à+
Philippe

Cliquez pour agrandir...

Loub06 à dit:

VB:

Sheets("RECAP").Select
Dim j As Long
For j = Range("F65535").End(xlUp).Row To 3 Step -1
    If Cells(j, 1) = "" Then Rows(j).Delete
Next j

Cliquez pour agrandir...

Sheets("RECAP").Select
Dim j As Long
For j = Range("F65535").End(xlUp).Row To 3 Step -1
    If Cells(j, 8) = "" Then Rows(j).Delete
Next j

If Range("$B$46") <> "" Then
    Sheets("FICHE SORTIE").Range("B46:J57").Select
    Selection.Copy
    Sheets("RECAP").Select
    Range("F2").End(xlDown).Offset(1, -5).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Else
    MsgBox "La cellule B46 de la feuille FICHE SORTIE n'est pas remplie"
End If

Ethiryn - Glarilak à dit:

Bonjour Loub06,

Ton code supprime la ligne si la case de la colonne 1 (A) ligne j est vide.

Dans ton document les lignes qui sont supprimer ne sont pas renseigner en colonne 1(A). Tu as donc 2 solutions :

Solution 1 : Tu choisis une colonne où tu est sur d'avoir une donner quant tu ne veux pas que la ligne soit supprimer comme par exemple la colonne 8 (H).

VB:

Sheets("RECAP").Select
Dim j As Long
For j = Range("F65535").End(xlUp).Row To 3 Step -1
    If Cells(j, 8) = "" Then Rows(j).Delete
Next j

A été changer la valeur dans la fonction Cells.

Solution 2 : Tu t'assures que tu as une information en colonne 2(B) ligne 46 chaque fois que tu fais ton copier coller par macro. Par exemple le code si-dessous ici de ton document, mais modifier.

VB:

If Range("$B$46") <> "" Then
    Sheets("FICHE SORTIE").Range("B46:J57").Select
    Selection.Copy
    Sheets("RECAP").Select
    Range("F2").End(xlDown).Offset(1, -5).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Else
    MsgBox "La cellule B46 de la feuille FICHE SORTIE n'est pas remplie"
End If

A été ajouter la partie condition du if et end if plus le else pour prévenir l'utilisateur.

J'espère avoir répondu à ta question Loub06.

Ethiryn - Glarilak

Cliquez pour agrandir...

Ethiryn - Glarilak à dit:

Sheets("RECAP").Select
Dim j As Long
For j = Range("F65535").End(xlUp).Row To 3 Step -1
If Cells(j, 8) = "" Then Rows(j).Delete
Next j

Cliquez pour agrandir...

Ethiryn - Glarilak à dit:

Les lignes à supprimer sont les lignes où il n'y a que des "0" dans les cellules ?

Si oui, il faut éviter qu'il y ait des "0".

Pour cela il faut que les formules de la feuille FICHE SORTIE, dans la zone de travail affiche toujours soit la donnée soit rien (pas de 0).
Exemple de formule en :
- G46 : SI($B20<>"";$B20;"")
- H46 : SI($C20<>"";$C20;"")
- I46 : SI($G46<>"";"NON";"")
Formule à entrer dans la cellule respective et à étirer dans le tableau. A noter qu'elle suivent la même logique que c'est que tu as entrer en E46 pour le salarié.

Si ce sont bien les lignes à supprimer alors cela est censée convenir avec la première solution donner précédemment.


Ethiryn - Glarilak

Cliquez pour agrandir...

Ethiryn - Glarilak à dit:

- G46 : SI($B20<>"";$B20;"")
- H46 : SI($C20<>"";$C20;"")
- I46 : SI($G46<>"";"NON";"")

Cliquez pour agrandir...

Ethiryn - Glarilak à dit:

Code:

Sheets("RECAP").Select
Dim j As Long
For j = Range("F65535").End(xlUp).Row To 3 Step -1
  If Cells(j, 8) = "" Then Rows(j).Delete
Next j

Cliquez pour agrandir...

Ethiryn - Glarilak à dit:

Ton objectif est-il d'obtenir ce que montre les images suivante ?
- Si oui le résultat s'obtient en mettant les formules suivante dans leurs cellules correspondante. Et le code VBA de la solution 2 qui suis.


Si c'est ce que tu voulais faire mais que tu ne veux pas modifier tes formules cellules, alors tu peut aussi changer la correspondance dans la macro : Cells(j, 8) = "0"
Si c'est ce que tu avais fait, et que tu n'a pas obtenu le bon résultat, peut-tu joindre de nouveau ton fichier pour que je puisse voir ce qui peut encore poser problème.

- Si les images ne montre absolument pas ce que tu veux faire, peut-tu alors mettre une image, ou le classeur en question en mettant d'une autre couleurs (Ex : Vert), les lignes à supprimées sur la feuille RECAP, de manière à pouvoir bien comprendre ce que tu veux faire.

Après plusieurs activation du bouton "ETAPE 2 Enregistrer"
Regarde la pièce jointe 1038102

Après avoir cliquer sur le bouton "Etape 3 Remise à zéro formulaire"
Regarde la pièce jointe 1038103

Cliquez pour agrandir...

Loub06 à dit:

Oui ca correspond exactement a ce que je veux obtenir. J'ai du quitter mon boulot. Je ressaierai demain matin
Merci.

Cliquez pour agrandir...