Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2016 Listbox et report de données dans textbox

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion GClaire
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
G

GClaire

XLDnaute Impliqué
Hello

je continu le petit fichier.

J'ai donc créer un UserForm pour faire un récapitulatif des données par moi.

Pour le moment la seul chose que j'arrive a faire c'est de remplire celle-ci par ce code

Et en haut de l'userform la déclaration de la variable.

Dim i As Integer

VB: 
Private Sub UserForm_Initialize()

For i = 1 To 12
    Lsb_Mois.AddItem Worksheets(i).Name
    If Worksheets(i).Application = False Then
    End If
Next i
End Sub

Ce que je souhaiterai c'est de récupérer dans des textbox, c'est la somme de plages de colonnes (Qui commence Colonne "E" a la ligne 12 jusqu'a la dernière ligne remplie) du mois sélectionné dans la listbox.

Et je n'y arrive pas.

Un petit peu d'aide SVP

Merci

Cordialement, G'Claire
 
Trier par date Trier par votes
Re

Bon j'arrive a sélectionner ma feuille.

VB: 
Private Sub Lsb_Mois_Click()
' Choix de la Feuille dans la ListBox

    For m = 0 To Lsb_Mois.ListCount - 1
        If Lsb_Mois.Selected(m) = True Then
              Mois = Lsb_Mois.List(m)
          End If
    Next m
   
Sheets(Mois).Activate ' Sélectionne la Feuille Cible

End Sub

J'espère que le reste va bien se passer.

Merci, G'Claire
 
Vote positif 0 Vote négatif
Cc

Bon et bien après quelque recherche cette partie est fini. Voici le code

VB: 
Private Sub Lsb_Mois_Click()

' Choix de la Feuille dans la ListBox

  For m = 0 To Lsb_Mois.ListCount - 1
  If Lsb_Mois.Selected(m) = True Then
  mois = Lsb_Mois.List(m)
  End If
  Next m

Sheets(mois).Activate ' Sélectionne la Feuille Cible

With Sheets(mois)
  Txt_DeclarationTotale.Value = Application.WorksheetFunction.Sum(.Range("E12:E" & .Range("E65536").End(xlUp).Row))
  Txt_ResultatVentesMarchandises.Value = Application.WorksheetFunction.Sum(.Range("F12:F" & .Range("F65536").End(xlUp).Row))
  Txt_CotisationsVenteMarchandise.Value = Application.WorksheetFunction.Sum(.Range("G12:G" & .Range("G65536").End(xlUp).Row))
  TXT_ResultatPrestServCommArti.Value = Application.WorksheetFunction.Sum(.Range("H12:H" & .Range("H65536").End(xlUp).Row))
  Txt_CotisationsPrestServCommArti.Value = Application.WorksheetFunction.Sum(.Range("I12:I" & .Range("I65536").End(xlUp).Row))
  Txt_ResultatAutPrestaServ.Value = Application.WorksheetFunction.Sum(.Range("J12:J" & .Range("J65536").End(xlUp).Row))
  Txt_CotisationsAutPrestaServ.Value = Application.WorksheetFunction.Sum(.Range("K12:K" & .Range("K65536").End(xlUp).Row))
  Txt_MicroSoCfpComm.Value = Application.WorksheetFunction.Sum(.Range("L12:L" & .Range("L65536").End(xlUp).Row))
  Txt_TaxesCCIVente.Value = Application.WorksheetFunction.Sum(.Range("M12:M" & .Range("M65536").End(xlUp).Row))
  Txt_TaxesCCIService.Value = Application.WorksheetFunction.Sum(.Range("N12:N" & .Range("N65536").End(xlUp).Row))
  Txt_TaxesTotales.Value = Application.WorksheetFunction.Sum(.Range("O12:O" & .Range("O65536").End(xlUp).Row))
  Txt_Benefices.Value = Application.WorksheetFunction.Sum(.Range("P12:P" & .Range("P65536").End(xlUp).Row))
End With
End Sub

Merci, bonne soirée

Cordialement, G'Claire
 
Vote positif 0 Vote négatif
bonjour
Gclaire pas besoin de faire une boucle
si tu as d'autres textbox il faut faire un test sur ligne ctrl=....
Code: 
Private Sub Lsb_Mois_Click()    ' Choix de la Feuille dans la ListBox

    Dim L As Long, Ctrl As Control
    L = Sheets(Lsb_Mois).Range("E65536").End(xlUp).Row
'***à faire dans texbox concernées
    Txt_DeclarationTotale.Tag = "E"
       Txt_ResultatVentesMarchandises.Tag = "F"
    Txt_CotisationsVenteMarchandise.Tag = "G"
    TXT_ResultatPrestServCommArti.Tag = "H"
    Txt_ResultatAutPrestaServ.Tag = "I"
    Txt_ResultatAutPrestaServ.Tag = "J"
    Txt_CotisationsAutPrestaServ.Tag = "K"
    Txt_MicroSoCfpComm.Tag = "L"
    Txt_TaxesCCIVente.Tag = "M"
    Txt_TaxesCCIService.Tag = "N"
    Txt_TaxesTotales.Tag = "O"
    '***
    For Each Ctrl In MSForms.Controls
        If TypeOf Ctrl Is MSForms.TextBox Then
            Ctrl = Application.WorksheetFunction.Sum(Sheets(Lsb_Mois).Range(Ctrl.Tag & "12:" & Ctrl.Tag & L))
        Next

    End Sub
 
Vote positif 0 Vote négatif
Hello bébère.

Merci pour ton message.

J'ai testé, cela me donne une erreur "Membre de méthode ou de données introuvable" et pointe sur Controls

Peut être ai-je oublié quelque chose.

Merci, G'Claire
 
Vote positif 0 Vote négatif
Bébère, Chti160 merci.

Désolé du retard de ma réponse, mais j'essayé de comprendre vos codes.

Bébère, cela fonctionne le fais de récupérer les infos en cliquant sur le moi.

A priori tu as codé pour faire le calcule dans la feuille du moi en "E2:E4", j'ai essayé de comprendre le codage, et bien que néni, et dans la récupération dans les parties Trimestre les caluuls sont incohérants et j'ai voulu voir un peu et je ne comprend pas non plus.

Chti160, donc la récuperation a partir de la listBox se fait bizarrement, juste sur les textbox resultat, j'ai regardé le code et un peu largué, lol.

Merci beaucoup pour vos réponses et solutions..*

G'Claire
 
Vote positif 0 Vote négatif
Bonjour GClaire
Bonjour le Fil (Bebere) ,Le Forum
je ne sais plus ou j'en suis lol
Avec tout ces Fils lol
j'ai posté ceux ci sur un autre post (peut être abandonné Lol)
ça ne réponds pas encore à tout !
Bonne fin de Journée
Amicalement
Jean marie
 

Pièces jointes

Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

N
  • Question Question
Listbox click
Réponses
10
Affichages
281
ChTi160
K
  • Résolu(e)
XL 2016 Affichage TextBox
Réponses
6
Affichages
243
KRUG WOO
K
N
  • Résolu(e)
Microsoft 365 Récupération données ListBox dans TextBox
2 3
Réponses
35
Affichages
906
NONO14
N
E
  • Résolu(e)
XL 2019 défiler listbox en même temps que textbox dans une frame
Réponses
5
Affichages
312
escudo
E
P
  • Question Question
Microsoft 365 VBA et Segments TCD
Réponses
2
Affichages
201
patricko-13
P
A
  • Question Question
XL 2010 Filtrer un Combobox en VBA excel
2 3
Réponses
43
Affichages
851
Dranreb
A
  • Question Question
Microsoft 365 Affichage , recherche et extraire des données .
Réponses
1
Affichages
109
vgendron
J
  • Question Question
XL 2021 transfert listview vers feuille excel
Réponses
9
Affichages
313
Piment
P
K
  • Question Question
XL 2016 Modification dans userform et sheet
Réponses
13
Affichages
259
Valtrase
F
  • Question Question
Microsoft 365 Problème mémoire insuffisante
Réponses
5
Affichages
235
TooFatBoy
N
  • Résolu(e)
Microsoft 365 Modification impossible d'une TextBox
2 3 4
Réponses
56
Affichages
2 K
NONO14
N
A
  • Question Question
XL 2019 Copie d'une valeur dans la cellule à côté d'une valeur trouvé
Réponses
1
Affichages
132
sylvanu
N
  • Résolu(e)
Microsoft 365 Recherche dans un tableau structuré à partir d'une TextBox
Réponses
11
Affichages
573
NONO14
N
S
  • Résolu(e)
Microsoft 365 VBA Match: comment éviter l'erreur?
2
Réponses
29
Affichages
690
Dranreb
G
  • Résolu(e)
XL 2016 Pb de tri et sous totaux
2
Réponses
27
Affichages
643
Gestionnaire_rh
G
B
  • Question Question
Microsoft 365 Macro pour création fichier csv
Réponses
8
Affichages
466
job75
K
  • Résolu(e)
XL 2016 Filtre et affichage listbox
Réponses
9
Affichages
308
KRUG WOO
K
E
  • Résolu(e)
XL 2019 transfer listbox vers une colonne à partir de la 4 ligne
Réponses
2
Affichages
233
escudo
E
N
  • Résolu(e)
Microsoft 365 Rechercher la dernière cellule saisie dans un TS et ajouter l'heure système
18 19 20
Réponses
297
Affichages
69 K
NONO14
N
N
  • Résolu(e)
Microsoft 365 Mettre la 4ème colonne d'une ListBox au format [h]:mm
3 4 5
Réponses
68
Affichages
2 K
NONO14
N
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…