Discussion :

[yadla]

Bonjour le forum,

Pas de panique, je sais bien que ce sujet est traité plein de fois... Mais là c'est juste que j'ai un code qui bug... mais je ne sais pas pourquoi
Pourtant j'utilise le meme dans un autre fichier et tout fonctionne correctement. Alors bon, je fais encore un fois appel à vous.

En vous remerciant d'avance

[yadla]

bonjour, ouskel'n'or (ou plutot re cf. autre discussion )

Merci, mais la boucle continue.
C'est le fait que je supprime la ligne qui bug... mais alors... du coup je ne sais pas comment faire.

Je veux supprimer l'article selectionné et donc l'enlever de la base de donnée.
Mais du coup oui en supprimant la ligne, ca bug

oups... en fait pour pas mettre un fichier trop lourd, j'avais copié dans un nouveau classeur... mais j'ai pas mis tout ce qu'il faut ou il faut...
Je change et reregarde

[Pierre Fauconnier]

Bonjour

En regardant ton code (qui aurait été bienvenu sur le forum...), je pense que tu vas avoir des problèmes car tu ne testes pas que FIND ou FINDNEXT renvoie une cellule valide avant de poursuivre ton code.

Ainsi, tu demandes le numéro de ligne de la cellule renvoyée par FIND, mais si FIND renvoie nothing, tu plantes. Idem pour FINDNEXT.

Perso, je privilégierais le code suivant:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub SupprimerArticle()
    Dim Feuille As Worksheet
    Dim Article As String
 
    Set Feuille = Worksheets("Fam1")
    Article = "art1-fam1"
    With Feuille
        .Range("e1:g1").AutoFilter
        .Range("e1:g1").AutoFilter Field:=3, Criteria1:=Article
        .Range("e2:g" & .Range("e65536").End(xlUp).Row).SpecialCells(xlCellTypeVisible).EntireRow.Delete
        .Range("e1:g1").AutoFilter
    End With
End Sub

qui place un filtre automatique pour n'afficher que ce qui doit être supprimé et qui supprime le filtre automatique après utilisation.

Il faut évidemment déterminer la feuille et l'article selon le code que tu as fourni, et donc adapter les lignes

Code :

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

1
2
3
 
    Set Feuille = Worksheets("Fam1")
    Article = "art1-fam1"

Cela convient-il?

[Pierre Fauconnier]

Salut Ouskel'n'or...

Ok pour ne pas utiliser le filtre, mais je pense que la procédure est plus rapide que le find/findnext. Tout dépend de la taille du fichier.

Toutefois, si on veut utiliser FIND, alors, je préconise l'utilisation de FIND sans FINDNEXT, et je ne comprends pas bien l'utilité du test sur les lignes.

Ceci

Code :

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

1
2
3
4
5
6
7
 
     Set Feuille = Worksheets("Fam1")
    Article = "art1-fam1"
    Do
        Set Cellule = Feuille.Range("g:g").Find(what:=Article, LookIn:=xlValues, lookat:=xlWhole)
        If Not Cellule Is Nothing Then Cellule.EntireRow.Delete
    Loop While Not Cellule Is Nothing

donne, je pense, un résultat correct.

Ok?

[EDIT] Désolé, je n'ai pas compris ta question dans ton EDIT... [/EDIT]

[Pierre Fauconnier]

Ben, il me semble que c'est la syntaxe que j'avais utilisée dans le premier code fourni...

Pour le FindNext, regarde le code que je propose dans le message 7, il n'y a pas de FindNext, ce qui réduit le code et évite de devoir tester le FIND puis le FINDNEXT... De plus, l'utilisation de Do... Loop While permet d'alléger encore le code... ( code modifié par mon EDIT, que tu n'avais peut-être pas vu... )

Dès lors, plus besoin de tester les lignes. Tu testes sur l'ensemble de la colonne, ce qui est finalement très rapide...

Ok pour toi?

[ouskel'n'or]

j'ai encore mal lu...
Pour ton code, effectivement, c'est ok si on supprime la ligne. C'est effectivement beaucoup plus simple.
Je restais bêtement sur une recherche de ligne, pas sa suppression.
Je vais tout (m')effacer, ta dernière solution étant de loin la meilleure.
36000 excuses pour avoir douté de toi