Contenu récent par BOISGONTIER

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

Bonjour, cf PJ Boisgontier

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

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

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

Bonjour, Pour adapter automatiquement les largeurs de colonnes Boisgontier

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) =...

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...

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

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

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...

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

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...

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

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