Microsoft 365 Userform vers Tableau

eric72 · 2 Mars 2023

Bonsoir à tous,
Je tente de résoudre un problème jamais rencontré
J'ai un userform et j'aimerais qu'en fonction de l'année que je saisis, le tableau choisi pour exporter mes données soit sélectionné
Exemple si je saisie 2023 j'aimerais que l'export soit vers TbObj2023, si 2024 vers TbObj2024.
J'ai tenté en concatenant mais sans succès.
L'un d'entre vous a-t-il déjà rencontré et résolu ce cas.
Merci beaucoup pour votre dévouement.
Eric

Phil69970 · 3 Mars 2023

Bonjour à tous

@eric72

Je te propose ceci plus digeste dans ton usf

VB:

Private Sub Cbrecherche_afterupdate()
Dim tb As ListObject, j&, n%, lig%
Set tb = Sheets("Base Objectif").ListObjects("tbobj" & Me.Cbrecherche)
n = 0
lig = 1
With tb
    For j = 1 To 10
        Me.Controls("CbComm" & j) = .DataBodyRange.Cells(j, .ListColumns(1).Index).Value
    Next j
    For j = 2 To 121
        Select Case j
            Case 14:    n = 12:    lig = 2
            Case 26:    n = 24:    lig = 3
            Case 38:    n = 36:    lig = 4
            Case 50:    n = 48:    lig = 5
            Case 62:    n = 60:    lig = 6
            Case 74:    n = 72:    lig = 7
            Case 86:    n = 84:    lig = 8
            Case 98:    n = 96...

ChTi160 · 3 Mars 2023

Bonjour le Fil
Pour tenter de répondre au Post #12
Lorsque l'on télécharge un fichier il est de mise avant d'ouvrir le ficher de Cliquer sur le Fichier dans téléchargement et de sélectionner "Propriétés" et ensuite cocher "débloquer"
Ensuite si tu ouvres le Fichier, tu n'auras plus ce problème !
Je ne suis pas sûr d'avoir compris ce que cp4 voulait ! Lol
Bonne fin de Journée
Jean marie

cp4 · 3 Mars 2023

vgendron à dit:
Hello @cp4 hello @Phil69970
oui je l'ai aussi
je suppose qu'il y a des liens vers du sharepoint..

Merci pour vos retours.

@vgendron : Sharepoint ou pas Sharepoint, je n'ouvrirai plus ses fichiers

ChTi160 · 3 Mars 2023

pour cp4 (#18) Sharepoint ou pas Sharepoint, je n'ouvrirai plus ses fichiers

je viens d'appliquer ce que j'ai tenté d'expliquer (mesure de sécurité des téléchargements)
et je n'ai aucun souci.
à moins que je n'aie pas compris Lol
Bonne Journées

cp4 · 3 Mars 2023

ChTi160 à dit:
Bonjour le Fil
Pour tenter de répondre au Post #12
Lorsque l'on télécharge un fichier il est de mise avant d'ouvrir le ficher de Cliquer sur le Fichier dans téléchargement et de sélectionner "Propriétés" et ensuite cocher "débloquer"
Ensuite si tu ouvres le Fichier, tu n'auras plus ce problème !
Je ne suis pas sûr d'avoir compris ce que cp4 voulait ! Lol
Bonne fin de Journée
Jean marie

Bonjour Jean-marie,

Merci pour tes explications, ça me rassure. J'ai été surpris par l'apparition de cette fenêtre de connexion.
Au fait, "Propriétés" puis cocher "Débloquer" ----> ça débloque quoi au juste.

eric72 · 3 Mars 2023

Bonjour chti160 et cp4,
En effet depuis une récente mise à jour il faut débloquer l'accès au fichier dans propriétés sinon pas d'accès.
Merci pour ces précisions.

eric72 · 3 Mars 2023

Re
j'ai trouvé cette méthode pour alimenter les textbox et combo mais ca me parait lourd, qu'en pensez-vous?
(j'ai 120 textbox par tableau et un tableau par an!!!)
Private Sub Cbrecherche_afterupdate()
Dim tb As ListObject
Set f = Sheets("Base Objectif").ListObjects("tbobj" & Me.Cbrecherche)
With tb
TextBox2.Value = Cells(2, 2)
End With
End Sub

ChTi160 · 3 Mars 2023

Bonjour Eric
que dois tu faire remonter lorsqu'une date est définie ?
dans ton Fichier il n'y a aucune donnée et ne permet pas de voir ce qui doit remonter .
Tous tes textBox doivent être remplis ?
Tu as des Tableau Jusqu'en 2045 je crois à quoi ça sert ? Ils peuvent tous contenir des Données ?
Merci
Jean marie

ChTi160 · 3 Mars 2023

Re
pas tout compris Lol
Mais si tu mets

VB:

Set f = Sheets("Base Objectif").ListObjects("tbobj" & Me.Cbrecherche)
With tb
TextBox2.Value = Cells(2, 2)
End With
End Sub

tu n'auras (quel que soit l'année choisie) que les données de la Cellule , Ligne 2 colonne 2 pour l'exemple
Etc etc
Jean marie

eric72 · 3 Mars 2023

Re Chti160
Merci de ta réponse, en fait j'aimerais saisir les objectifs chaque année par commercial, les garder en mémoire et éventuellement pouvoir les modifier.

eric72 · 3 Mars 2023

ChTi160 à dit:
Re
pas tout compris Lol
Mais si tu mets

VB:

Set f = Sheets("Base Objectif").ListObjects("tbobj" & Me.Cbrecherche) With tb TextBox2.Value = Cells(2, 2) End With End Sub

tu n'auras (quel que soit l'année choisie) que les données de la Cellule , Ligne 2 colonne 2 pour l'exemple
Etc etc
Jean mari

ChTi160 à dit:
Oui en effet c'est ce que j'ai trouvé mais c'est un peu lourd de faire cette manipulation pour 120 textbox, je me disais qu'il y avait peut-être une solution plus simple et plus rapide.

ChTi160 · 3 Mars 2023

Eric
dans le fichier que tu as joins
il y a je pense des données non anonymisées (feuille "Données" que tu as masquée) mais pas supprimée ;
Change donc le Fichier.
Jean marie

eric72 · 3 Mars 2023

Pas grave il n'y a rien de VRAI dans ces données!!! lol
Je vais prendre ta solution même si c'est un peu long.
Merci encore à tous pour votre contribution.
Bonne journée et bon week-end
Eric

ChTi160 · 3 Mars 2023

Ok la feuille Données qui est masquée ne sert a rien ? Lol
tu dis :

Je vais prendre ta solution même si c'est un peu long.

je n'ai rien proposé Lol
Jean marie

ChTi160 · 3 Mars 2023

Re
dans tes tableau peux tu mettre quelques Ligne anonymisées pour 2022 et 2023 que l'on sache à quoi on a à faire Lol
Car "Objectifs" ce sont des Chiffres ?
Merci
Jean marie

eric72 · 3 Mars 2023

Re Chti160
J'ai essayé cette méthode mais ça ne fonctionne pas:
Private Sub Cbrecherche_afterupdate()
Dim tb As ListObject
Set tb = Sheets("Base Objectif").ListObjects("tbobj" & Me.Cbrecherche)
With tb
CbComm1 = Cells(2, 1): TextBox2.Value = Cells(2, 2): TextBox3.Value = Cells(2, 3): TextBox4.Value = Cells(2, 4): TextBox5.Value = Cells(2, 5): TextBox6.Value = Cells(2, 6): TextBox7.Value = Cells(2, 7) _
: TextBox8.Value = Cells(2, 8): TextBox9.Value = Cells(2, 9): TextBox10.Value = Cells(2, 10): TextBox11.Value = Cells(2, 11): TextBox12.Value = Cells(2, 12): TextBox13.Value = Cells(2, 13): _
CbComm2 = Cells(3, 1): TextBox14.Value = Cells(3, 2): TextBox15.Value = Cells(3, 3): TextBox16.Value = Cells(3, 4): TextBox17.Value = Cells(3, 5): TextBox18.Value = Cells(3, 6): TextBox19.Value = Cells(3, 7) _
: TextBox20.Value = Cells(3, 8): TextBox21.Value = Cells(3, 9): TextBox22.Value = Cells(3, 10): TextBox23.Value = Cells(3, 11): TextBox24.Value = Cells(3, 12): TextBox25.Value = Cells(3, 13): _
Ca reprend toujours les chiffres de l'année 2022 et non pas celle de Cbrecherche, je ne comprends pas!!!
Merci

Microsoft 365 Userform vers Tableau

eric72

XLDnaute Accro

Phil69970

ChTi160

XLDnaute Barbatruc

cp4

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

cp4

XLDnaute Barbatruc

eric72

XLDnaute Accro

eric72

XLDnaute Accro

ChTi160

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

eric72

XLDnaute Accro

eric72

XLDnaute Accro

ChTi160

XLDnaute Barbatruc

eric72

XLDnaute Accro

ChTi160

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

eric72

XLDnaute Accro

Discussions similaires