Erreur d'excution 10004 avec VBA excel
Résolu
Iama
Messages postés
324
Statut
Membre
-
iama -
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
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
-
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? -
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