Discussion :

[mael86]

Bonjour à tous,

Je cherche à créer un bouton qui me trie et me supprime les lignes entières comprenant en colonne C le terme Label. (il se peut que la colonne soit renseigner par Front label ou Back label...)

je débute en VBA et je suis bien ennuyé, pourrais ja avoir de l'aide sur la question?

merci d'avance

[Maiden002]

Bonjour,

Essaye sa

a adapter

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Toto_QuandClic()
Dim Search As String
Dim LiToDelete As Long
 
search = "label"
 
Set c = Worksheets("feuil1").Columns(3).Find(search)
             If Not c Is Nothing Then
                LiToDelete = c.Row
                Worksheets("feuil1").Rows(LiToDelete).Delete
             End If
 
End Sub

Explication : Il va chercher en Colonne 3 (C) les "label" et va enregistrer son numero de ligne et le supprimer.

[laetitia]

bonjour mael86 Maiden002 le forum une autre méthode

Code :

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

1
2
3
4
5
6
7
8
9
Option Explicit
Option Compare Text
Sub es()
Dim c As Range
Application.ScreenUpdating = False
For Each c In Range("c1", Range("c65536").End(xlUp))
If c Like "*label*" Then c.EntireRow.Delete
Next c
End Sub

[Fvandermeulen]

Salut à tous,
Vous avez oublié un petit détail, dès qu'on parle de suppression de ligne il faut tourner de bas en haut, le ForEach cel 'oublie' la ligne suivante celle supprimée car la suivante prend la ligne de celle qui vient d'être supprimée
Pas certain d'être très clair sur ce coup là...
Quoi qu'il en soit avec vos méthodes, si deux lignes contigues ont Label la deuxième ne sera pas supprimée.

Donc:

Code :

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

1
2
3
4
5
6
7
Sub DelLignes()
Dim r As Long, derlig As Long
derlig = Cells(Columns(3).Cells.Count, 3).End(xlUp).Row
For r = derlig To 1 Step -1
If Cells(r, 3) Like "*label*" Then Rows(r).Delete
Next r
End Sub

A+

[laetitia]

bonjour Fvandermeulen le forum

Pas certain d'être très clair sur ce coup là..

c'est tres clair un oubli de ma part

je vais me cacher passe une fin de journée a+

[mael86]

Merci de vos réponses!
Cependant cela ne fonctionne pas.
Je me suis pas bien expliqué peut être alors je vais tenté d'etre plus clair dans ce que je cherche à faire.

J'ai un tableau de cette forme

Code Libéllé Besoin Stocks1 entrepots2
77867 Label NU T200 400 200 600
77654 Base X X X
77543 Front Label X X X
77346 1/2 palette

Et je cherche via un bouton à effacer complétement les lignes (ici la ligne 2 et 4) parce qu'elles contiennent le mot Label.

Pourriez vous m'aider svp (denouveau)