Supression ligne sur plusieurs feuille simultanément

Résolu
camcam1404 Messages postés 64 Date d'inscription   Statut Membre Dernière intervention   -  
camcam1404 Messages postés 64 Date d'inscription   Statut Membre Dernière intervention   -
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
A voir également:

2 réponses

Réponse 1 / 2
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
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
0
Réponse 2 / 2
camcam1404 Messages postés 64 Date d'inscription   Statut Membre Dernière intervention  
 
Ca marche!
Merci!

Mais enfaite pourquoi un point est nécessaire ?
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Re,

Mais enfaite pourquoi un point est nécessaire ?
Tout simplement, vous faites un With Wsh donc tout objet range ou autre se referent a ce With doit avoir un point devant sinon c'est sur la feuille active que s'applique l'objet
0
camcam1404 Messages postés 64 Date d'inscription   Statut Membre Dernière intervention  
 
Très bien ! Merci encore
0

Discussions similaires

Feuille de score belote
nulleeninfo -
brucine -

7 réponses
Que veut dire "correspondant occupé" lors d'un appel ?
veroaaa -
Pat -

10 réponses
Les feuilles Diddl
TiiteBaakaa -
soso -

8 réponses