boucle et recherche x fois même valeur dans une colonne

[armelle1303]

bonsoir ou bonjour

j'ai encore un problème de recherche à mettre en boucle.
j'ai essayé de m'inspirer d'un code que j'avais déja fait grace à votre aide mais sans résultat

les données dans le fichier joint sont simplifiées car la colonne concernée fait partie d'une base avec beaucoup plus de colonnes ...

j'ai x valeurs dans la colonne A, je veux rechercher chaque ligne contenant la valeur A1.1, sélectionner la ligne entière et la supprimer, passer à la ligne suivante contenant A1.1 etc..

dans le code joint, j'ai essayé 2 versions : aucune des deux ne marche.
en plus , il m'indique un message d'erreur sur la déclaration de variable que je n'ai pas sur le fichier original (car j'ai simplifié l'exemple qui était contenu dans une macro plus importante ; mais même dans l'original cela ne marche pas non plus).
je vous remercie pour votre aide car cela va me permettre de finir mon projet et surtout enfin comprendre un peu plus ces boucles.
A+

 

[vbacrumble]

Re : boucle et recherche x fois même valeur dans une colonne

Bonsoir


Un essai avec cette macro

Sub suppLIGNESA11()
Dim pf As Range, pfs As Range
With ActiveSheet
    [A1].AutoFilter 1, "*A1.1*"
    Set pf = Range("_FilterDataBase")
    Set pfs = pf.Offset(1, 0).Resize(pf.Rows.Count - 1)
    pfs.SpecialCells(8).EntireRow.Delete
    .AutoFilterMode = False
End With
End Sub

Ps: le code doit être dans un module standard (pas dans le code de la feuille, comme c'est le cas pour ton code VBA)

 

[armelle1303]

Re : boucle et recherche x fois même valeur dans une colonne

bonjour
super ça marche
encore une fois sauvée par un filtre.
si j'ai bien compris tu fais le filtre sur A1.1
les sélectionne et les delete
puis annule le filtre
je n'ai pas bien compris comment tu faisais pour ne sélectionner que ces lignes et que signifient dans le détail ces lignes :
Set pf = Range("_FilterDataBase")
Set pfs = pf.Offset(1, 0).Resize(pf.Rows.Count - 1)
pfs.SpecialCells(8).EntireRow.Delete
mais si tu peux me donner quelques infos en + sur ce que signifient et font plus précisément ces 3 lignes cela me permettra d'apprendre en même temps.

j'ai mis le code dans un module et cela marche alors que sur la feuille non (comme tu le disais). quelle est la raison? le module est valable pour toutes les feuilles?

sinon
sais tu si il est possible d'avoir le même résultat avec une boucle sur un Find?

en tous cas merci pour ton aide

 

[vbacrumble]

Re : boucle et recherche x fois même valeur dans une colonne

Bonjour

Ok je commente les lignes suivantes

[COLOR="Green"]'Désigne la plage du filtre[/COLOR]
Set pf = Range("_FilterDataBase")
[COLOR="Green"]'Désigne la plage filtrée sans l'entête[/COLOR]
Set pfs = pf.Offset(1, 0).Resize(pf.Rows.Count - 1)
[COLOR="Green"]'efface la ligne des cellules visibles renvoyées par le filtre[/COLOR]
pfs.SpecialCells(8).EntireRow.Delete

Le code stockée dans les feuilles doit normalement le code
des procédures événementielles.

Ma solution passait par filtre.

Leurs (futures) propositions passeront peut-être par un Find. 😉

 

[armelle1303]

Re : boucle et recherche x fois même valeur dans une colonne

bonjour
Merci pour tes explications je ne connaissais pas ces possibilités de code.
il y a quelques temps j'ai dû ruser et faire plus long pour arriver au même résultat sur un autre cas.
on apprend tous les jours.
Pour le find, j'irai fouiller plus précisément un jour j'aurai plus de temps.

voilà un problème résolu

A+