470 résultats trouvés

par Boisgontierjacques
2 avril 2020, 17:00
Forum : Excel - VBA
Sujet : Recupere ligne complet Listbox
Réponses : 8
Vues : 166

Re: Recupere ligne complet Listbox

Bonjour,

avec un pgm générique qui s'adapte à la BD


Boisgontier
par Boisgontierjacques
30 mars 2020, 17:41
Forum : Excel - VBA
Sujet : Tableau généalogique et formule excel
Réponses : 6
Vues : 57

Re: Tableau généalogique et formule excel

Bonjour,

Exemple


Boisgontier
par Boisgontierjacques
30 mars 2020, 09:45
Forum : Excel - VBA
Sujet : Les pros de la listbox
Réponses : 2
Vues : 87

Re: Les pros de la listbox

Bonjour, Private Sub UserForm_Initialize() nomtableau1 = "Tableau1" nomtableau2 = "Tableau2" Set Rng1 = Range(nomtableau1) Set Rng2 = Range(nomtableau2) TblBD1 = Rng1.Value TblBD2 = Rng2.Value ColVisu1 = Array(1, 2, 3, 4, 5, 6, 7, 8, 9) ' Colonnes à visualiser (adapter) ColVisu2 = Array(1, 2, 3, 4, ...
par Boisgontierjacques
29 mars 2020, 19:10
Forum : Excel - VBA
Sujet : Formulaire de recherche multi critères
Réponses : 5
Vues : 2817

Re: Formulaire de recherche multi critères

Bonjour,


version plus récente. Il suffit ce coller la BD en A1
On récupère le resultat dans la feuille Résultat.



Boisgontier
par Boisgontierjacques
28 mars 2020, 15:16
Forum : Excel - VBA
Sujet : Modifier supprimer et ajouter avec tab structuré
Réponses : 3
Vues : 109

Re: Modifier supprimer et ajouter avec tab structuré

Bonjour, Option Compare Text Private Sub UserForm_Initialize() Me.enreg = [client].Rows.Count + 1 Me.Nop = Application.Max([client[nop]]) + 1 Tbl = [client].Value Tri Tbl, LBound(Tbl), UBound(Tbl), 2 Me.Recherche.List = Tbl End Sub Private Sub Recherche_Change() Me.enreg = Application.Match(Val(Me.R...
par Boisgontierjacques
27 mars 2020, 13:24
Forum : Excel - VBA
Sujet : Fonctions recherche
Réponses : 2
Vues : 50

Re: Fonctions recherche

Bonjour,

Pgm de recherche.

Boisgontier
par Boisgontierjacques
26 mars 2020, 18:35
Forum : Excel - VBA
Sujet : Titre tableau
Réponses : 9
Vues : 174

Re: Titre tableau

Bonjour, Affiche un en-tete et calcule la largeur des colonnes. On peut faire la même chose pour des champs discontinus. Dim Rng, NbCol Private Sub UserForm_Initialize() Set f = Sheets("BD") Set Rng = f.Range("A2:D" & f.[A65000].End(xlUp).Row) NbCol = Rng.Columns.Count Me.ListBox1.ColumnCount = NbCo...
par Boisgontierjacques
25 mars 2020, 09:47
Forum : Excel - VBA
Sujet : VBA Recherche par mots clés dans un tableau
Réponses : 3
Vues : 68

Re: VBA Recherche par mots clés dans un tableau

Bonjour,

Pgm générique

Collez votre BD en A1

Boisgontier