Contenu récent par BOISGONTIER

  1. BOISGONTIER

    XL 2016 Problème d'affichage listbox

    Bonjour, cf PJ Boisgontier
  2. BOISGONTIER

    Résolu Inputbox présentant un nom avec seulement la saisie d'une lettre

    Bonjour, http://boisgontierjacques.free.fr/fichiers/DonneesValidation/DVSaisieIntuitiveComboBox.xls http://boisgontierjacques.free.fr/pages_site/listes_cascade.htm#IntuitifTableur Boisgontier
  3. BOISGONTIER

    Office 365 Ligne et colonne surlignée

    Bonsoir, Qq exemples. http://boisgontierjacques.free.fr/fichiers/jb-Curseur.xls Boisgontier
  4. BOISGONTIER

    XL 2013 Relier les combobox de filtre

    S'il n'y a pas de tableau dynamique: Set f = Sheets("bd") Set Rng = f.Range("A2:D" & f.[A65000].End(xlUp).Row) ' à adapter nomTableau = "Tableau1" ActiveWorkbook.Names.Add Name:=nomTableau, RefersTo:=Rng TblBD = Range(nomTableau).Value Boisgontier
  5. BOISGONTIER

    XL 2013 Relier les combobox de filtre

    Bonjour, Exemple Boisgontier
  6. BOISGONTIER

    XL 2016 Fichier pour Jacques BOISGONTIER

    Bonjour, Cf PJ Boisgontier
  7. BOISGONTIER

    XL 2019 position du dernier caractère numérique d'une chaine de caractère

    Bonsoir, Il suffit de chercher à partir de la droite. =NBCAR(A1)-EQUIV(VRAI;ESTNUM(CNUM(STXT(A1;NBCAR(A1)-LIGNE($1:$255);1)));0) Valider avec maj+ctrl+entrée abcdx56xxxx donne 7 Boisgontier
  8. BOISGONTIER

    XL 2016 Travailler avec l'Objet Scripting.Dictionary

    Bonsoir, Exemple de tableau de dictionnaires : http://boisgontierjacques.free.fr/fichiers/Cellules/NbUniques100000.xlsm Boisgontier
  9. BOISGONTIER

    Office 365 Trouver le nom du tableau structuré (ListObject) par formule

    Bonjour, Avec une fonction perso qui donne les noms de champs dynamiques. Function ListeNomsD() Application.Volatile Dim a(): ReDim a(1 To Application.Caller.Rows.Count, 1 To 2) i = 0 For s = 1 To Sheets.Count For Each c In Sheets(s).ListObjects i = i + 1 a(i, 1) =...
  10. BOISGONTIER

    XL 2019 Liste déroulante en cascade : définir un nom avec des espaces

    Bonjour, Il faut remplacer Indirect(xx) par =INDIRECT(SUBSTITUE(xx;" ";"_")) http://boisgontierjacques.free.fr/pages_site/listes_cascade.htm#Listesencascade1 Lorsqu'il y a seulement 2 niveaux, il y a plus simple que la méthode indirect()...
  11. BOISGONTIER

    XL 2013 Liste déroulante choix langue -> affichage de listes distinctes

    Bonjour, -On peut choisir la langue -Si on modifie un item de la liste, les choix déjà faits dans les menus déroulants sont modifiés http://boisgontierjacques.free.fr/fichiers/DonneesValidation/dvliaisonLangue.xls...
  12. BOISGONTIER

    XL 2010 ListBox avec case à cocher

    Bonsoir, Exemples: http://boisgontierjacques.free.fr/pages_site/formulairemultiSelection.htm Boisgontier
  13. BOISGONTIER

    Résolu Problèmes : 4 filtres en cascade ComboBox pour affichage dans une ListBox

    Bonjour, Essai avec ComboBox(1 à 6) puis Textbox intuitif sur la ListBox. C'est un pgm générique. Les parties à adapter: ColCombo = Array(1, 2, 3) ' A adapter (1 à 6 colonnes maxi) colVisu = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14) ' Colonnes...
  14. BOISGONTIER

    Résolu Problèmes : 4 filtres en cascade ComboBox pour affichage dans une ListBox

    1-Les lignes à adapter : Set f = Sheets("bd") Set Rng = f.Range("A2:N" & f.[A65000].End(xlUp).Row) ' à adapter ColCombo = Array(1, 2, 3) ' A adapter (1 à 6 colonnes maxi) colVisu = Array(1, 2, 4, 5, 6, 7, 8, 9, 10, 13, 14) ' Colonnnes ListBox (à...
  15. BOISGONTIER

    Résolu Problèmes : 4 filtres en cascade ComboBox pour affichage dans une ListBox

    Bonjour, Avec une pgm générique Boisgontier
Haut Bas