VBA : supprimer une ligne contenant un mot

Ju -
Ju - 12 nov. 2007 à 14:22

Bonjour,

Je suis "contraint" de me mettre sur VBA aujourd'hui . En attendant de m'y mettre serieusement (je passe a la fnac ce soir ;) ) j'aurais besoin d'une aide qui je pense va vous sembler évidente.

Je souhaite supprimer une ligne qui contient un mot (en loccurence "affecté"). Ce mot se situe toujours dans la meme colonne (A) mais selon les fichiers, pas sur la meme ligne.

J'ai trouvé plusieurs codes sur internet, mais aucun n'a repondu a ce besoin si simple
Merci

A voir également:

Excel supprimer des lignes contenant un mot
Excel compter cellule couleur sans vba - Guide
Mkdir vba ✓ - Forum VB / VBA
Incompatibilité de type vba ✓ - Forum VB / VBA
Erreur 13 incompatibilité de type VBA excel ✓ - Forum Excel
Vba range avec variable ✓ - Forum VB / VBA

5 réponses

Réponse 1 / 5

ShaBoo Messages postés 392 Date d'inscription Statut Membre Dernière intervention 50

Bonjour,

un code comme celui ci peut-il repondre à ta demande ?

With Worksheets(1).Range("A1:A500" )
      Set c = .Find("affecté", LookIn:=xlValues)
      If Not c Is Nothing Then
          Do
              Debug.Print c.Address
              Set c = .FindNext()
          Loop While Not c Is Nothing
      End If
End With

Réponse 2 / 5

Ju

Bonjour,

Merci de ta réactivité.

J'ai testé ton code mais rien ne se passe.
Au passage, mon fichier peut contenir plus de 500 lignes (ce n'est pas le cas aujourd'hui)

Est-ce que c'est pas le nom de la feuille que je dois changer ? (oui, je n'y connais vriament rien !)

ShaBoo Messages postés 392 Date d'inscription Statut Membre Dernière intervention 50

Met ton code ici, stp

Réponse 3 / 5

Ju

Bonjour,

Rien de plus que ce que tu as suggéré. J'ai mis 600 car j'ai 510 lignes..

Sub deleteligneaffecte()
'

With Worksheets(1).Range("A1:A600")
Set c = .Find("affecté", LookIn:=xlValues)
If Not c Is Nothing Then
Do
Debug.Print c.Address
Set c = .FindNext()
Loop While Not c Is Nothing
End If
End With

End Sub

ShaBoo Messages postés 392 Date d'inscription Statut Membre Dernière intervention 50

et qu'est ce qui ne fonctionne pas ???

ShaBoo Messages postés 392 Date d'inscription Statut Membre Dernière intervention 50

oupssss ...

Autant pour moi. Comme quoi de la necessité de tester ;p

Ceci fonctionne mieux comme cela :

Sub deleteligneaffecte()
'
With Worksheets(1).Range("A1:A600")
    Set c = .Find("affecté", LookIn:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            'Debug.Print c.Address
            Debug.Print c.Row 'affiche le numero de ligne
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With

End Sub

Réponse 4 / 5

Ju

Bonjour,

j'ai l'impression que rien ne se passe lorsque j'execute la macro. (et la ligne en question n'est pas supprimée)

ShaBoo Messages postés 392 Date d'inscription Statut Membre Dernière intervention 50

Tu as raison. La méthode avec .FindNext ne fonctionnera pas.

Je te renvoie sur ici :
Excel - VBA Problème de suppression de lignes...

et ici :
VBA Excel et suppression de lignes

ou plusieurs méthodes sont utilisés.

N'hésites pas en cas de problème ...

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 5

Ju

Bonjour,

Je regarde ca de plus pres des que possible
Dans tous les cas, merci de ton aide

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

Erreur d'exécution 13 Incompatibilité de type

appliquer une pause dans une macro vba excel

ouverture d'un fichier excel à partir d'un code VBA

Méthode find dans VBA - Recherche de données sous Excel

Forum VB / VBA