Charger les combobox

Question

En fait j'ai un souci et je sollicite votre aide. Je dois créer un fichier de renseignement a partir d'un formulaire qui renseignera le tableau excel. Mon souci est le suivant je n'arrive pas a renseigner les combox. j'ai déja essayé plusieurs code mais rien ca ne charge pas les combobox. De plus la combobox "vaccin a administrer" doit etre a choix miltiple. le fichier est joint Merci d'avance pour votre aide...

ThauThème · Answer

Ajoute ce code dans le module de l'UserForm : Private Sub UserForm_Initialize() With Sheets("DONNEES") Me.ComboBox3.List = .Range("A1:A" &amp; .Cells(Application.Rows.Count, 1).End(xlUp).Row).Value 'alimentation dynamique Me.ComboBox2.List = .Range("E1:E2").Value 'alimentation non dynamique End With End Sub...

ThauThème · Answer

Oui en effet j'avais oublier ce détail. Mais avec une ComboBox tu ne peux pas faire du MultiSelect . il faut passer par une ListBox ... Après, comment tu vas renvoyer les données dans le tableau avec plus d'un vaccin... Tu vas concaténer dans la colonne N ? Je pense que ça sera la solution la plus simple. Je t'ai écris le code pour cette partie dans le bouton Enregistrer.....

ThauThème · Answer

Désolé il y avait deux erreurs dans mon code et j'ai eu la sotte prétention de te l'envoyer sans le tester. En pièce jointe le fichier modifié.....

ThauThème · Answer

L'erreur doit provenir du fait que je t'avais déjà proposé une partie de code pour le bouton dans Private Sub CommandButton_enregistrer_Click() . Tu devais l'avoir en double c'est pour cela que ça plantait... Le principe que tu proposes est correct. Il fonctionnerait très bien si tes données étaient toutes du texte. Mais ce n'est pas le cas, tu risques de rencontrer des problèmes avec les dates (tu tapes 01/02/2015 et tu te retrouves avec 02/01/2015), les numéros de téléphone (le premier zéro ne s'affiche pas) et si l'utilisateur n'a choisi aucune Civilité , il n'y a aucun message d'alerte et, par conséquent, la cellule en colonne B vide. Le code que je te propose est beaucoup plus long mais plus fiable, même si tout n'est pas bétonné... • D'abord, parce que je suis maniaque, j'ai recréé les contrôles dans l'ordre avec le nom qui se suit. Tu peux donc utiliser la touche &#91;Tabulation&#93; pour naviguer dans les contrôles. • Ensuite au niveau des Labels, je les ai toutes renommées. Elles commencent toutes par L (pour Label) suivi du nom du contrôle auquel elles font référence. LTexBox1 , LFrame1 , ..., LListBox1 et LComboBox1 . Cela facilite les messages dans le code... • La propriété &#91;Tag&#93; . Je l'utilise dans les contrôles à renseigner uniquement. Elle correspond à la colonne dans laquelle la valeur du contrôle doit être renvoyée. Comme cette propriété est de type String , je la convertie en Byte pour les adresses ( F.Cells(DL, CByte(CTRL.Tag)).Value ). Ça a plusieurs avantages, que tu verras dans le code, et surtout, ça permet de boucler sur les contrôles, de les différencier etc... • pour remettre à zéro l'UserForm je préfère le fermer ( Unload ) puis le rouvrir ( Show ) mais ta méthode fonctionne aussi Code commenté... Remarque : L'email et Le vaccin sont-il vraiment obligatoires ...

ThauThème · Answer

Si tu dois par la suite faire des stats (filtrer ou compter) sur les vaccins, la méthode de concaténation utilisée n'est pas recommandée. Soit tu crées autant de colonnes que de vaccins (pas top), soit tu utilises autant de ligne que de vaccin pour la personne ayant plusieurs vaccin à faire (pas génial non plus). Pour comprendre le code, en plus des commentaires que je t'ai faits, sélectionne un mot que tu ne comprends pas et appuie sur la touche &#91;F1&#93; . Tu ouvriras l'aide VBA qui est très bien faite avec exemples à l'appui.....