Contenu récent par BOISGONTIER

  1. BOISGONTIER

    XL 2010 Correspondance ville par rapport au code postal

    Bonsoir, http://boisgontierjacques.free.fr/fichiers/Formulaire/CommunesCP.zip Boisgontier
  2. BOISGONTIER

    Office 365 Listbox Multi colonnes et Somme de colonnes

    Bonjour, cf PJ Boisgontier
  3. BOISGONTIER

    XL 2016 filtrer avec des cases a cocher :

    Bonjour, >Le fichier semble verrouillé Le fichier n'est pas verrouillé. Pour exporter un UserForm: clic-droit/exporter Boisgontier
  4. BOISGONTIER

    Office 365 filtre multicritère

    Bonjour, Exemple avec 3 critères http://boisgontierjacques.free.fr/fichiers/Formulaire/FiltreMulticol3cond.xls Boisgontier
  5. BOISGONTIER

    XL 2016 filtrer avec des cases a cocher :

    Bonsoir, Dim f, NbCol, NomTableau, TblBD() Private Sub UserForm_Initialize() NomTableau = "Tableau1" TblBD = Range(NomTableau).Value NbCol = UBound(TblBD, 2) Set d = CreateObject("scripting.dictionary") For i = LBound(TblBD) To UBound(TblBD) d(TblBD(i, 3)) = "" Next i...
  6. BOISGONTIER

    XL 2013 Fonction de recherche

    Bonjour, cf PJ Boisgontier
  7. BOISGONTIER

    XL 2016 filtrer avec des cases a cocher :

    Bonjour, >Je voudrais savoir si il y a moyen d'exporter les résultats affichés ou si on peut l'appliquer dans le feuille excel. Je ne suis pas sûr de comprendre la question. Cf PJ et http://boisgontierjacques.free.fr/fichiers/Formulaire/FormFiltreAutoEnsembleVBA3.xls Boisgontier
  8. BOISGONTIER

    Recherche intuitive par plusieurs mots dans le désordre

    Bonjour, Option Explicit Dim f, choix(), Rng Private Sub UserForm_Initialize() Set f = Sheets("DATA Contacts Internes") Set Rng = f.Range("B3:B" & f.[B65000].End(xlUp).Row) ' Sélectionne toutes les lignes non vide, pas de ligne vide à la fin du formulaire choix =...
  9. BOISGONTIER

    Recherche intuitive par plusieurs mots dans le désordre

    Bonjour, La recherche par fournisseur est un autre problème (plusieurs articles pour un fournisseur). Il faut une listBox. Option Compare Text Dim f, ligneEnreg, choix1() Private Sub UserForm_Initialize() Set f = Sheets("BD") choix1 = Application.Transpose(f.Range("A2:A" &...
  10. BOISGONTIER

    XL 2016 Sélectionner une feuille parmi plusieurs et afficher les données dans un formulaire.

    Bonjour, Exemple en PJ http://boisgontierjacques.free.fr/fichiers/Formulaire/FormRechercheModifAjoutSupMultiBD.xls Il serait plus simple d'avoir une seule BD et de choisir la classe et l'élève dans des comboboxs...
  11. BOISGONTIER

    Résolu Extraire des données d'un tableau excel par liste de mots clefs

    -Fonctionne pour tout type de BD -Calcule tous les mots clés de la BD -Choix intuitif des mots clés dans des comboboxs -Affichage des résultats dans une ListBox http://boisgontierjacques.free.fr/pages_site/formulaireListes2colonnes.htm#PlusMC Dim f, Rng, TblBD(), NbCol, Choix1() Option Compare...
  12. BOISGONTIER

    Résolu Extraire des données d'un tableau excel par liste de mots clefs

    Avec choix des mots clés dans un menu déroulant. Boisgontier
  13. BOISGONTIER

    Résolu Extraire des données d'un tableau excel par liste de mots clefs

    >Cela a été mon 1er réflexe mais a priori on cherche dans toutes les colonnes Il suffit de modifier la formule: =SOMMEPROD(ESTNUM(CHERCHE(liste;SUBSTITUE(BD!C2:F2;" ";"")))*(liste<>""))>0 Avec formulaire et liste de tous les mots-clés de la BD et choix intuitif des mots clés (fonctionne qq...
  14. BOISGONTIER

    Résolu Extraire des données d'un tableau excel par liste de mots clefs

    Bonjour, Avec le filtre élaboré Sub FiltreInverseListe() Sheets("bd").Range("A1").CurrentRegion.AdvancedFilter Action:=xlFilterInPlace, _ CriteriaRange:=Range("A1:A2"), Unique:=False End Sub Boisgontier
  15. BOISGONTIER

    XL 2010 Entête pour ListBox

    Bonjour, 2 exemples: 1-Si la ListBox est alimentée par RowSource http://boisgontierjacques.free.fr/fichiers/Formulaire/FormRechercheTextBox3.xls 2-Si la ListBox est alimentée par .List,.Column,AddItem http://boisgontierjacques.free.fr/fichiers/Formulaire/ListBoxEntete.xls Boisgontier
Haut Bas