Discussion :

[Qwazerty]

Même avec le nouveau fichier que j'ai mis au dessus?
Ce qui m'ennuie c'est que je n'ai pas le soucis chez moi. Ferme tous tes fichiers, télécharge celui de mon dernier message et relance le stp.

[Edit]
Normalement il ne peut pas manquer de déclaration de variable, Option Explicit tout au début nous force à les déclarer, sinon il envoi un message d'erreur dès le début de l’exécution du code
[/Edit]

[Peerl]

Oui les modifications semble bonnes, tu passes bien pas le bouton pour lancer le Userform? Si tu le lances directement de VBE en utilisant la touche Run ça ne fonctionnera pas parce que les propriétés (Let) n'auront pas été initialisées (regarde le code dans Module1)

Au cas ou Pièce jointe 378716
++
Qwaz

ça marche c'était de ma faute enfait

Bon à la suiiite je te tiens au courant Bonne après midii

[Peerl]

Saluut

[/Edit]

Bon je reviens vers toi par rapport à ton code , j'ai essayé de l'adapter à classeur principal. J'ai commencé d'abord par changer le nom des colonnes existantes par "VRB" et "Secteur" pour que je ne fasse pas trop de modifications dans le code .

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Private DicoSecteur As New Dictionary

" erreur de compilation
type défini par l'utilisateur non défini ."

Je me demande si ce n'est pas parce-que dans la colonne "Secteur" on a toujours le mot "Secteur" suivi d'un numéro? car dans mon classeur cette colonnes là à trois modalités différentes qui se répète selon l'établissement ( sert à faire du filtre ) par exemple : HTP, DJP, Bos...

[Peerl]

[QUOTE=Peerl;10236350]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Private DicoSecteur As New Dictionary

" erreur de compilation
type défini par l'utilisateur non défini ."

apparement fallait activer la référence 'Microsoft scripting Runtime '.

[Qwazerty]

Salut

[QUOTE=Peerl;10237563]

apparement fallait activer la référence 'Microsoft scripting Runtime '.

C'est ça, je n'ai pas penser à le préciser dans le corps du code.

Pour ce qui est du nom des colonnes, tu peux utiliser des constantes.
Pour que celles-ci soient accessible dans toute les fonctions/procédures, tu les déclares après la ligne Option Explicit.

Par exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Option Explicit
 
Const cstSecteur as string = "Secteur"
Const cstVRB as string = "VRB"

Puis dans le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
'On prend les lignes correspondante à Secteur
Set CellSecteur = FindEntete(CellVRB.EntireRow, cstSecteur).Offset(1)

Pour te faciliter la tâche, tu fais un remplacement (Ctrl+F, onglet "remplacer") et tu remplaces "Secteur"(met bien les guillemets) par cstSecteur.

Par la suite si un jour tu veux modifier le code parce Secteur a été remplacé par Sect dans tes fichiers base, il te suffira de modifier le contenu de ta constante au début du Module.

++
Qwaz

[Peerl]

Salut

Est il possible de rajouter un autre critère comme Secteur ? si oui .. est ce que ça sera toujours avec la boucle FOR EACH ?

pour la multi-sélection pour les VRB faut vraiment que j'utilise la LISTBOX au lieu de la ComboBox ?

BONNE JOURNée à tous

[Qwazerty]

Salut

Si tu dois avoir plusieurs critères, il te faut un moyen de créer une liste de critères.
Soit un composant pouvant supporter les choix multiple (listbox), soit créer une liste en plaçant un bouton de validation à coté d'un combobox pour faire basculer la valeur sélectionnée dans la liste de critères qui sera envoyer à la recherche.
Un peu dans ce gout là
la partie à gauche serait un combobox

Mais ça n'est qu'un exemple avant de te lancer essai déjà de voir la finalité de tout ça.
Tu vas devoir lire les données dans différents fichiers, autant ne pas tous les ouvrir un par un, donc il te faudra lire leur contenu sans les ouvrir. Regarde ce dont tu vas avoir besoin pour réaliser cela (liste des fichiers, liste des onglets, liste des colonnes, liste des valeurs de critère... ).

++
Qwaz