Discussion :

[oyard]

Bonjour à tous,

j'aimerai pouvoir supprimer dans un tableau excel, toute les lignes qui comprennent le mot "_origine".

Je connais pas trop VBA, est ce que quelqu'un aurait une idée.
Car jusqu'à présent pour faire la suppression je le fait manuellement et avec plus de 30000lignes c'est assez lourd.

Merci à vous.

[Philippe Tulliez]

Bonjour,
Il n'y a vraiment aucune raison d'utiliser le VBA pour cela.
A moins de devoir faire ce type d'opération tous les jours, cela prend exactement deux secondes en utilisant l'outil Rechercher/Remplacer (Ctrl+F).
Dans la case Rechercher tu écris _origine et dans Remplacer par tu ne mets rien. Ensuite tu cliques sur le bouton Remplacer tout.

[oyard]

Merci Philippe pour ta réponse rapide.
J'ai du mal un truc car quand je fais ta mnaip, ça efface bien le mot mais ça laisse la case vide.
J'aurais voulu que ça me supprime les toutes lignes qui contient le mot _origine sachant que ce mot est toujours dans la meme colonne et dans les autres colonnes il y'a par exemple : nom, prénom, sexe.. .

Merci bien pour ton aide.

[Daniel.C]

Bonjour,

Voici une macro à adapter. Il doit y avoir des entêtes en ligne 1. La plage est définie sur les colonnes A à F et le filtre automatique est positionné sur la colonne F. Elle consiste à utiliser un filtre automatique et à supprimer les lignes trouvées :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub test1()
    Dim Plage As Range, mot_origine As String
    mot_origine = InputBox("Entrez le mot à chercher")
    If mot_origine = "" Then Exit Sub
    With ActiveSheet
        Set Plage = .Range(.[A1], .Cells(.Rows.Count, 1).End(xlUp)).Resize(, 6)
        Plage.AutoFilter 6, mot_origine
        Plage.Select
        Set Plage = Plage.Offset(1).Resize(Plage.Rows.Count - 1, 1)
        If Application.Subtotal(103, Plage) > 0 Then
            Plage.SpecialCells(xlCellTypeVisible).EntireRow.Delete
        Else
            MsgBox "aucun mot trouvé"
        End If
        .AutoFilterMode = False
    End With
End Sub

N'hésite pas à poser des questions si tu ne comprends pas.

[oyard]

Salut,

merci pour ta réponse Daniel.
Je vais me plonger dans VBA car je ne comprends pas la macro. Je reviendrai poser des questions par la suite.

En tout cas merci pour votre aide.

[Daniel.C]

Tu peux alors faire manuellement ce que fait la macro :

Sélectionne la colonne à tester, fais un filtre automatique sur la valeur cherchée. Puis Edition, Atteindre, Cellules, Cellules visibles seulement, fais un clic droit sur une de ces cellules et clique sur "supprimer"; choisis "ligne entière".

[Philippe Tulliez]

Bonjour,

Merci Philippe pour ta réponse rapide.
J'ai du mal un truc car quand je fais ta mnaip, ça efface bien le mot mais ça laisse la case vide.
J'aurais voulu que ça me supprime les toutes lignes qui contient le mot _origine sachant que ce mot est toujours dans la meme colonne et dans les autres colonnes il y'a par exemple : nom, prénom, sexe.. .
Merci bien pour ton aide.

Désolé, je viens effectivement de constater que tu souhaitais effacer la ligne complète, je n'avais pas bien lu mais je crois que Daniel t'a apporté la réponse.

[oyard]

Merci bien pour votre aide!!!