Problème de liens entre CheckBox et ComboBox dans UserForm
Bonjour à tous, je suis actuellement en train de travailler sur un programme vba excel qui a été codé par une personne dans le passé.
Mon problème est plutôt simple et étant donné que je suis novice en vba excel je n'arrive malheureusement pas à le régler...
Voici mon problème :
Je dispose d'un UserForm dans qui m'affiche une liste de données de clients, cet UserForm est composé de 30lignes et à côté de chaque ligne se trouve un CheckBox.
Il y a au final donc 30 CheckBox de créer. Le but de ces CheckBox est, qu'une fois sélectionnée et après avoir cliquer sur le CommandButton "Supprimer", c'est de supprimer la ligne avec les informations du client.
Mon problème est que dans cet UserForm, je dispose d'un ComboBox (liste déroulante) qui me permet d'afficher les 30 premiers clients. Je peux ensuite afficher dans cet UserForm les clients 31 à 60 etc... jusqu'au 2071ème au 2100ème.
Lorsque je décide de supprimer n'importe quel client de la première page (les 30 premiers clients) ceci fonctionne tres bien, c'est lorsque je change de page, par exemple du 31ème client au 60ème, je sélectionne admettons le 31ème en cochant la CheckBox associée, je supprime... mais malheureusement c'est le 1er client de la 1ère page qui est supprimé...
J'espère vous avoir donné suffisamment d'éléments pour que vous puissiez m'aider, n'hésitez pas si ce n'est pas le cas.
Je vous remercie grandement par avance et reste à votre disposition.
Iliès
Bonjour Iliès,
Sans fichier et sans le code, il n'est pas possible de t'apporter une réponse ... Il faut anonymiser le fichier (il ne doit pas comporter de données personnelles) et il n'est pas nécessaire qu'il comporte autant de lignes (65 clients feront l'affaire).
Cdlt,
Cylfo
Bonjour Cyflo,
Je tiens à vous remercier d'avoir pris de votre temps pour m'aider à résoudre mon problème, en effet ces codes sont confidentiels c'est pourquoi je ne peux les joindre sur le forum, en revanche je peux vous donner un aperçu.
Voici les code : Sub-CheckBox est l'apercu du code que j'ai pour les CheckBox à savoir qu'il y en a 30, je vous ai joint les 2 premiers.
Bonjour,
Désolé mais à partir de ces éléments je ne sais pas t'aider. Dans un classeur vierge, peux-tu ajouter un module et y copier dedans les procédures "CommandButton2_Click" et celle qui permet l'affichage de 30 clients par 30 clients ?
Pour info : de ce que je vois, tu pourrais grandement simplifier l'affichage en utilisant un contrôle ListView qui permet d'avoir une case à cocher devant chaque ligne affichée (elle-même constituée de colonnes).
Cdlt,
Cylfo
Sinon, dans la procédure CommandButton_Click, dans les lignes
Sheets("DP_NACRE_Synthèse").Select
Rows(14 + I - J).Delete"Tu peux les modifier par
Sheets("DP_NACRE_Synthèse").Rows((Me.<Nom du contrôle de défilement>.ListIndex * 30) + 14 + I - J).DeleteVisiblement, ce qu'il te manque c'est de tenir compte de la page dans la suppression. <Nom du contrôle de défilement> correspond à celui qui affiche "1 à 30" dans ta toute première copie d'écran.
Merci infiniment Cyflo, je ne suis actuellement pas en mesure de l'essayer mais en effet vous avez cerné le programme, ce dernier étant que je reste bloqué à la première page.
J'essaie demain matin au plus vite, je vous remercie encore et vous souhaite une excellente soirée.
Je vais me renseigner sur les contrôles ListView, si vous avez des ressources je suis preneur ;)
Merci encore, j'ai vraiment hâte d'essayer demain
Encore moi... normalement, si je ne me trompe pas je devrais remplacer <Nom du contrôle de défilement> par <ComboBox1> dans Sheets("DP_NACRE_Synthèse").Rows((Me.<Nom du contrôle de défilement>.ListIndex * 30) + 14 + I - J).Delete
Si c'est le nom du contrôle qui affiche "1 à 30" etc., oui sans les 《》.
J'enverrai un exemple de ListView. Au vu du code, je pense que les données "clients" ne sont pas dans un tableau structuré. C'est bien le cas ?
une autre question : dans les données "clients", existe t il un identifiant unique associé à chaque client ?
Bonne soirée,
Cylfo
Bonjour Cyflo,
Je suis au bureau et le problème est réglé, je vous remercie grandement pour votre professionnalisme, pédagogie et rapidité.
Je suis actuellement en train de travailler sur la création d'un contrôle ListView pour rendre la lecture des données plus agréable.
Je vous souhaite une excellente journée,
Bien à vous,
Iliès