Petite pétouille dans mon code

Bonjour forum,

J'ai un petit bout de code censé supprimer les lignes entière avec le mot "COUCOU" présent en colonne B dans toutes les feuilles nommé Feuil1, Feuil2 etc.

Mais visiblement il ne veut rien savoir.

Si quelqu'un a une idée. Merci de votre aide.

Sub Suppr_coucou()
Dim x As Integer
Dim ws As Worksheet
Dim coucou As String

Application.ScreenUpdating = False
coucou = CLng(Sheets("Accueil").Range("B1").Value)

For Each ws In ActiveWorkbook.Worksheets
    If LCase(ws.Name) Like "*Feuil*" Then
        For x = ws.Range("B5000").End(xlUp).Row To 2 Step -1
            If CLng(ws.Range("B" & x)) = coucou Then ws.Rows(x).Delete
        Next

    End If

Next ws
Application.ScreenUpdating = True
End Sub
6test.xlsm (16.99 Ko)

Bonjour,

Ceci fonctionne sur mon Excel.

Sub Suppr_coucou()
Dim x As Integer
Dim ws As Worksheet
Dim coucou As String

Application.ScreenUpdating = False
coucou = (Sheets("Accueil").Range("B1").Value)

For Each ws In ActiveWorkbook.Worksheets
    If LCase(ws.Name) Like "*feuil*" Then
        For x = ws.Range("B5000").End(xlUp).Row To 2 Step -1
            If (ws.Range("B" & x)) = coucou Then ws.Rows(x).Delete
        Next
    End If
Next ws
Application.ScreenUpdating = True
End Sub

ric

Bah merci ric cela fonctionne aussi chez moi pour le coup

+100

A un moment j'avais fais comme toi supprimer les deux "CLng" mais je ne sais pas ce que j'ai foutu ça marchais pas non plus. sauf que je vois le petit détail tu as mis feuil en minuscule !!!!

Rechercher des sujets similaires à "petite petouille mon code"