Supprimer lignes sur feuilles si valeur dans colonne A =

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 27 Avril 2008

• #2

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

Bonsoir,


Voir PJ

JB

 

Pièces jointes

• Cherche_valeur_effacer_ligne(1).xls

  36.5 KB · Affichages: 52

Dernière édition: 27 Avril 2008

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

Inactif

• 27 Avril 2008

• #3

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

Bonsoir

essaie avec ce code :

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

 

Vote positif 0 Vote négatif

papapaul

XLDnaute Impliqué

• 27 Avril 2008

• #4

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

 

Vote positif 0 Vote négatif

papapaul

XLDnaute Impliqué

• 27 Avril 2008

• #5

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

 

Vote positif 0 Vote négatif

papapaul

XLDnaute Impliqué

• 27 Avril 2008

• #6

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

 

Vote positif 0 Vote négatif

Brigitte

XLDnaute Barbatruc

• 28 Avril 2008

• #7

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.

 

Vote positif 0 Vote négatif