Discussion :

[mle007]

Bonjour,
J'ai un bordereau avec 5200 lignes dont certaines sont inutiles. Est-il possible de programmer pour dire:
ligne 1 (si A1="" et B1="" et C1="") alors la ligne est supprimés
ligne 2 (si A2="" et B2="" et C2="") alors la ligne est supprimés
....
ligne 5200 (si A5200="" et B5200="" et C5200="") alors la ligne est supprimés

Il faut qu'il n'y ai aucune données dans A,B et C pour effacer la ligne

La magie de la programmation peut-elle répondre à ma demande ?
Merci d'avance,
Maxime

[1357VBA]

Bonjour, la réponse est indubitablement ui

[mle007]

Bonjour, la réponse est indubitablement ui

Nooon, pas possible ! Je demande à voir en VBA si possible

[BENNASR]

bonsoir

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub EntireRow()
 
     For i = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1
             If Cells(i, 1) = "" And Cells(i, 2) = "" And Cells(i, 3) = "" Then
             Cells(i, 1).EntireRow.Delete
              End If
       Next i
    End Sub

[Menhir]

J'ai un bordereau avec 5200 lignes dont certaines sont inutiles. Est-il possible de programmer pour dire:
ligne 1 (si A1="" et B1="" et C1="") alors la ligne est supprimés
ligne 2 (si A2="" et B2="" et C2="") alors la ligne est supprimés

Tu fais un tri avec les colonnes A, B et C comme critère.
Toutes les lignes qui ont ces colonnes vides seront regroupées, tu pourras les supprimer en 3 clics.
Pas besoin de faire une macro pour ça.

[mle007]

Super BENNASR, c'est magique
Je te souhaite un bon weekend et grand merci à toi !
Max

[patricktoulon]

Bonjour
oui magique!
souhaitons que tu n'ai pas des milliers de lignes a visiter

un exemple regarde le msgbox

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub test()
    With ActiveSheet.Range("$A$1:$C$10")
        .AutoFilter Field:=1, Criteria1:="="
        .AutoFilter Field:=2, Criteria1:="="
        .AutoFilter Field:=3, Criteria1:="="
        Set plage_a_suppr = .SpecialCells(xlVisible)
        .AutoFilter
    End With
MsgBox plage_a_suppr.Address
End Sub

[mle007]

Tu fais un tri avec les colonnes A, B et C comme critère.
Toutes les lignes qui ont ces colonnes vides seront regroupées, tu pourras les supprimer en 3 clics.
Pas besoin de faire une macro pour ça.

Effectivement, j'ai de ne pas y avoir pensé ! Toutefois, c'est moins magique

[mle007]

Bonjour
oui magique!
souhaitons que tu n'ai pas des milliers de lignes a visiter ...
[/CODE]

Bonjour Patrick,
Merci pour ton message, je teste cela de suite.
Max

[unparia]

Bonjour Patrick
Tu es sûr de ton code ?

[mle007]

Rebonjour à tous,
Question stupide mais si je souhaite supprimer les lignes avec le texte "Total Fluides", "Total eau froide" ... bref, l'ensemble des lignes comprenant "Total" quelque chose, dans la 1er,2ème et 3ème colonne, c'est plus compliqué ? J'ai essayé de remplacer :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Cells(i, 1) = "" And Cells(i, 2) = "" And Cells(i, 3) = " " Then

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Cells(i, 1) = "" And Cells(i, 2) = "" And Cells(i, 3) = "Total* " Then

mais cela ne fonctionne malheureusement pas !
Je suis donc encore à la recherche d'un magicien

Exemple:

[BENNASR]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub EntireRow()
     For i = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1
             If Cells(i, 1) Like "Total*" And Cells(i, 2) Like "Total*" And Cells(i, 3) Like "Total*" Then
             Cells(i, 1).EntireRow.Delete
              End If
       Next i
    End Sub

[mle007]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub EntireRow()
     For i = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1
             If Cells(i, 1) Like "Total*" And Cells(i, 2) Like "Total*" And Cells(i, 3) Like "Total*" Then
             Cells(i, 1).EntireRow.Delete
              End If
       Next i
    End Sub

Merciiii Bennasr
Malheureusement, cela ne fonctionne pas. Peut-être à cause d'Excel 2016 ???

[unparia]

Bonjour
Débutant ou non, je crois que (même si hyper débutant) tu devrais corriger toi-même la ligne des conditions !
Un effort, s'il te plait ...

[mle007]

Bonjour
Débutant ou non, je crois que (même si hyper débutant) tu devrais corriger toi-même la ligne des conditions !
Un effort, s'il te plait ...

Tu as raison Unparia mais je viens encore de chercher pendant une heure sans voir l’erreur. C’est frustrant

[1357VBA]

Tu as raison Unparia mais je viens encore de chercher pendant une heure sans voir l’erreur. C’est frustrant

comme il y a le mot technique accolé au mot directeur, nul doute que ça s'arrange...

sinon changer d'phtalmo

[Menhir]

Tu as raison Unparia mais je viens encore de chercher pendant une heure sans voir l’erreur. C’est frustrant

Pendant 1 HEURE sur 3 lignes de codes ????
Tu ne serais pas en train de nous prendre franchement pour des idiots ?

[mle007]

Pendant 1 HEURE sur 3 lignes de codes ????
Tu ne serais pas en train de nous prendre franchement pour des idiots ?

Certainement pas pour des idiots mais certaines personnes avec un humour un peu . En fait, il n'y a pas d'erreur dans le code et je suis parti sur l'idée qu'il y avait une différence avec Excel 2013 du bureau et 2017 à la maison. Que cela n'en déplaise, on passe vite 1h à regarder sur le net des tutos. J'aurais même pu passer des jours car il n'y a pas d'erreur dans le code ... mais simplement récupéré un bordereau avec certaines cellules protégées. La solution était : menu révision-déprotéger la feuille.
Encore merci BENNASR