XL 2019 formulaire de recherche à 4 ComboBox

[Emmanuel-G]

Bonjour

Etant novice dans la programation VBA sous Excel et après de multiple essais qui ne fonctionnait pas, n'ayant rien trouvé d'équivalent sur le net (Forum, you tube etc..) .

Je sollicite votre aide pour ce formulaire de rechercher fonctionnant avec quatre ComboBox (Clien, titre, pagination, pli).

La base de données se compose de 43 collonnes réparti de 7 ComboBox, 1TextBox et 35 TextBox à valeur numérique).

Je vous remercie par avance de votre aide

 

[ChTi160]

Bonjour Emmanuel
Bonjour Bernard
je me permets
Bernard dans le Fichier joint tu as oublié de modifié le Nom des Userforms dans les procédure des Boutons
exemple :

Sub OuvreFormulaire()
    frmSaisie.Show
End Sub
Sub OuvreModification()
    frmModification.Show  
End Sub

a moins que ce ne soit volontairement ! lol
Bonne journée
jean marie

 

[Emmanuel-G]

Bonjour Emmanuel
Bonjour Bernard
je me permets
Bernard dans le Fichier joint tu as oublié de modifié le Nom des Userforms dans les procédure des Boutons
exemple :

Sub OuvreFormulaire()
    frmSaisie.Show
End Sub
Sub OuvreModification()
    frmModification.Show
End Sub

a moins que tu ce ne soit volontairement ! lol
Bonne journée
jean marie

 

[Emmanuel-G]

Bonjour
je viens de regarder votre travail, sur l'UFmRecherche avec les couleurs qui servent de confirmation a la bonne saisie super travail don je suis incapable.

Il y a eu plusieurs erreurs lors de l'overture du formulaire de saisie dont une que j'ai corrigé (ComboBox qui etait en cbo modifier par CBx comme vous me l'avez conseillé) j'ai un message qui reste (erreur '70' permission refusée) dans UFmSaisie qui est en jaune. Je pense que c'est parce que le code se trouve en mode commentaire.

je vais suivre vos conseil et mettre le (les) dispositif (s) "recherche et aussi le dispositif modification/supréssion" dans le formulaire de saisie.

Un grand merci pour votre travail (je commence à comprendre (un peu) le fonctionnement du VBA).

Cordialement

 

[Dranreb]

C'est normal, je n'ai pas essayé de finaliser l'UFmSaisie, j'ai juste mis à peu près les procédures qu'il faudra. J'attends que vous fassiez les CAs.Add pour tous les contrôles.
Une permission refusée survient en général quand un RowSource a été laissé renseigné pour une ComboBox prise en charge par un ComboBoxLiées.
Le changement de couleur des ComboBox prises en charge par un ComboBoxLiées est automatique si sa méthode CouleurSympa a été invoquée.

 

[Emmanuel-G]

Bonjour
Je viens tout juste de prendre connaissance de votre méssage, les boutons seront mis dans le formulaire de saisie demain dans la matinée.

 

[Emmanuel-G]

Bonjour

je viens de finir les modifications sur le formulaire de Saisie et transformé tout les btn en CBn pour avoir le même language.

Pour le bouton modification /Suppression il a été supprimé mais j'ai laissé celui de modification en place et affichera la recherche dans le formulaire de saisie.

J'ai montré le formulaire de Recherche à mes jeunes padawan ils ont trouvé ça super, pour le formulaire de Saisie ils le connaissent déjà et servent des enregistrements effectués

 

[Dranreb]

Bon ben je préfère joindre le mien, car je vois qu'il est un tout petit peu plus avancé …

 

[Emmanuel-G]

Je regarde ça en rentrant, du fait qu'il soit un peu plus avancé que le mien je n'en doute pas une seconde (je vous fais confiance vu le travail effectué sur le formulaire de recherche). Il m'a fallu à peu près deux semaines pour faire la base de données et le formulaire de saisie avec un niveau 0 mais j'apprends.

 

[Emmanuel-G]

Je viens d'ouvrire le fichier, le petit peu plus avancé ... fait tout de mêne son effet.

Je complète les CAs.Add et vous tiens au courant

 

[Emmanuel-G]

j'ai fini de compléter les CAs.Add plus quelques TBx resté en txt et le changement de l'écriture de quelques TBx avec du numérique chose que je n'avais pas fait donc erreur et les virgules remplacées par un p minuscule.
Une fois fini il y a eu un méssage d'erreur qui apparait (Erreur d'exécution 13 : incompatibilité de type et quand je quitte le mode développeur j'ai se message (Colonne "rouge" inconnue dans le tableau_Source_Rotoman).

je vous joins le fichier.

Encore une foi merci, vous avez fait un super travail

 

[Dranreb]

J'ai regardé vite fait, et j'ai vue que c'est parce qu'il n'existe pas de colonne intitulée "Rouge" dans le tableau, exactement tout comme il vous le dit !
Il en existe par contre une intitulée "Rouge ", avec un espace inutile à la fin …
Bonne nuit.

 

[Emmanuel-G]

bonjour

j'ai résolu en partie le petit problème exposé cette nuit, il y en avait plusieurs du même type je suis arrêté sur RRU3, ce qui m'amène à la question suivante dû au changement d'ordinateur qui fonctionne sur win 8 et office pro plus 2016.
Le programme m'envoie un message d'erreur (Erreur de compilation: Proget ou bibliothèque introuvable) dans Option Explicit sur la ligne du dessous la phrase Cas As Controls Associés est dans un cadre bleu, je pense que le le problème se situe dans Références VBAProject la case est bien coché la phrase suivante et (MANQUANT: CBxLCtlA,xlam.
il y a eu une belle micro coupure de courant cette nuit et qui a msi le bazar dans l'ordinateur, si c'est bien ça comment le réinstaller car là j'ai peur de mettre le bazar

 

[Emmanuel-G]

C'est bon j'ai resolu le problème (j'ai fait plusieurs copie pour assurer le coup).
je suis allé retélécharger votre programme "Combobox liées etc ... et tout fonctionne de nouveau.

 

[Dranreb]

C'est peut être dû au concours de 2 circonstances :
1) — Le projet VBA CLsCAs n'est plus ouvert chez vous,
2) — Il ne peut plus l'ouvrir automatiquement pour l'instant parce que la référence est indiquée pour un chemin venant de chez moi, qui n'existe pas chez vous.
Pour l'ouvrir, du coté Excel, cocher "CBx liées et Ctl associés" dans la liste des compléments disponibles, menu Développeur, groupe Compléments, commande Compléments Excel.
Si du coté VBA la référence à CLsCAs est toujours portée MANQUANT, dé-cochez la, puis re-cochez la.

 

[Emmanuel-G]

Bonjour

Le PC du burreau et disponible

J'ai corrigé l'erreur de frappe sur la ligne (rouge) il y en avait sur d'autres lignes mais je n'arrive pas à corriger la même erreur sur la ligne (RRU 3) reprise de l'écriture dans le tableau et le code le message persiste.

Cordialement