569 résultats trouvés

par ceuzin
4 octobre 2018, 23:17
Forum : Excel - VBA
Sujet : Recherche selon critères multiples
Réponses : 14
Vues : 246

Re: Recherche selon critères multiples

Bonsoir,

Avec un programme générique

Ceuzin
par ceuzin
4 octobre 2018, 22:52
Forum : Excel - VBA
Sujet : formulaire de Recherche et Affiche le résultat dans une listbox
Réponses : 3
Vues : 144

Re: formulaire de Recherche et Affiche le résultat dans une listbox

Bonsoir, Option Compare Text Private Sub UserForm_Initialize() ' http://boisgontierjacques.free.fr Set f = Sheets("Stock") Set d = CreateObject("Scripting.Dictionary") BD = f.Range("A2:H" & f.[A65000].End(xlUp).Row).Value Me.ListBox1.List = BD For i = LBound(BD) To UBound(BD) d(BD(i, 7)) = "" Next i...
par ceuzin
21 septembre 2018, 17:57
Forum : Excel - VBA
Sujet : Comparaison BD: Macro trop "lourde"
Réponses : 3
Vues : 143

Re: Comparaison BD: Macro trop "lourde"

Bonjour, Méthode la + rapide (comparaison entre dictionnaires) http://boisgontierjacques.free.fr/pages_site/Dictionnaire.htm#ElementsCommuns2Listes Sub Communs() a = Range("A2:A" & [A65000].End(xlUp).Row) Set MonDico1 = CreateObject("Scripting.Dictionary") For Each c In a MonDico1(c) = "" Next c b =...
par ceuzin
16 septembre 2018, 22:44
Forum : Excel - VBA
Sujet : Listes deroulantes en cascade avec plusieurs niveaux
Réponses : 15
Vues : 261

Re: Listes deroulantes en cascade avec plusieurs niveaux

Sur un autre forum, jai fait un système à x niveaux. Dim zSaisie, NbNiv Private Sub Worksheet_SelectionChange(ByVal Target As Range) Set zSaisie = Range("B2:D4") NbNiv = 3 If Not Intersect(zSaisie, Target) Is Nothing And Target.Count = 1 Then TblBD = [Tableau1].Value Set d1 = CreateObject("Scripting...
par ceuzin
16 septembre 2018, 13:26
Forum : Excel - VBA
Sujet : Listes deroulantes en cascade avec plusieurs niveaux
Réponses : 15
Vues : 261

Re: Listes deroulantes en cascade avec plusieurs niveaux

Bonjour, Version + rapide http://boisgontierjacques.free.fr/fichiers/DonneesValidation/CascadeVBA6Niveaux.xls http://boisgontierjacques.free.fr/fichiers/DonneesValidation/CascadeVBA6NiveauxVert.xls X niveaux http://boisgontierjacques.free.fr/fichiers/DonneesValidation/CascadeXNiveauxHoriz.xls http:/...
par ceuzin
14 septembre 2018, 20:36
Forum : Excel - VBA
Sujet : Listes deroulantes en cascade avec plusieurs niveaux
Réponses : 15
Vues : 261

Re: Listes deroulantes en cascade avec plusieurs niveaux

[Bonsoir, Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect([a2:f2], Target) Is Nothing And Target.Count = 1 Then Set d1 = CreateObject("Scripting.Dictionary") For Each c In [choix1]: d1(c.Value) = "": Next c Target.Validation.Delete Target.Validation.Add xlValidateList, ...
par ceuzin
10 septembre 2018, 09:19
Forum : Excel - VBA
Sujet : Liste déroulante puis déroulante puis déroulante
Réponses : 9
Vues : 183

Re: Liste déroulante puis déroulante puis déroulante

Bonjour,

Version classeur Excel

Ceuzin