Résultats de la recherche

  1. BOISGONTIER

    XL 2019 Filtre combobox

    Bonsoir, http://boisgontierjacques.free.fr/fichiers/DonneesValidation/ListeIntuitive5.xls Boisgontier
  2. BOISGONTIER

    Microsoft 365 saisie intuitive

    Bonjour, cf PJ Boisgontier
  3. BOISGONTIER

    Créer une listbox dans un userform

    Bonjour, http://boisgontierjacques.free.fr/pages_site/formulaireListes2colonnes.htm Boisgontier
  4. BOISGONTIER

    Microsoft 365 Concatener plusieurs fichier dans un fichier et onglet unique

    Bonjour, http://boisgontierjacques.free.fr/fichiers/ConsolideOnglets.xls Boisgontier
  5. BOISGONTIER

    Liste déroulante qui dépend d'une autre liste

    Bonjour, http://boisgontierjacques.free.fr/pages_site/listes_cascade.htm Boisgotier
  6. BOISGONTIER

    XL 2010 Affichage TextBox au premier plan

    Bonjour, Pour adapter automatiquement les largeurs de colonnes Boisgontier
  7. BOISGONTIER

    XL 2016 Remplir tableau structuré à partir d'un autre

    Bonjour, http://boisgontierjacques.free.fr/pages_site/TableauDyn.htm Sub TranFertTableau() nomtableau1 = "tableau1" nomtableau2 = "tableau2" n = 1 Range(nomtableau2 & "[nom]").Item(n, 1) = Range(nomtableau1 & "[nom]").Item(n, 1) Range(nomtableau2 & "[Ville]").Item(n, 1) =...
  8. BOISGONTIER

    XL 2016 Tableau de fournisseur et triage par onglet

    Bonsoir, Avec le filtre élaboré Sub Extrait() Set f = Sheets("fournisseursliste") Application.DisplayAlerts = False Application.ScreenUpdating = False f.[L1] = f.[C1] ' colonne critère (adapter) Nlig = f.[A1].CurrentRegion.Rows.Count Ncol = f.[A1].CurrentRegion.Columns.Count...
  9. BOISGONTIER

    XL 2019 trier un tableau

    Bonjour, S'il s'agit de gérer les anniversaires: http://boisgontierjacques.free.fr/fichiers/Dates/CalendrierlAnnivFetes.xls http://boisgontierjacques.free.fr/fichiers/Formulaire/ListBoxEntre2datesAnniv.xlsm Boisgontier
  10. BOISGONTIER

    XL 2010 Filtrer automatiquement par ordre alphabétique.

    Bonjour, Version 1 seule page Sub FiltreListe2() Range("G1").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=Range("A1:A2"), CopyToRange:=Range("J1"), Unique:=False End Sub Boisgontier
  11. BOISGONTIER

    Autres XL2007 : Problème adressage dans Tblo

    cf PJ On peut imaginer de sauvegarder l'index et ne le créer qu'une fois. Sub essai() '--- construction index Tbl = [H2].CurrentRegion Set d = CreateObject("scripting.dictionary") For i = 1 To UBound(Tbl) temp = Tbl(i, 1) If d.exists(temp) Then idx = d(temp) Else...
  12. BOISGONTIER

    Autres XL2007 : Problème adressage dans Tblo

    Il faudrait un échantillon du tableau (y a t'il 7 items pour chaque nom?) Boisgontier
  13. BOISGONTIER

    Autres XL2007 : Problème adressage dans Tblo

    Bonsoir, Est -il possible d'organiser les données sous un autre forme (cf PJ)? Si c'est le cas, on peut indexer le second tableau avec un dico et la recherche devient instantanée http://boisgontierjacques.free.fr/fichiers/Cellules/RegroupeDicTotal.xls Nom1 Val5 Val4 Val3...
  14. BOISGONTIER

    XL 2019 Saisie naturaliste basée sur code private sub de liste intuitive

    Bonjour, Si vous frappez dans le combobox ab lasio, il apparaît dans le combobox 3 lignes. Si vous validez avec Entrée, c'est le premier de la liste qui est sélectionné dans la cellule. Si vous cliquez sur autre item, c'est lui qui est mis dans la cellule. Boisgontier
  15. BOISGONTIER

    XL 2010 Filtrer automatiquement par ordre alphabétique.

    Bonjour, http://boisgontierjacques.free.fr/fichiers/Filtre/FiltreListeTS.xlsm Boisgontier
  16. BOISGONTIER

    XL 2019 Saisie naturaliste basée sur code private sub de liste intuitive

    Bonsoir, par défaut, c'est le premier de la liste restante qui est pris. http://boisgontierjacques.free.fr/fichiers/DonneesValidation/DVIntuitifMultiMots.xlsm Boisgontier
  17. BOISGONTIER

    XL 2019 trier un tableau

    Bonsoir, Postez votre fichier. Boisgontier
  18. BOISGONTIER

    XL 2019 Saisie naturaliste basée sur code private sub de liste intuitive

    Bonjour, http://boisgontierjacques.free.fr/pages_site/formulairecascade.htm#ListeIntuitive http://boisgontierjacques.free.fr/fichiers/Formulaire/Liste_deroulante_intuitive_multi_criteresV2.xls La recherche est multi-mots. On peut frapper ab lasio Dim choix1() Private Sub...
  19. BOISGONTIER

    XL 2019 trier un tableau

    Bonjour, Pour le mois 1, les jours sont bien dans l'ordre et pour le mois 2, les jours sont bien dans l'ordre. La colonne de tri est obtenue par: For i = 1 To UBound(temp) temp(i, NbCol + 1) = Format(temp(i, NbCol), "00") & Format(temp(i, NbCol - 1), "00") Next i Boisgontier
  20. BOISGONTIER

    XL 2019 trier un tableau

    Je n'y comprends rien. J'avais trié par date de naissance (vous n'en voulez pas) j'ai trié par mois et jour (vous n'en voulez pas) Boisgontier