Erreur d'excution 10004 avec VBA excel
Résolu/Fermé
Iama
Messages postés
319
Date d'inscription
mercredi 13 janvier 2010
Statut
Membre
Dernière intervention
27 mars 2020
-
Modifié par Iama le 31/03/2010 à 17:07
iama - 7 avril 2010 à 17:13
iama - 7 avril 2010 à 17:13
A voir également:
- Erreur d'excution 10004 avec VBA excel
- Erreur 0x80070643 - Guide
- Liste déroulante excel - Guide
- Formule excel - Guide
- Si et excel - Guide
- Aller à la ligne excel - Guide
2 réponses
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 744
1 avril 2010 à 10:24
1 avril 2010 à 10:24
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
