Macro pour supprimer ligne

[Mali201604]

Bonjour,

novice avec les macros,
j'essaye de supprimer toutes les lignes de mon tableau contenant le mot Pièce

Help

 

[vgendron]

Re : Macro pour supprimer ligne

Bonjour et bienvenu

pour faciliter le travail, il faut que tu postes un fichier exemple sur lequel travailler.

l'idée du code sera:
1) tester le contenu de la cellule: if cellule = "Pièce"...
2) supprimer la ligne: cellule.entirerow.delete

 

[Mali201604]

Re : Macro pour supprimer ligne

bonjour

J'avais déjà essayé ça mais cela ne fonctionne pas.

 

[gosselien]

Re : Macro pour supprimer ligne

Bonjour,

autre solution: envoyer un fichier identique au tien

P.

 

[Mali201604]

Re : Macro pour supprimer ligne

Est il possible que ce soit du au fait qu'il n'y a pas seulement écrit pièce dans la cellule ?

 

[vgendron]

Re : Macro pour supprimer ligne

oui

une piste.. puisque pas de fichier
fonction like

 

[Mali201604]

Re : Macro pour supprimer ligne

Je ne peux pas envoyer le fichier (doc confidentiel et je suis en stage)

 

[gosselien]

Re : Macro pour supprimer ligne

C'est pénible parfois....

Charte/Règlement des forums XLD
​

Pour tous

1 – Les forums doivent rester conviviaux. Donc, les échanges doivent être courtois, respectueux et garder la bonne humeur. Les propos agressifs ne sont donc pas tolérés.

2 – Lorsqu’on rentre sur un fil, comme dans la vie de tous les jours, on est poli en disant « Bonjour ».

3 – Le langage SMS et le verlan ne sont pas autorisés sur les forums.

4 – Les propos injurieux, obscènes, vulgaires, diffamatoires, menaçants, sexuels, racistes, politiques ou religieux ne sont pas autorisés sur les forums.

5 – Les inscriptions à des fins commerciales ne sont pas autorisées. Cela concerne également les liens dans les signatures. Si vous avez des doutes vous pouvez demander à l’administrateur du site son autorisation.

6 – Toute pièce jointe doit respecter les lois en vigueur (copyright, etc).

7 - Les administrateurs et les modérateurs ont le droit de supprimer, éditer, déplacer ou verrouiller n'importe quel sujet de discussion ou message à tout moment et sans avoir à demander le consentement des intervenants.

Demandeur

1 – Un outil de recherche sur le forum permet de voir si la question a déjà été posée. Ne pas hésiter à l’utiliser. Lien vers le moteur de recherche

2 – Tous les membres du forum répondent gracieusement aux questions. Il n’y a donc aucune obligation de résultat et de délai. Les mots URGENT, SOS, AU SECOURS sont donc à bannir.

3 – Le titre de la question doit être clair et comporter explicitement le sujet de la demande. Cela sous-entend qu’une nouvelle demande fait l’objet d’un nouveau fil.

4 – La question doit être posée le plus clairement possible en comprenant bien que le lecteur ne peut pas s’imaginer le problème.

5 – La possibilité de joindre des fichiers est donnée sur ce forum. Ne pas hésiter à utiliser cette fonction, tout en veillant que les données soient bidons et donc qu’aucune donnée confidentielle, nominative ne soit dans le fichier.

6 - MERCI est la seule récompense des contributeurs. Donc ne pas oublier de les remercier une fois la réponse donnée.

7 - La messagerie privée n'a pas pour vocation à répondre aux questions. Merci de ne pas l'utiliser à cette fin.

8 - Les demandes de développements relatives à des extractions de données sur des sites interdisant ces pratiques dans leurs conditions générales sont interdites.

 

[gosselien]

Re : Macro pour supprimer ligne

Je ne peux pas envoyer le fichier (doc confidentiel et je suis en stage)

Réponse bidon..

Une copie anonymisée avec 20 lignes devrait suffire

 

[Mali201604]

Re : Macro pour supprimer ligne

voila un extrait

 

[vgendron]

Re : Macro pour supprimer ligne

bah voila.. c'est quand meme pas compliqué, et ca permet d'avoir une réponse directement exploitable par toi..

Sub supprimerPièces()

'récupère la dernière ligne de l'onglet
fin = Range("A" & Range("A:A").Rows.Count).End(xlUp).Row
'pour chaque ligne en partant de la FIN
For i = fin To 1 Step -1
    'si la cellule en colonne A contient le mot Pièce
    If Cells(i, "A") Like "*Pièce*" Then
        'on supprime la ligne entière
        Rows(i).EntireRow.Delete
    End If
Next i

End Sub

PS: j'ai considéré qu'on ne supprime que les lignes qui contiennent Pièce en colonne A..
--> donc celles qui contiennent Pièce en colonne E ne sont pas concernées..
mais s'il le faut.. suffit de modifier comme suit

Sub supprimerPièces()

'récupère la dernière ligne de l'onglet
fin = Range("A" & Range("A:A").Rows.Count).End(xlUp).Row
'pour chaque ligne en partant de la FIN
For i = fin To 1 Step -1
    'si la cellule en colonne A contient le mot Pièce
    If Cells(i, "A") Like "*Pièce*" Or Cells(i, "E") Like "*Pièce*" Then
        'on supprime la ligne entière
        Rows(i).EntireRow.Delete
    End If
Next i

End Sub

 

[Mali201604]

Re : Macro pour supprimer ligne

ça fonctionne
Merci