Supression ligne sur plusieurs feuille simultanément Résolu

Question

Bonjour,
le code suivant que j'ai écrit est censé supprimer une ligne sur deux feuille en meme temps . 
Cependant à l'éxécution du code la supression se fait que sur la feuille active , je vois pas pourquoi..
Sub deletews()
Dim i As Integer
Dim Editeur As String
Dim Wsh As Worksheet

Editeur = InputBox("Enter the serie number that you want to delete?", "Welcome")
'la valeur saisie est transmise à la variable Editeur

For Each Wsh In Worksheets(Array(1, 2))
    With Wsh
        For i = .Range("D" & .Rows.Count).End(xlUp).Row To 2 Step -1
                        If .Range("D" & i).Value = Editeur Then
                        Rows(i).Delete
                        End If
        Next i
    End With
Next Wsh

End Sub

f894009 · Answer

Bonjour,
Supression ligne sur plusieurs feuille simultanément
Non
Suppression lignes sur plusieurs feuilles, feuille apres feuille
Juste un point manquant devant Rows(i).Delete
Sub deletews_camcam1404()
    Dim i As Integer
    Dim Editeur As String
    Dim Wsh As Worksheet

Editeur = InputBox("Enter the serie number that you want to delete?", "Welcome")
    'la valeur saisie est transmise à la variable Editeur

For Each Wsh In Worksheets(Array(1, 2))
        With Wsh
            NL = .Range("D" & .Rows.Count).End(xlUp).Row
            For i = NL To 2 Step -1
                If .Range("D" & i).Value = Editeur Then
                    .Rows(i).Delete
                End If
            Next i
        End With
    Next Wsh

End Sub

camcam1404 · Answer

Ca marche! 
Merci!
Mais enfaite pourquoi un point est nécessaire ?

Supression ligne sur plusieurs feuille simultanément

2 réponses

Discussions similaires

Newsletters