XL 2019 Problème d'exécution de commande

[Raoul AGONGBE]

Bonjour Experts.
J'ai encore une nouvelle préoccupation.

Au niveau du UserForm 8, page ENREGISTREMENT, je n'arrive pas à exécuter des bouttons comme Ajouter, Restaurer. Souvent ça exécute mais me renvoie automatiquement un Bug qui m'empêche d'évoluer pour cause d'appel d'autres macros.
Fichier joint ci-dessous:
https://www.sendspace.com/file/7dimjm

Prière m'aider svp

 

[vgendron]

Bonjour

on ne peut pas télécharger ton fichier
pourquoi ne pas le mettre directement ici sur le site ?

 

[Cousinhub]

Hello @vgendron
Si le cœur t'en dit...
Bon courage 😕

 

[vgendron]

ah oui quand meme !! sacré usine à gaz !!

déjà.. quand je vois qu'il cherche la dernière ligne de la feuille pour ajouter une ligne alors que la feuille utilise une Table structurée..
pour ajouter une ligne dans une table Structurée il suffit de faire
with listobjets("nomdelatable")
ind=.listrows.add.index
end with

pourquoi utliser une listview différente dans chaque page du multipage.?

ton bug sur le Vlookup...
au moment ou ce code est exectué, il n'y a rien à chercher.. du moins;. pas de retour à avoir.. donc bug..
voir "rustine" en pj

 

[TooFatBoy]

Bonjour,

on ne peut pas télécharger ton fichier
pourquoi ne pas le mettre directement ici sur le site ?

Pourquoi ne le pourrait-on pas ?
Ceci dit, tu as parfaitement raison, vu qu'il ne fait que 455 ko, il peut être joint dans un message sur le forum.

---

ah oui quand meme !! sacré usine à gaz !!

Je crois que tout (ou presque) a été écrit par ChatGPT ou une cochonnerie dans le même genre.

---

ton bug sur le Vlookup...
au moment ou ce code est exectué, il n'y a rien à chercher.. du moins;. pas de retour à avoir.. donc bug..

Moi, j'avais trouvé que la valeur recherchée était "Code_INS" qui est en fait l'en-tête de la colonne, et que ladite valeur n'était donc pas trouvée et une erreur retournée.
Me trompé-je encore ?

 

[Raoul AGONGBE]

ah oui quand meme !! sacré usine à gaz !!

déjà.. quand je vois qu'il cherche la dernière ligne de la feuille pour ajouter une ligne alors que la feuille utilise une Table structurée..
pour ajouter une ligne dans une table Structurée il suffit de faire
with listobjets("nomdelatable")
ind=.listrows.add.index
end with

pourquoi utliser une listview différente dans chaque page du multipage.?

ton bug sur le Vlookup...
au moment ou ce code est exectué, il n'y a rien à chercher.. du moins;. pas de retour à avoir.. donc bug..
voir "rustine" en pj

Merci pour votre apport, expert.
J'ai satisfaction sur ce point mais mon bouton "Restaurer" ne passe toujours pas. C'est dans l'intention de vider les TexBox et les ComboBox ainsi que le frame image et le WbeBrowser que je l'ai instauré. Que dois-je faire ?

 

[vgendron]

à mon avis; il faut commencer par un gros ménage!!

il y a du code qui ne correspond à rien
ex:

Private Sub ListView5_Click()
Call extract_data_in_ListView_INSCRIPTION
Call ExtractListViewToOptionButtons_INSCRIPTION
Call ExtractPDFLinktowebbrowser_INSCRIPTION
End Sub

il n'y a pas de Listview 5 dans ton formulaire

il faut renommer tous tes controls..
Textbox1, textbox52.. on ne comprend pas à quoi ils correspondent

alors que si tu renommes;..
TextBox3 ==> Code_INS
TextBox14 ==>Matricule

1) ce serait beaucoup plus clair !! et en plus beaucoup plus facile pour manipuler les donner
SURTOUT si tu utilises les memes noms dans les Tables Structurées sur les feuilles..

exemple

with Listobjects("t_Enregistrement") 'avec la table structurée "t_Enregistrement"
   for j=1 to .listcolumns.count 'pour chaque colonne
         NomCol=.headerrowrange(j) 'entete de la colonne
        .listcolums(NomCol).databodyrange(i)=me.controls(NomCol) 'la ligne i de la colonne récupère le contenu du control de meme nom
   next j
end with

 

[Raoul AGONGBE]

à mon avis; il faut commencer par un gros ménage!!

il y a du code qui ne correspond à rien
ex:

Private Sub ListView5_Click()
Call extract_data_in_ListView_INSCRIPTION
Call ExtractListViewToOptionButtons_INSCRIPTION
Call ExtractPDFLinktowebbrowser_INSCRIPTION
End Sub

il n'y a pas de Listview 5 dans ton formulaire

il faut renommer tous tes controls..
Textbox1, textbox52.. on ne comprend pas à quoi ils correspondent

alors que si tu renommes;..
TextBox3 ==> Code_INS
TextBox14 ==>Matricule

1) ce serait beaucoup plus clair !! et en plus beaucoup plus facile pour manipuler les donner
SURTOUT si tu utilises les memes noms dans les Tables Structurées sur les feuilles..

exemple

with Listobjects("t_Enregistrement") 'avec la table structurée "t_Enregistrement"
   for j=1 to .listcolumns.count 'pour chaque colonne
         NomCol=.headerrowrange(j) 'entete de la colonne
        .listcolums(NomCol).databodyrange(i)=me.controls(NomCol) 'la ligne i de la colonne récupère le contenu du control de meme nom
   next j
end with

Super. Je ferai le ménage et vous revenir à propos.

 

[vgendron]

regarde la PJ

surtout la partie "Initialize" du formulaire 8 qui fait appel à deux macros
LoadCombo
et
LoadLV

 

[Raoul AGONGBE]

regarde la PJ

surtout la partie "Initialize" du formulaire 8 qui fait appel à deux macros
LoadCombo
et
LoadLV

Waouhhh. Je vous renvoie la version actuelle.

 

[vgendron]

bonjour

1) tu n'as pas repris le fichier que je t'ai fourni avec toutes les modifs
2) tu as supprimé deux pages du multipage, mais tu as laissé tout le code qui était associé aux pages supprimées

en l'état, impossible de s'y retrouver.

 

[vgendron]

Re
voir PJ

UNE macro pour charger la ListView à partir de la feuille
UNE macro pour charger les controls à partir de la ligne sélectionnée
UNE macro pour enregistrer les infos du formulaire vers la feuille
==> cette macro est appelée par les boutons "Enregistrer" ET "Modifier"
enregistrer créer une nouvelle ligne dans la table avant d'appeler la macro avec le "nouveau" numéro de ligne
Modifier appelle la macro avec le numéro de la ligne à modifier