Microsoft 365 Userform vers Tableau

[eric72]

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

 

[ChTi160]

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]

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]

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]

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]

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]

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]

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]

Re
pas tout compris Lol
Mais si tu mets

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]

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]

Re
pas tout compris Lol
Mais si tu mets

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

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]

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]

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]

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]

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]

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