XL 2010 entêtes pour listbox

H

Hafi.alaoui

XLDnaute Junior
Bonjour
je veux faire des entêtes pour ma liste box,les entêtes sont dans mon tableau exel.
merci
 

Pièces jointes

  • tableaufacture.1 Chti160.xlsm
    845.8 KB · Affichages: 16
Trier par date Trier par votes
job75

job75

XLDnaute Barbatruc
Bonjour yahya.be, JB,

En remplissant la ListBox via la propriété RowSource la propriété ColumnHeads permet d'afficher les en-têtes :
VB: 
Dim ncol% 'mémorise la variable

Private Sub UserForm_Initialize()
TextBox1_Change 'lance la macro
ListBox1.ColumnCount = ncol
ListBox1.ColumnWidths = "30;70;130;60;60;70;70;60;50;70;50"
ListBox1.ColumnHeads = True 'affiche les en-têtes
End Sub

Private Sub TextBox1_Change()
Dim f As Worksheet, i&, j%
Set f = Sheets("Filtre")
f.Cells.Clear 'RAZ
ThisWorkbook.Names.Add "TB", IIf(TextBox1 = "", "*", TextBox1) 'nom défini
With Sheets("Suivis_Facture").[A3].CurrentRegion
    ncol = .Columns.Count
    .Cells(2, ncol + 2) = "=ISNUMBER(SEARCH(TB,C4))" 'formule à adapter éventuellement
    .AdvancedFilter xlFilterCopy, .Cells(1, ncol + 2).Resize(2), f.[A1].Resize(, ncol) 'filtre avancé
    .Cells(2, ncol + 2) = ""
End With
With f.UsedRange
    With .Columns(4).Resize(, 7)
        .Replace ",", ".", xlPart 'convertit les textes en nombres
        .NumberFormat = "#,###.00"
    End With
    If .Rows.Count = 1 Then
        ListBox1.RowSource = ""
    Else
        ListBox1.RowSource = .Offset(1).Resize(.Rows.Count - 1).Address(External:=True)
    End If
    TextBox2 = Format(Application.Sum(.Columns(4)), "#,###.00")
End With
End Sub
Fichier joint - je l'ai épuré pour qu'il pèse moins lourd...

A+
 

Pièces jointes

  • tableaufacture(1).xlsm
    106.5 KB · Affichages: 30
Dernière édition:
Vote positif 0 Vote négatif
H

Hafi.alaoui

XLDnaute Junior
job75 à dit:
Bonjour yahya.be, JB,

En remplissant la ListBox via la propriété RowSource la propriété ColumnHeads permet d'afficher les en-têtes :
VB: 
Dim ncol% 'mémorise la variable

Private Sub UserForm_Initialize()
TextBox1_Change 'lance la macro
ListBox1.ColumnCount = ncol
ListBox1.ColumnWidths = "30;70;130;60;60;70;70;60;50;70;50"
ListBox1.ColumnHeads = True 'affiche les en-têtes
End Sub

Private Sub TextBox1_Change()
Dim f As Worksheet, i&, j%
Set f = Sheets("Filtre")
f.Cells.Clear 'RAZ
ThisWorkbook.Names.Add "TB", IIf(TextBox1 = "", "*", TextBox1) 'nom défini
With Sheets("Suivis_Facture").[A3].CurrentRegion
    ncol = .Columns.Count
    .Cells(2, ncol + 2) = "=ISNUMBER(SEARCH(TB,C4))" 'formule à adapter éventuellement
    .AdvancedFilter xlFilterCopy, .Cells(1, ncol + 2).Resize(2), f.[A1].Resize(, ncol) 'filtre avancé
    .Cells(2, ncol + 2) = ""
End With
With f.UsedRange
    With .Columns(4).Resize(, 7)
        .Replace ",", ".", xlPart 'convertit les textes en nombres
        .NumberFormat = "#,###.00"
    End With
    If .Rows.Count = 1 Then
        ListBox1.RowSource = ""
    Else
        ListBox1.RowSource = .Offset(1).Resize(.Rows.Count - 1).Address(External:=True)
    End If
    TextBox2 = Format(Application.Sum(.Columns(4)), "#,###.00")
End With
End Sub
Fichier joint - je l'ai épuré pour qu'il pèse moins lourd...

A+
Cliquez pour agrandir...
merci beaucoup cela et très professionnelle,je n'ai pas de la chance pour convertir car les nombres texte venant d'un autre userform,je vais essayé de vous envoyer mon fichier origine pour voir,c'est un facturier.
merci beaucoup pour votre soutien.
 
Vote positif 0 Vote négatif
H

Hafi.alaoui

XLDnaute Junior
job75 à dit:
Si l'on s'y prend correctement les nombres seront bien des nombres, on attend votre fichier avec l'autre UserForm.
Cliquez pour agrandir...
Bonsoir
malheureusement mon fichier est un peu volumineux et qu'il ne se télécharge plus.,cela que vous m'avez dernièrement donné et très professionnelle.
je vous remercie pour tout ça,cela me manque seulement un bouton d'imprimer dans ce userform de recherche,je vais essayer de le faire, et ça marche dans mon travail,même mon boss l'a vu,il lui plaît.
merci beaucoup cher ami
 
Vote positif 0 Vote négatif
BOISGONTIER

BOISGONTIER

XLDnaute Barbatruc
Repose en paix
Bonjour,

Une autre solution:

-Choix du client dans un ComboBox
-Nécessite une feuille intermédiaire
-Entete simple mais qui oblige à calculer les largeurs de colonnes

VB: 
Option Compare Text
Dim f, RngBD, ColRecherche
Private Sub UserForm_Initialize()
  Set f = Sheets("BD")
  Set d = CreateObject("Scripting.Dictionary")
  Set RngBD = f.[A1].CurrentRegion.Offset(1)
  ColRecherche = 3
  d("*") = ""
  For i = 1 To RngBD.Rows.Count
     clé = RngBD.Cells(i, ColRecherche): d(clé) = ""
  Next i
  Me.ComboBox1.List = d.keys                        ' liste des professions sans doublons
  Me.ListBox1.ColumnCount = RngBD.Columns.Count
  Me.ListBox1.ColumnWidths = "20;50;90;60;50;50;50;50;50;50;50"    ' à adapter
  Me.ListBox1.ColumnHeads = True
  ComboBox1_click
End Sub

Private Sub ComboBox1_click()
  Set f2 = Sheets("filtre")
  f2.Cells.Clear
  f2.[Z1] = RngBD.Offset(-1).Cells(1, ColRecherche): f2.[Z2] = Me.ComboBox1
  f.[A1].CurrentRegion.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=f2.[Z1:Z2], _
      CopyToRange:=f2.[A1], Unique:=False
  Set RngFiltre = f2.[A1].CurrentRegion.Offset(1).Resize(f2.[A1].CurrentRegion.Rows.Count - 1)
  Me.ListBox1.RowSource = RngFiltre.Address(External:=True)
  Me.TextBox2 = Format(Application.Sum(Application.Index(RngFiltre, , 4)), "0000.00")
  Me.TextBox3 = Format(Application.Sum(Application.Index(RngFiltre, , 10)), "0000.00")


Autre exemple:
Boisgontier
 

Pièces jointes

  • FiltreComboBoxMultiCol.xlsm
    38.6 KB · Affichages: 32
Dernière édition:
Vote positif 0 Vote négatif
job75

job75

XLDnaute Barbatruc
Bonjour yahya.be, JB,
yahya.be à dit:
malheureusement mon fichier est un peu volumineux et qu'il ne se télécharge plus
Cliquez pour agrandir...
Qu'à cela ne tienne, on peut convertir les textes en nombres avec cette macro :
VB: 
Sub Convertir()
With Sheets("Suivis_Facture").[A3].CurrentRegion.Offset(1).Columns(4).Resize(, 7) 'colonnes D:J
    If Evaluate("SUM(-ISTEXT(" & .Address & "))") = 0 Then Exit Sub
    MsgBox "Conversion des textes en nombres en colonnes D:J..."
    Dim t, tablo, ncol%, i&, j%, x$
    t = Timer
    tablo = .Value 'matrice, plus rapide
    ncol = UBound(tablo, 2)
    For i = 1 To UBound(tablo) - 1
        For j = 1 To ncol
            x = CStr(tablo(i, j))
            If IsNumeric(x) Then tablo(i, j) = CDbl(x)
    Next j, i
    If .Parent.FilterMode Then .Parent.ShowAllData 'si la feuille est filtrée
    .Resize(.Rows.Count - 1) = tablo
    MsgBox "Conversion réalisée en " & Format(Timer - t, "0.00 \s")
End With
End Sub
Fichier (2), pour tester j'ai recopié le tableau A4:K12 sur 90 000 lignes, la macro s'exécute en 2 secondes.

A+
 

Pièces jointes

  • tableaufacture(2).xlsm
    106.3 KB · Affichages: 18
Vote positif 0 Vote négatif
H

Hafi.alaoui

XLDnaute Junior
job75 à dit:
Bonjour yahya.be, JB,

Qu'à cela ne tienne, on peut convertir les textes en nombres avec cette macro :
VB: 
Sub Convertir()
With Sheets("Suivis_Facture").[A3].CurrentRegion.Offset(1).Columns(4).Resize(, 7) 'colonnes D:J
    If Evaluate("SUM(-ISTEXT(" & .Address & "))") = 0 Then Exit Sub
    MsgBox "Conversion des textes en nombres en colonnes D:J..."
    Dim t, tablo, ncol%, i&, j%, x$
    t = Timer
    tablo = .Value 'matrice, plus rapide
    ncol = UBound(tablo, 2)
    For i = 1 To UBound(tablo) - 1
        For j = 1 To ncol
            x = CStr(tablo(i, j))
            If IsNumeric(x) Then tablo(i, j) = CDbl(x)
    Next j, i
    If .Parent.FilterMode Then .Parent.ShowAllData 'si la feuille est filtrée
    .Resize(.Rows.Count - 1) = tablo
    MsgBox "Conversion réalisée en " & Format(Timer - t, "0.00 \s")
End With
End Sub
Fichier (2), pour tester j'ai recopié le tableau A4:K12 sur 90 000 lignes, la macro s'exécute en 2 secondes.

A+
Cliquez pour agrandir...
ah oui je vais garder ce macro,c'est très intéressant, merci à vous
 
Vote positif 0 Vote négatif

Discussions similaires

S
  • Question
Microsoft 365 Création d'un TCD avec 2 tableaux ayant les mêmes entêtes de colonne et les même données
Réponses
9
Affichages
264
STEPHANIE1975
S
F
  • Résolu(e)
XL 2021 Créer un formulaire
Réponses
5
Affichages
357
vgendron
vgendron
T
  • Question
Microsoft 365 Excel365
Réponses
2
Affichages
184
mapomme
mapomme
S
  • Résolu(e)
XL 2016 Besoin d'aide pour un code d'extraction
Réponses
14
Affichages
268
Phil69970
Phil69970
T
  • Question
Listbox 14 colonnes
Réponses
6
Affichages
452
TAL
T
A
  • Résolu(e)
XL 2013 Importation tableau excel
Réponses
10
Affichages
357
Appo1985
A
D
  • Question
RechercheV, index, equiv
Réponses
1
Affichages
603
CISCO
CISCO
cocro
  • Question
Microsoft 365 Créer autant d'onglet que de commune dans ma base principale
Réponses
14
Affichages
359
job75
job75
E
  • Résolu(e)
Microsoft 365 renvoi sur des feuilles en fonction des clients
Réponses
3
Affichages
231
eric123
E
cathodique
  • Question
XL 2010 Comment récupérer largeur de colonnes suite affichage plein écran
Réponses
11
Affichages
536
patricktoulon
patricktoulon

Membres actuellement en ligne

21 membres et 359 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 185
Messages
2 086 018
Membres
103 094
dernier inscrit
Molinari