Recherche un code pour textbox

bonsoir le forum

je viens encore vous demandé un peu d'aide si précieuse

voila mon soucis j'ai une feuille basse de données global je recherche comment on peut afficher le total dans la listbox pour chaque mois de la colonne H dans total et total km dans dans textbox 1 et 2

avec tout mes remerciements

Bonjour,

Un essai ...

Sub RemplirListe(Mois)
Dim c, ligne, i, n, chaine, it, tablo(100, 12), SumSoin As Double, SumKilo As Double
'je vide la liste
ListBox1.Clear
'l'on vide les deux variables
SumSoin = 0
SumKilo = 0
i = 2: it = 0
'je scanne la colonne des dates
ListBox1.ColumnCount = 12
While Sheets("basededonnéesglobal").Cells(i, 1) <> ""
    If Sheets("basededonnéesglobal").Cells(i, 1) = Mois Then
        chaine = ""
        For n = 2 To 12
            tablo(it, n - 2) = Sheets("basededonnéesglobal").Cells(i, n)
        Next n
        SumSoin = SumSoin + Sheets("basededonnéesglobal").Cells(i, 8).Value    ' Compte la somme des soins
        SumKilo = SumKilo + Sheets("basededonnéesglobal").Cells(i, 11).Value   ' Compte la somme des kilomètres
        it = it + 1
    End If
    i = i + 1
Wend
Me.TextBox1 = CDbl(SumSoin)    ' écrit la somme des soins dans TB1
Me.TextBox2 = CDbl(SumKilo)    ' écrit la somme des kilos dans TB2
Me.ListBox1.List = tablo
End Sub

ric

merci cela fonctionne très bien

juste une autre question si je peut profité

j'aimerais voir le nom des mes colonnes dans le listbox cela est t'il possible sinon un grand merci

Bonjour,

Une façon de faire est d'ajouter une 2e listbox au dessus ...

donne lui la hauteur d'une ligne ...

comme données, la ligne 1 de la feuille ...

donne lui les mêmes paramètres que la 1re listbox.

ric

merci je suis stupide mais j'ai du mal a le faire pouvez vous me données un exemple pour que j'étudie cela

j'apprend juste

encore un grand merci

Bonjour,

Il reste quelques petits ajustements de l'apparence des colonnes (largeur).

Le code est dans

Private Sub UserForm_Initialize()

    ListBox1.ColumnCount = 12
    ListBox1.ColumnWidths = "15;50;50;50;50;50;50;50;40;40;40;40"
    ListBox1.List = Sheets("basededonnéesglobal").Range("A2:n1000").Value
    ListBox2.ColumnCount = 12
    ListBox2.ColumnWidths = "15;50;50;50;50;50;50;50;40;40;40;40"
    ListBox2.List = Sheets("basededonnéesglobal").Range("B1:N1").Value
End Sub

ric

alors chapeaux bas un très grand merci

j'étudie cela avec une grande ferveur

pour le reste aucun problèmes

encore une seconde fois MERCI

Bienvenue ...

ric

bonjour le forum

un petite question quand je fait un essai avec ma feuille que ric a bien voulus m'aidé cela marche très bien

mais que je transporte useform dans mon application cela fonctionne plus

le code oui mais pas les boutons quand je clique tout disparait dans listbox 1

alors que la feuille basse de données est la même même ligne rien de changer

enfin j'essaye d'apprendre cette erreur

Bonjour,

Dans ton fichier de travail, est-que la feuille de données se nomme bien "basededonnéesglobal" ... comme dans le code ?

ric

Rebonjour,

Pour transférer le Userform dans ton fichier de travail > dans VBE > colonne de gauche, clique droit sur le Userform de mon fichier > Exporter un fichier.

Puis dans ton fichier de travail > clique droit > Importer un fichier > cela va faire suivre les multiples propriétés des objets du Userform.

Évidemment, fait tout cela sur une copie de ton fichier de travail.

ric

merci RIC pour ton message effectivement j'ai finis de faire comme tu dis mais je voulais juste comprendre le fonctionnements

oui la feuille est bien base de données global tout la procédure est identique tout les code sont pareils

enfin pas grave cela fonctionne tout de même