Discussion :

[Border_xls]

Bonsoir,

J'essaie vainement de trouver une solution afin de supprimer des colonnes entière en fonction du contenu d'une cellule.

Référence faite à l'exemple ci-dessous, j'aimerais faire supprimer avec une macro, toutes les lignes où apparaît par exemple le texte "04_Tâches" et ne conserver que les autres.

Par opposition, j'aimerais également parvenir à ne conserver qu'une série de lignes dont une cellule contient la référence par exemple "07_Tâches" et "02_Tâches" et supprimer toutes les autres.

Pour l'instant, je sèche lamentablement... Quelqu'un à-t-il une solution ?

Merci.

[Singular]

Regardes les méthodes Find et FindNext de l'objet Range dans l'aide en ligne de VBA-Excel. Regardes aussi EntireRow et la méthode Delete, toujours de l'objet Range. La boucle requise est décrite dans l'aide sur FindNext.

Pour ce qui est de conserver les lignes, copies-les plutôt sur une nouvelle feuille et supprimes l'ancienne en pecisant Application.DisplayAlerts = False avant la suppression de la feuille et = True après. N'oublies pas de conserver le nom de l'onglet de la feuille et de renommer la nouvelle au nom de l'ancienne. Si la suppression de la feuille n'est pas souhaitable (à cause de la présence de noms et/ou de fonctions évènementielles associés à celle-ci), copie les lignes sur une autre feuille, fais utilses UsedRange.Delete sur la feuille originale et ensuite transfers ce que tu as copié dessus.

J'espère avoir été assez clair.

[le_dilem]

Code :

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

1
2
3
4
5
6
7
8
Sub supp4_taches()
Dim i As Integer
For i = 100 To 1 Step -1
   If Range("c" & i) = "04_Tâches" Then
   Rows(i).Delete
    End If
Next i
End Sub

Pour l'autre au lieu de mettre "=" mets <> "02_Tâches"

[Singular]

En effet, pour une centaine de lignes, la méthode de le_dilem est plus directe.

Pour des milliers de lignes cependant, Find est beaucoup plus rapide d'exécution (sauf pour la méthode de conservation de certaines lignes par la copie).

[Border_xls]

Bonjour,
Merci à tous et en particulier à Le Dilem pour votre précieuse aide. J'ai ainsi pu résoudre ce problème.
@ bientôt


Didier