Discussion :

[philmire]

Bonjour,

Afin de supprimer des lignes dans une feuil1, j'excécute la macro suivante.

Malheureusement, lorsque je renomme mes deux feuilles avec des noms personnalisés, la macro plante avec un message d'erreur 424, objet requis.

Merci pour votre aide

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub DeleteRows()
    With Feuil2
        SRC = Application.Transpose(.Range("A1", .Cells(.Rows.Count, 1).End(xlUp)).Value)
    End With
 
    With Feuil1
        Application.ScreenUpdating = False
        AR = .Range("G1", .Cells(.Rows.Count, 7).End(xlUp)).Value
 
        For R& = UBound(AR) To 1 Step -1
            If AR(R, 1) > "" Then _
                If IsError(Application.Match(AR(R, 1), SRC, 0)) Then .Rows(R).Delete
        Next
 
        Application.ScreenUpdating = True
    End With
End Sub

[pc75]

Bonjour,

Et en utilisant :

Code :

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

1
2
 
sheets.Item(1)

[philmire]

Merci, mais j'avoue ne pas savoir comment me servir de cette instruction;

[Godzestla]

Bonjour,

Et en utilisant :

Code :

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

1
2
 
sheets.Item(1)

Bonjour,
cela correspond à la première feuille.

Tu peux aussi écrire

Code :

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

Sheets(1)

ou

Code :

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

Worksheets(1)

à toi de voir si tu veux adresser Sheets ou Worksheets en fonction de ce que tu cherches (plus d'info dans l'aide).

Mais attention que Feuill1 n'est pas nécessairement la Sheets ou Worksheets(1).

Si tu connais le nom de ta feuille, tu peux l'adresser en direct par

Code :

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

Sheets("lenomdetafeuille")

ou worksheets (cfr ci-dessus).

A+

[philmire]

Bonsoir,

Encore merci, j'ai solutionné le problème en mettant le bon indice des feuille tel qu'il apparait dans la fenetre VBA project et ça marche.

[Marc-L]

Comme quoi il ne suffit pas de pomper un de mes codes, faut-il encore se donner la peine de l'adapter ! …