Supprimer lignes sur feuilles si valeur dans colonne A =

[papapaul]

🙂 Bonsoir Forum,
J'ai beaucoup de feuilles dans mon classeur, je voudrais en VBA vider
toutes les lignes de toutes les feuilles ou on trouve une valeur précise.
Ici la valeur A 10 de la Feuil1.

Je galère comme un complet néophyte, j'ai honte🙁
J'ai bien trouver un bout de code
c.EntireRow = " "
Mais j'arrive pas à le faire sur toutes les feuilles,
la valeur n'est pas toujours sur la même ligne.

Merci d'avance et bonne soirée😉

 

[BOISGONTIER]

Re : Supprimer lignes sur feuilles si valeur dans colonne A =

Bonsoir,


Voir PJ

JB

 

[Cousinhub]

Re : Supprimer lignes sur feuilles si valeur dans colonne A =

Bonsoir

essaie avec ce code :

Sub effac()
Dim sh As Object, c As Range, prem As String
For Each sh In Sheets
    If sh.Name <> "Feuil1" Then
        With sh.Columns(1)
            Set c = .Find(Sheets("Feuil1").[A10], lookat:=xlWhole)
            If Not c Is Nothing Then
                prem = c.Address
                c.EntireRow.ClearContents
            Do
            Set c = .FindNext(c)
                If Not c Is Nothing Then c.EntireRow.ClearContents
            On Error Resume Next
            Loop While Not c Is Nothing And c.Address <> prem
            On Error GoTo 0
            End If
        End With
    End If
Next sh
End Sub

Edit : un peu en retard, bonsoir JB

 

[papapaul]

Re : Supprimer lignes sur feuilles si valeur dans colonne A =

🙂 Salut bhbh, boisgontier,
Vraiment impressionnant que vous êtes.
Test rapide est apparemment vos solutions
sont impeccables😱
Mais c'est quand que je pourrais le faire tout seul 😕

Si je peux me permettre à force de ramer
je suis tombé sur le lien ci dessous que j'ai
conservé précieusement.



Super bien fait, chapeau. Je le conseille à tous.

Merci à vous 2, z'êtes trop sympas et balèzes aussi.

A bientôt pour une autre question ??😀

Vive XLD

 

[papapaul]

Re : Supprimer lignes sur feuilles si valeur dans colonne A =

😱 Milles excuses,

Notre amie Brigitte m'a signalé que le lien de
mon post ci-dessus ne fonctionne pas.
En voila 1 autre qui fonctionne mais pas à partir d'ici ???🙁
J'y arrive pourtant à partir du message d'origine
(du 09/04/2008 à 9h30 j'ai oublié de noté l'auteur🙄)

A coller dans google, ou dans word en hypertexte
chez moi ca marche.

http://boisgontierjacques.free.fr/


Bonne soirée tous😉

 

[papapaul]

Re : Supprimer lignes sur feuilles si valeur dans colonne A =

😉 Re

Ca y est chu repéré,
On m'a "promu" Impliqué, AIE AIE................
j'ai intérêt à faire des progrès.😀

Alors pour le coup, ceux qui connaisse pas encore
voici un autre site.
super intéressant pour les USF et autres contrôles

Excel

Vive XLD

 

[Brigitte]

Re : Supprimer lignes sur feuilles si valeur dans colonne A =

Bonsoir,

Si si il marche ton nouveau lien depuis le post. Merci à toi. Mais en fait c'est le site de Jacques BOISGONTIER ? car il le met lui même en lien dans sa signature me semble t'il. Mais tu as raison de l'indiquer à nouveau. C'est tellement précieux tous ces sites si bien faits.