XL 2016 Listbox et report de données dans textbox

[GClaire]

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

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

 

[GClaire]

Re

Bon j'arrive a sélectionner ma feuille.

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

 

[GClaire]

Cc

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

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

 

[Bebere]

bonjour
Gclaire pas besoin de faire une boucle
si tu as d'autres textbox il faut faire un test sur ligne ctrl=....

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

 

[GClaire]

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

 

[Bebere]

Gclaire
sans fichier difficile de te dépanner
peut être une faute de syntaxe dans le nom d'un object

 

[GClaire]

Re.

Je viens de vérifier les noms des controls ils ont l'aire OK.

Voici fichier

Merci.

G'Claire

 

[Bebere]

Gclaire msforms devait être Me si dans code userform
changé le code en espérant que c'est ce que tu veux faire

 

[ChTi160]

Re
une approche pour le Recap par Mois
Bonne fin de Journée
Amicalement
Jean marie

 

[GClaire]

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

 

[Bebere]

bonjour le fil
Gclaire ajout d' un code pour listbox1
n'oublie pas le code initxt ,mis un code checkbox1 facile à adapter pour les autres
attention à la syntaxe des noms d'objects

 

[ChTi160]

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

 

[GClaire]

Hello la commaunauté.

Bébère, ChTi160, merci très beaucoup a tous les deux.

Je regarde tout cela.

Bonne journée.

G'Claire