Erreur 1004 sur Range.Select

Bonjour à toutes et à tous,

Je ne comprends pas d'où vient l'erreur. Voici mon code associé à mon bouton "Zoom" :

Private Sub zoom_click()

' Calibrage Feuille "Planning"
    Feuil1.Select
    Set Pos = Application.ActiveCell
    Range("Zoom1").Select
    ActiveWindow.Zoom = True
    ValZoom = ActiveWindow.Zoom
    If ValZoom > 100 Then
        ValZoom = 100
    End If
    If ValZoom < 70 Then
        ValZoom = 70
    End If
    ActiveWindow.Zoom = ValZoom
    Pos.Select

' Calibrage Feuille "Genn"
    Feuil5.Select
    ActiveWindow.Zoom = ValZoom

' Calibrage Feuille "Feuil1"
    Feuil3.Select
    ActiveWindow.Zoom = ValZoom

' Calibrage Feuille "Récap"
    Feuil2.Select
    Set Pos = Application.ActiveCell
    Range("Zoom2").Select
    ActiveWindow.Zoom = True
    ValZoom = ActiveWindow.Zoom
    If ValZoom > 100 Then
        ValZoom = 100
    End If
    If ValZoom < 70 Then
        ValZoom = 70
    End If
    ActiveWindow.Zoom = ValZoom
    Pos.Select

    Feuil1.Select

End Sub

Zoom1 est une plage de cellules de Feuil1.

Zoom2 est une plage de cellules de Feuil2.

Et la macro plante en

    Range("Zoom2").Select

avec une erreur 1004.

J'ai essayé de passer par la nomination en clair de la feuille (Sheets("Récap").Select), de nommer la plage en clair (Range("A1:AA1").Select) et j'ai la même erreur.

Une idée ? Parce que moi, je craque...

Bonjour,

eric

bonjour,

Déposez une copie anonymisée de votre classeur afin de tester...

A+

Edit: désolé et bonjour eriic

Bon, à force de tester et de rechercher, j'ai trouver la solution.

    Feuil2.Range("Zoom2").Select

Il fallait rajouter "Feuil2" devant le Range, et là, ça marche partout et en toutes circonstances.

Désolé pour le dérangement et merci à ceux qui se sont penchés sur mon problème. J'espère que ça servira à d'autres personnes au cas où.