Rechercher et Importer données Excel sur un UserForm

Question

Je suis parvenu à exporter des données d'un UserForm à un fichier Excel, mais en deuxième temps et en faisant la recherche je n'ai pas pu les importer . Sachant que les données peuvent exister sur plusieurs colonnes et je veux les importer dans un seul TextBox. ci joint un exemple pour mieux expliquer ma requête. Merci à Tous...

Yvouille · Answer

Si tu désires placer les données 'Dépistage - Mammographie et Contrôle' dans une forme de manière à pouvoir en choisir l'une ou l'autre, je ne comprends pas pourquoi tu ne veux pas le faire dans un ComboBox comme pour tes prénoms. Peux-tu être un peu plus clair sur tes souhaits ? A te relire...

Yvouille · Answer

Tes demandes ne sont pas toujours très précises ; je pourrais bien entendu chercher moi-même par tâtonnement de quoi tu parles, mais comme tu connais bien tes fichiers, pourquoi ferais-je ce travail complémentaire ? Tu as deux UserForm, merci de me préciser pour chacune de tes (en partie nouvelles) questions duquel tu parles. Tu dis vouloir importer des données pour les TextBox 6, 10 et les CheckBox. Peux-tu me dire quelles données devraient être chargées dans le TextBox 6 et pour l’un des CheckBox ? Par la suite, sur la base de mes exemples, tu devrais arriver à reproduire la chose pour tes autres objets. Où saisis-tu une date qui est inscrite d’une manière incorrecte et où est-elle reportée ? A te relire...

Yvouille · Answer

C’est un peu compliqué à t’expliquer ce que j’ai modifié, je pense donc qu’il vaut mieux que tu découvres ces changements dans les codes toi-même et que tu poses des questions si nécessaire. J’ai mis partout le mot Yvouille à côté de mes modifications, tu peux donc utiliser l’outil de recherche de VBA pour retrouver les passages concernés. Pour les dates il semble qu’il suffise d’utiliser l’instruction CDate() , comme ci-dessous : Sheets("BD").Cells(no_ligne, 10) = CDate(DateCMTBox4.Value) Comme je travaille avec des formats de dates suisses (jj.mm.aaaa) et que j'ai souvent eu des mauvaises surprises à ce niveau-là, il se peut que cette modification ne suffise pas avec un format de date autre (par exemple jj/mm/aaaa). A voir. Je n’ai modifié qu’un seul passage, si ça fonctionne, modifie toi-même le reste. Pour les autres modifications, je n’ai effectué que la correction pour les codes CommandButton1_Click et OrdreBox1_Change . Pour les autres codes xxxxxx_Change , je te laisse également voir toi. A te relire...

Yvouille · Answer

Chez moi ça ne bloque pas ! Tu peux être plus clair ? Me fournir un fichier où ça bloque ? A te relire...

Yvouille · Answer

Il y a plusieurs problèmes avec ce fichier (une vraie usine à gaz ). Tout d’abord tu as répété pratiquement le même code pour chacun de tes ComboBox (tous tes codes xxxxxxx_Changes ) et il faut maintenant effectuer les nouvelles corrections dans chacun d’eux individuellement plusieurs fois. Il aurait mieux valu trouver un code unique qui fonctionne pour tous tes comboBox, en utilisant une variable qui prendrait la valeur de chacun de ces ComboBox. Mais bon, ça semble un peu tard. Je t’ai fourni une super solution – du moins il me semble – à propos des dates, mais tu ne l’as pas utilisée dans ton code J’ai moi-même effectué une erreur : je t’ai dis dans mon message du 8 courant que j’avais effectué une correction dans le code CommandButton1_Click , mais j’ai posté une fausse version et le code ci-dessous ne t’as pas été fourni Dim i As Byte For i = 1 To 18 Controls("CB" &amp; i) = False Next i Ce passage remet à zéro les 18 CheckBox SG, SD, et SB lorsque tu cliques sur le bouton Effacer de ton UserForm2. Comme je n’avais pas tout compris comment fonctionnait ton système, j’ai pensé que cette remise à zéro à ce moment là suffisait. J’avais compris que tes colonnes P, Q et R étaient toujours toutes renseignées. Comme ça ne semble pas être le cas, j’ai modifié le code en coséquence (passages If Code_SG &gt; 0 Then Controls("CB" & Code_SG) = True , etc.). Comme tes différents codes s’appellent les uns les autres (si tu ne vois pas ce que je veux dire, je peux te l’expliquer), j’ai dû modifier ces passages dans chacun de tes codes xxxxxx_Change . Mais toujours parce que tes colonnes P, Q et R ne sont pas toujours renseignées, il faut remettre à zéro les CheckBox SG, SD, et SB au début de chaque code xxxxxx_Change , ce que j’ai fait en reprenant le passage que ci-dessus dans chacun d’eux : Dim i As Byte For i = 1 To 18 Controls("CB" &amp; i) = False Next i Jusqu’à ce que l’on ai fini cette discussion, je te serais reconnaissant de bien vouloir utiliser mon code avec mes compléments, de manière à ce que je m’y retrouve plus facilement (ces indications 'Yvouille' dans le code ne sont pas gratuites, c'est pour m'aider à m'y retrouver). A te relire...