Erreur d'excution 10004 avec VBA excel

Résolu
Iama Messages postés 324 Statut Membre -  
 iama -
Bonjours,

J'ai probléme donc je ne trouve, ni la raison, ni la solution.
Si quelqu'un à une idée , elles est la bienvenue Merci.

J'ai 2 "sub" dans un module qui qui fonctionne.
Lorsque je les utilise comme sous-programme appartir d'une userform. Ca plante et j'ai le message d'erreur d'excecution '1004'.

PS : Quand je fais le programme principal au pas à pas je n'ai pas ce probléme

Sub G_Lien()
'Création de Groupe_L
HHH = ActiveWindow.RangeSelection.Address(ReferenceStyle:=xlR1C1)
Nom_GL = "=" & ActiveSheet.Name & "!" & HHH
Application.ActiveWorkbook.Names.Add Name:="Groupe_L", RefersToR1C1:=Nom_GL
End Sub

Sub G_LienAddition()
'Modification de Groupe_L
PPP = "," & ActiveSheet.Name & "!" & ActiveWindow.RangeSelection.Address(ReferenceStyle:=xlR1C1)
Nom_GL = Nom_GL & PPP
Application.ActiveWorkbook.Names.Add Name:="Groupe_L", RefersToR1C1:=Nom_GL
End Sub

Merci pour votre reponse
Iama

2 réponses

  1. pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 773
     
    Salut,
    Lorsque je les utilise comme sous-programme appartir d'une userform quel est ton code d'appel de ces macros? Quel code as tu placé dans ton UserForm?
    0
  2. iama
     
    Bonjours Pijaku, excuse si je te réponds tardivement et merci ne te pencher sur mon cas

    Si j'ai bien compris ta demande de renseignement :

    J'arrive sur la macro suite à un click sur un bouton. Il y a une boucle dans cette macro, mais le problème est identique que je mette le sous programme dedans ou non.

    Par ailleurs si je modifie les sous-programmes qui me posent problème comme suit, et que j'en rajoute un avant le dernier sub de la macro.
    L'instruction " Range("Nom_GL").Select" de ce dernier, me donne le message d'erreur suivant :
    Erreur d'exécution `1004
    La méthode « range ` de l'objet `_Global' a échoué »

    Si cela te permet de trouver le problème ... Merci.
    Il me manque peut-être beaucoup de connaissance de base.

    Sub G_Lien()
    'Création de Groupe_L
    HHH = ActiveWindow.RangeSelection.Address(ReferenceStyle:=xlR1C1)
    Nom_GL = "=" & ActiveSheet.Name & "!" & HH
    End Sub

    Sub G_LienAddition()
    'Modification de Groupe_L
    PPP = "," & ActiveSheet.Name & "!" & ActiveWindow.RangeSelection.Address(ReferenceStyle:=xlR1C1)
    Nom_GL = Nom_GL & PPP
    End Sub

    Sub G_LienCreation()
    `Nommer Groupe_L
    Range("Nom_GL").Select
    Application.ActiveWorkbook.Names.Add Name:="Groupe_L", RefersToR1C1:=Nom_GL
    End Sub
    0