Erreur 1004 : la méthode select de la classe range a échoué

Bonjour,

J'ai une erreur de type 1004 dans mon programme mais je ne comprends pas d’où vient l'erreur.

- Voici le code d'appel de ma procédure :

Sub Split_and_Copy_dimanche_S_1()

Valeur_Cherchee_min = "Dimanche S - 1"
Valeur_Cherchee_max = "Mouvement"

Set Trouve_min = PlageDeRecherche.Cells.Find(what:=Valeur_Cherchee_min, LookAt:=xlWhole)
Set Trouve_max = PlageDeRecherche.Cells.Find(what:=Valeur_Cherchee_max, LookAt:=xlWhole)

If Trouve_min Is Nothing Then
    AdresseTrouve_min = Valeur_Cherchee_min & " n'est pas présent dans " & PlageDeRecherche.Address
Else
    AdresseTrouve_min = Trouve_min.Address
End If
If Trouve_max Is Nothing Then
    AdresseTrouve_max = Valeur_Cherchee_max & " n'est pas présent dans " & PlageDeRecherche.Address
Else
    AdresseTrouve_max = Trouve_max.Address
End If

Set Plage = Range(AdresseTrouve_min, AdresseTrouve_max)
Sheets("Dimanche S-1").Select
create_interface Plage.Offset(2, 0).Resize(Nb_Cells, 1)

- Voici le code de ma procédure :

Sub create_interface(plage_mise_en_forme As Range)

   plage_mise_en_forme.Offset(3, 0).Resize(Nb_Cells - 4, 9).Select ' Erreur 1004 : La méthode select de la classe range a échoué
        With Selection.Font
        .Color = -10477568
        .TintAndShade = 0
    End With
End sub

Auriez-vous une idée de ce qui bug et comment le corriger?

Merci d'avance pour vos conseils.

Cordialement,

Guillaume

Bonjour,

A quoi correspond nb_Cells ?

Cdlt.

Bonjour,

Nb_Cells correspond au nombre de lignes de la plage :

Set Plage = Range(AdresseTrouve_min, AdresseTrouve_max)
Nb_Cells = Plage.Rows.Count - 1

J'ai l'impression que c'est le Select qui me génère l'erreur

RE,

Donc on doit jouer à cache cache ?

Merci de joindre un classeur à ta demande, si tu veux une aide adaptée à ton souci.

Cdlt.

Voici le classeur excel principal qui fait appel à plusieurs fichiers "Daily" comme celui ci-joint.

Il faut changer le lien dans le fichier principal à l'onglet "Liens_Daily"

Merci,

Guillaume