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

 

[vgendron]

Hello

avec cette syntaxe

Private Sub BtAjoutObjectif_Click()
' Ajoute les données à la base "Recette"
Dim tb As ListObject
Dim V, I&, W

Application.ScreenUpdating = False
Set tb = Sheets("Objectif").ListObjects("tbobj" & Me.TxtAnnee)

With tb
    V = Array(CbComm1.Value) 'on ajoute une ligne au tableau
    For I = LBound(V) To UBound(V)
        If IsNumeric(V(I)) Then V(I) = CDbl(V(I))
    Next
    .ListRows.Add.Range.Cells(1).Resize(, 1) = V
End With

Application.ScreenUpdating = True
End Sub

 

[eric72]

Bonsoir vgendron,
En effet ça marche super bien, seul petit hic c'est que ça l'ajoute à la 2ème ligne quand le tableau est vide
Et est-ce que l'on peut de la meme maniere récupérer les infos déjà saisies à l'aide de la combobox CbRecherche.
Merci beaucoup
Eric

 

[vgendron]

il faut ajouter un test
if .listrows.count=0 then
LigneEnregistrement=.listrows.count
else
.listrows.add
LigneEnregistrement=.listrows.count
end if

 

[eric72]

Oups désolé mais je ne suis pas assez calé en vba.
Ou dois je mettre ce code?
Merci encore

 

[Phil69970]

Bonjour à vous 2


Je l'ai fait je le poste....

Private Sub BtAjoutObjectif_Click()
' Ajoute les données à la base "Recette"
Dim tb
Application.ScreenUpdating = False

Dim Ws As Worksheet
Set Ws = Worksheets("Objectif")

Dim V, i&, W

tb = "tbobj" & TxtAnnee

With Ws.ListObjects(tb)
    V = Array(CbComm1.Value) 'on ajoute une ligne au tableau
    For i = LBound(V) To UBound(V)
        If IsNumeric(V(i)) Then V(i) = CDbl(V(i))
    Next
    .ListRows.Add.Range.Cells(1).Resize(, 1) = V
End With

Application.ScreenUpdating = True
End Sub

@Phil69970

 

[eric72]

Bonsoir Phil69970,
Je regarde ça dès demain avec la plus grande attention car je dois partir et je vous redis.
Merci 1000 fois à vous deux
Eric

 

[eric72]

Je n'avais pas vu que c'était la même chose Top
la 2ème question était de récupérer les infos existantes dans les tableaux grace à la combobox de recherche, puis pouvoir modifier!!!
Bonne soirée à tous les 2
Eric

 

[vgendron]

Je n'avais pas vu que c'était la même chose Top
la 2ème question était de récupérer les infos existantes dans les tableaux grace à la combobox de recherche, puis pouvoir modifier!!!
Bonne soirée à tous les 2
Eric

déjà.. récuperer les infos.. pour les mettre ou?? sur ton formulaire?
dans une listbox,? dans des textbox??

 

[eric72]

Oui l'idée est de remplir les textbox avec les infos dejà remplies dans les tableaux en fonction de l'année sélectionnée dans la combobox de "recherche", puis les modifier et les remettre dans le tableau correspondant.
Pas simple le garçon, je l'avoue!!!
Merci encore
Encore

 

[vgendron]

Bonjour
si tu n'as pas d'idée sur comment présenter tes données et ton formulaire de saisie, fais une recherche sur le forum, dans les ressources partagées....

il y a des tas d'exemples pour remplissage de listbox, ajout de données dans une table,, saisie par textbox...

 

[cp4]

Bonjour @eric72 , @vgendron, @Phil69970 ,

Pas simple le garçon, je l'avoue!!!

Dites-moi, avez-vous ce truc à l'ouverture du fichier du post#1 (gif ci-dessous)

Merci pour retour sur cette bizarrerie.

 

[Phil69970]

Bonjour @cp4

J'ai ceci et je clique sur la croix de fermeture

@Phil69970

 

[vgendron]

Bonjour @eric72 , @vgendron, @Phil69970 ,


Dites-moi, avez-vous ce truc à l'ouverture du fichier du post#1 (gif ci-dessous)

Regarde la pièce jointe 1164741

Merci pour retour sur cette bizarrerie.

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

 

[eric72]

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

Bonjour vgendron