Erreur d'execution 1004 suite à copie

Bonsoir afin de ne pas polluer le fichier travail de l'entreprise, j'ai fait une copie afin de travailler sur la macro...

Aujourd'hui fier du résultat, j'ai exporté les feuilles et modules VBA et les ai importé...

A mon grand désespoir, j'ai l'erreur 1004

Le débogage m'amène sur le createVRF.show

Hors cette feuille existe bien, mes compétences en VBA étant récentes et limitées, je suis sans solution...

Petite précision un bouton de commande lance un assistant

Seule la création de bulle technique complète me pose souci, l'ajout et le quitter eux fonctionnent.

Le bouton création doit lancer le formulaire CreateVRF....qui fonctionnait avant copie sur mon fichier travail

Bonjour Sitting_bull

Merci d'utiliser le bouton édition pour modifier vos post et rajouter des commentaires SVP

Sinon sans fichier, cela va être compliqué, je pense que l'erreur est dans l'USF appelé

A+

Bonjour je mettrais mon code ici dès mon arrivée au travail. Je ne pourrais malheureusement partager le fichier Excel pour des raisons de confidentialités.

Merci à vous

Bonjour,

Je pense qu'il n'est pas compliqué de créer une copie et de la vider de toutes données confidentielles

A+

Le problème c est que sur la copie (ce que j expliquais hier…) ma macro fonctionne sans problèmes !

des mon arrivée au bureau, je vous envoie cette macro. Et je vois pour modifier les données (9 onglets, une quinzaine de tableau structure et des centaines de lignes de données )

Je fais au mieux à tt a l heure

Et voilà, on lance le formulaire par le premier onglet avec le bouton de commande.

Le bouton suivant création bulle complète me créer une erreur

merci

Bruno

Edit modo : je supprime le fichier qui pour moi contient quand même certaines données sensibles

Bonjour et merci,

Tu ne sembles pas connaitre le mode débogage
Après avoir cliqué sur le bouton "Débogage", il suffit de faire F8 pour lancer le pas à pas

Car effectivement le code bug sur la ligne pour afficher l'USF, mais dans celui-ci il y a l'évènement Initialize

Donc en continuant avec F8, on s'appercois que le bug se produit sur la ligne

Et effectivement dans les noms définis, il n'existe pas

A+

Vu pour cette erreur, cependant j'obtiens une nouvelle erreur ailleurs.

CreateVRF.vlanfwpbox.list = fwp_Vlan.Keys
CreateVRF.subfwp.list = fwp_Subnet.Keys
CreateVRF.vrflan.list = Range("t_TRAV[VRF_DISPO]").Value

'Création LBI
For Each Cel_lbi In Range("t_TRAV[vlan lbi]")
    If IsError(Application.Match(Cel_lbi, TS_lbi.ListColumns("VLAN").DataBodyRange, 0)) Then
        lbi_vlan(Cel_lbi.Value) = Cel_lbi.Value
    End If
Next Cel_lbi
For Each Cel_lbi In TS_lbi.ListColumns("Designation").DataBodyRange
    If Not IsError(Cel_lbi) Then
        If Cel_lbi.Value = "Disponible" Then lbi_subnet(Cel_lbi.offset(, 1).Value) = Cel_lbi.offset(, 1).Value
    End If
Next Cel_lbi

CreateVRF.vlanlbibox.list = lbi_vlan.Keys
CreateVRF.sublbi.list = lbi_subnet.Keys
CreateVRF.vrflan.list = Range("t_TRAV[VRF_DISPO]").Value
CreateVRF.comm21.list = [FILTER(t_TRAV[comm1],t_TRAV[comm1]<>"")]
CreateVRF.comm22.list = [FILTER(t_TRAV[comm2],t_TRAV[comm2]<>"")]
CreateVRF.comm23.list = [FILTER(t_TRAV[comm3],t_TRAV[comm3]<>"")]
CreateVRF.comm24.list = [FILTER(t_TRAV[comm4],t_TRAV[comm4]<>"")]

Il s'arrête à chaque CreateVRF.xxxx

Edit

il s'arrête là

CreateVRF.vlanlbibox.list = lbi_vlan.Keys

Re,

Je n'ai pas se problème, en revanche j'ai une erreur sur la ligne

CreateVRF.lantype.list = Range("t_TRAV[lantype]").Value

Ce range n'existe pas

Après, merci de te rapprocher de celui qui a développé le code STP

Nous sommes pas là, je pense, pour déboguer tous les arrêts

A+

Ca marche merci