Problème lors de la création d’une plage de cellules en VBA

Version imprimable

01/02/2017, 14h25
c_tampon

Problème lors de la création d’une plage de cellules en VBA

Mon problème est le suivant :

J’ai besoin de créer des plages de cellule avec différents éléments variables.

Pour cela j’utilise la ligne de code suivant (celle-ci se trouve dans une boucle)

Code:

ActiveWorkbook.Names.Add Name:=base_nom_plage & "_XXX", RefersTo:="=" & Range(Cells(Ligne_haut, 1), Cells(Derniere_ligne, 1)).Address

Le problème est que lors de la deuxième itération j’ai le message suivant : « Erreur d'exécution '1004': La méthode 'Cells' de l'objet '_Global' a échoué »

Du coup, j’ai modifié ma ligne de code de la façon suivante :

Code:

ActiveWorkbook.Names.Add Name:=base_nom_plage & "_XXX", RefersTo:="=" & Worksheets(Nom_nouvelle_feuille).Range(Worksheets(Nom_nouvelle_feuille).Cells(Ligne_haut, 1), Worksheets(Nom_nouvelle_feuille).Cells(Derniere_ligne, 1)).Address

Suite à cette modification, toujours lors de la deuxième iteration, j’ai le message suivant : « Erreur d'exécution '1004': La formule que vous avez tapée contient une erreur »

Je n’arrive pas à résoudre le problème et je ne comprends pas pourquoi cela fonctionne qu’une fois seulement ?
01/02/2017, 14h38
unparia

Bonjour

Citation:

Envoyé par c_tampon

Pour cela j’utilise la ligne de code suivant (celle-ci se trouve dans une boucle)
...
Je n’arrive pas à résoudre le problème et je ne comprends pas pourquoi cela fonctionne qu’une fois seulement ?

Le problème est selon toute évidence dans l'écriture de la boucle. Précisément celle dont on ne voit pas le code ;)

Bonjour,
Essaye avec un With

Code:

1
2
3
with worksheets(Nom_nouvelle_feuille)
ActiveWorkbook.Names.Add Name:=base_nom_plage & "_XXX", RefersTo:="=" & .Range(.Cells(Ligne_haut, 1), .Cells(Derniere_ligne, 1)).Address
end with

01/02/2017, 15h16
Menhir

Commence par regarder dans la fenêtre des variables locales, le contenu de chacune des variables présentes dans cette ligne de code.
Comme je le dis souvent, le diable se cache dans la variable. :mrgreen:
22/02/2017, 07h11
c_tampon

1 pièce(s) jointe(s)

Bonjour,
merci pour vos conseils. Pour le moment je n'ai pas trouver la solution :roll:.
J'ai essayer la solution de halaster08, mais le probleme reste le même. je n'ai pas trouvé la solution au travers de la fenêtre variable. le contenu de celle-ci me semble logique.

Je vous joint une partie de mon code dans un fichier excel permettant de le faire tourner. Je ne suis pas un pro et surement il pourrait être optimisé :lol:

Par la même occasion, si vous savez comment faire pour que les noms de plages dans les graphiques que je créée puisse bien apparaitre sous la forme d'un nom de plage (exemple: Suivi_graphique!D_01_Even_LIM_50) et non d'une sélection fixe (exemple : Suivi_graphique!$H$1603:$H$1629). je suis preneur :lol:.

Merci d'avance pour votre aide.
Pièce jointe 247056

je continue mes recherches pour résoudre mon probleme.
Je fais des tests en mettant des variables (voir ci-dessous) pour essayer de contourner le probleme.
Code:

1 2 3 4 5 6 With Worksheets(Nom_nouvelle_feuille) nom_plage = base_nom_plage & "_Lot" nom_plage_range = Worksheets(Nom_nouvelle_feuille).Range(Worksheets(Nom_nouvelle_feuille).Cells(Ligne_haut, 1), Worksheets(Nom_nouvelle_feuille).Cells(Derniere_ligne, 1)).Address ActiveWorkbook.Names.Add Name:=nom_plage, RefersTo:=nom_plage_range End With
le résultat n'est pas satisfaisant car il génère bien tout les nom de plages (la boucle s’exécute plusieurs fois) mais les plages ne peuvent plus être utilisées pour générer les graphiques. En fait, les valeurs de la plage de donnée sont remplacées par les références de la plages de donnée.

Du coup, je soupçonne plus un probleme de déclaration de variable ou de remise à 0 de certaine, dans mon premier code, qui l’empêchait d'effectuer la boucle plusieurs fois.
J'ai essayer de vider certaine variable avec "EMPTY" mais sans succès :calim2:

Est ce que vous avez des pistes qui pourraient m'aider ?

27/02/2017, 08h55
Menhir

1 pièce(s) jointe(s)

Ne connaissant rien du reste de ton code (en particulier comment tes variables sont déclarées et renseignées), je ne vois pas comment il serait possible de comprendre ton problème.
Pièce jointe 248729
27/02/2017, 10h30
c_tampon

Bonjour Menhir,
Si tu souhaites m'aider, tu trouveras le fichier contenant le code dans mon poste du 22/02.
Merci d'avance
27/02/2017, 10h55
unparia

Citation:

Si tu souhaites m'aider, tu trouveras le fichier contenant le code dans mon poste du 22/02.

Si tu souhaites que j'essaie de t'aider, ne m'invite pas à ouvrir un classeur tiers . Ma religion en matière de sécurité me l'interdit.
Isole la difficulté (ce que tu as fait) en montrant (ce qui t'est demandé) où et comment tu as déclaré et initialisé les variables que ton code utilise
27/02/2017, 11h47
Menhir

Citation:

Envoyé par c_tampon

Si tu souhaites m'aider, tu trouveras le fichier contenant le code dans mon poste du 22/02.

Comme beaucoup de participants à ce forum, je n'ouvre pas les pièces jointes, pour plusieurs raisons, entre autre celles expliquées ici :
https://www.developpez.net/forums/d8...s-discussions/

Bonsoir,

Alors, cela avance bien :P voir très bien :lol:

Je ne comprends toujours pas pourquoi cela plantait à la deuxième itération, néanmoins j'ai réussi à faire fonctionner ma boucle.

Pour cela je suis partie sur le deuxième message d'erreur que j'avais

Citation:

Du coup, j’ai modifié ma ligne de code de la façon suivante :

Code:

ActiveWorkbook.Names.Add Name:=base_nom_plage & "_XXX", RefersTo:="=" & Worksheets(Nom_nouvelle_feuille).Range(Worksheets(Nom_nouvelle_feuille).Cells(Ligne_haut, 1), Worksheets(Nom_nouvelle_feuille).Cells(Derniere_ligne, 1)).Address

Suite à cette modification, toujours lors de la deuxième itération, j’ai le message suivant : « Erreur d'exécution '1004': La formule que vous avez tapée contient une erreur »

Du coup j'ai cherché qu'est ce qui pouvait faire que la formule ne fonctionnait pas, et j'ai trouvé :D
J'ai ajouté une ' après le signe = cela me donne le code suivant :
Code:

1 2 3 4 5 With Worksheets(Nom_nouvelle_feuille) nom_plage = base_nom_plage & "_Lot" nom_plage_range = "='" & Nom_nouvelle_feuille & "'!" & Worksheets(Nom_nouvelle_feuille).Range(Worksheets(Nom_nouvelle_feuille).Cells(Ligne_haut, 1), Worksheets(Nom_nouvelle_feuille).Cells(Derniere_ligne, 1)).Address ActiveWorkbook.Names.Add Name:=nom_plage, RefersTo:=nom_plage_range End With
Cela n'explique pas pourquoi cela fonctionnais au premier passage et pas au suivant, mais cela fonctionne.

Je passe donc mon sujet en résolu pour ce point

Note pour unparia : je ne suis pas un expert ! je ne demande pas non plus que l'on me ponde une solution toute fait pour mes rares interventions sur ce forum. Néanmoins, lorsque j’envoie une bouteille à la mer j’essaie de faire le nécessaire pour apporter les éléments pour cette aide. Or , je te cite

Citation:

Le problème est selon toute évidence dans l'écriture de la boucle. Précisément celle dont on ne voit pas le code

Par conséquent, comme un bon néophyte que je suis, j'ai construit un fichier avec une partie de mon code pour qu'il soit fonctionnel avec des données lambda pensant que celui-ci pourrait faciliter l'aide que l'on pourrait m'apporter. Cela suite à ton sous entendu. Au final, ta réponse est loin d’être constructive et ne semble être là que pour incrémenter un compteur :weird:
je préfère de loin la réponse factuelle et bien plus diplomate de Menhir. Penses y la prochaine fois que tu croiseras un autre néophyte comme moi ;)

28/02/2017, 09h52
Menhir

Citation:

Envoyé par c_tampon

Par conséquent, comme un bon néophyte que je suis, j'ai construit un fichier avec une partie de mon code pour qu'il soit fonctionnel avec des données lambda pensant que celui-ci pourrait faciliter l'aide que l'on pourrait m'apporter.

Il eut mieux valu copier ton code dans un message du forum, encadré de balises CODE.
Pour la prochaine fois, tu le sauras.

Crois-moi, sans même parler de malveillances, les simples maladresses de néophytes dans des macros peuvent causer de gros problèmes. Je sais de quoi je parle, ça m'a déjà fait perdre une demi-journée de boulot.