Supprimer lignes sur feuilles si valeur dans colonne A =

papapaul

XLDnaute Impliqué
:) 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;)
 

Pièces jointes

  • Cherche_valeur_effacer_ligne.xls
    30 KB · Affichages: 48

Cousinhub

XLDnaute Barbatruc
Inactif
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
 

papapaul

XLDnaute Impliqué
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:eek:
Mais c'est quand que je pourrais le faire tout seul :confused:

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 ??:D

Vive XLD
 

papapaul

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

:eek: 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:rolleyes:)

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

http://boisgontierjacques.free.fr/


Bonne soirée tous;)
 

papapaul

XLDnaute Impliqué
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.:D

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

XLDnaute Barbatruc
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.
 

Discussions similaires

Réponses
6
Affichages
433
Réponses
6
Affichages
250

Statistiques des forums

Discussions
314 586
Messages
2 110 962
Membres
110 984
dernier inscrit
Charlesb69