Discussion :

[FCL31]

Je voudrais savoir comment faire pour supprimer une ligne en fonction d'une valeur d'une des cellules de la ligne.

Sauf qu'on ne sait pas dans quelles colonne se trouve la cellules ni dans quelle ligne

En fait il me faut chercher dans une feuille le mot "Total" (on ne sait pas où il est) et supprimer la ligne dans laquelle se trouve la cellule avec le mot "Total"

[laetitia]

bonjour FCL31 fait une recherche SUR FIND si tu trouves pas repost a+

un exemple simple: si total vide la ligne attention code pour une occurence si plusieurs total possible il faut un autre code a adapter

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Option Explicit
Option Compare Text
Sub es()
  Dim c As Variant
    Set c = [A:iv].Find(What:="total", LookIn:=xlValues, LookAt:=xlWhole)
    If c Is Nothing Then
      MsgBox "Non trouvé"
    Else
      c.EntireRow.Delete
    End If
End Sub

[FCL31]

Sa a l'air de bien marché

J'ai juste oublié de spécifier que la recherche devait se faire sur toutes les feuilles du classeur or là sa me fait le recherche sur une feuille

Désolé

[Krovax]

dans ce cas boucle sur les feuilles tu sais le faire on t'a déjà donné le code...
je te laisse faire les déclaration de variable

Code :

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

1
2
3
4
5
6
7
for each sh in worksheets
 
    Set c = sh.[A:iv].Find(What:="total", LookIn:=xlValues, LookAt:=xlWhole)
    If c Is Nothing Then
      c.EntireRow.Delete
    End If
next sh

Si tu veux un message met une variable booléenne a vrai une fois le résultat trouvée et test la après la boucle

edit petit souci le clavier le code est visiblement semblable a celui de laetitia

[FCL31]

dans ce cas boucle sur les feuilles tu sais le faire on t'a déjà donné le code...
je te laisse faire les déclaration de variable

Code :

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

1
2
3
4
5
6
7
for each sh in worksheets
 
    Set c = sh.[A:iv].Find(What:="total", LookIn:=xlValues, LookAt:=xlWhole)
    If c Is Nothing Then
      c.EntireRow.Delete
    End If
next sh

Si tu veux un message met une variable booléenne a vrai une fois le résultat trouvée et test la après la boucle

edit petit souci le clavier le code est visiblement semblable a celui de laetitia

Merci de ton aide
Mais j'avais essayé mais sa marche pas


Par contre laetitia, ton code, je ne sais pas pourquoi, ne me supprime pas la ligne avec le mot "Total" mais sa me supprime la ligne 1

[laetitia]

re, comment tu l as ecrit ??????? je viens de tester pas de souci.

[laetitia]

re essai comme cela !!

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Option Explicit
Option Compare Text
Sub es()
Dim c As Variant, ws As Worksheet
Application.ScreenUpdating = False
For Each ws In Worksheets
ws.Activate
Set c = [A:iv].Find(What:="total", LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then c.EntireRow.Delete
Next ws
End Sub

ps salut l'ami krovax effectivement on ta donne le code hier sur un post qui a ete supprimer??