Boostez vos compétences Excel avec notre communauté !
Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force.
Apprenez, échangez, progressez – et tout ça gratuitement !
👉 Inscrivez-vous maintenant !
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
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
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 ?
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 ?
à mon avis; il faut commencer par un gros ménage!!
il y a du code qui ne correspond à rien
ex:
VB:
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
Code:
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
à mon avis; il faut commencer par un gros ménage!!
il y a du code qui ne correspond à rien
ex:
VB:
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
Code:
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
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
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
- Navigue sans publicité - Accède à Cléa, notre assistante IA experte Excel... et pas que... - Profite de fonctionnalités exclusives Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel. Je deviens Supporter XLD