Erreur d'excution 10004 avec VBA excel
Résolu
Iama
Messages postés
319
Date d'inscription
Statut
Membre
Dernière intervention
-
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
A voir également:
- Erreur d'excution 10004 avec VBA excel
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Si ou excel - Guide
- Excel compter cellule couleur sans vba - Guide
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?
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
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