XL 2010 Travail base de données et UserForm

vgendron à dit:

oui.. et non.. en fait, j'ai remplacé la varialbe Rng par "Trouve" je trouve justement, que c'est plus parlant..

du coup, nouvelle version avec option explicit et toutes les déclarations

et j'en ai profité pour corrigé l'histoire du ID qu'il ne faut incrémenter QUE s'il s'agit d'une nouvelle entrée

Cliquez pour agrandir...

Private Sub CommandButtonAfficherM_Click()
    UserFormM.ComboBox_S_COL_3.Value = Me.ComboBox_S_COL_3.Value
    UserFormM.Show
End Sub

Twing83 à dit:

J'ai modifier ce bout de code pour initialiser la requête de M

VB:

Private Sub CommandButtonAfficherM_Click()
    UserFormM.ComboBox_S_COL_3.Value = Me.ComboBox_S_COL_3.Value
    UserFormM.Show
End Sub

Cliquez pour agrandir...

Private Sub UserForm_Initialize()
    Set Ws_S = Worksheets("S")
    Set Ws_M = Worksheets("M")
    Set TS_S = Ws_S.ListObjects("t_BDD_S")
    Set TS_M = Ws_M.ListObjects("t_BDD_M")
    
    'With TS_S
        'Me.ComboBox_S_COL_3.List = .ListColumns(3).DataBodyRange.Value
    'End With
End Sub

Twing83 à dit:

J'ai complété le code pour n'avoir que l'élément voulu en cliquant sur "M".

Ça commence à prendre forme 😀

Cliquez pour agrandir...

Private Sub CommandButtonRechercher_Click()
Dim ligne As Long
Dim ID As Long  ''ne sert à rien,
''elle fait planter le code si on tape quelque chose dans la combo qui n'existe pas

    If Me.ComboBox_S_COL_3 = "" Then
        MsgBox "Opération impossible, sélectionner un élément pour continuer !"
        Exit Sub
    End If

    ligne = Me.ComboBox_S_COL_3.ListIndex + 1
    With TS_S
        Me.TextBox_S_COL_4.Value = .DataBodyRange(ligne, 4)
        Me.TextBox_S_COL_9.Value = Format(.DataBodyRange(ligne, 9), "00000")
        Me.ComboBox_S_COL_7.Value = .DataBodyRange(ligne, 7)
        Me.ComboBox_S_COL_5.Value = .DataBodyRange(ligne, 5)
        ID = .DataBodyRange(ligne, 2) ' quelle est son utilité, vu que ce n'est pas une variable globale
    
        'UserFormM.ComboBox_S_COL_3.Value = Me.ComboBox_S_COL_3.Value
        'UserFormM.TextBox_S_COL_2.Value = .DataBodyRange(ligne, 2)
    End With
    
End Sub

cathodique à dit:

Tu as encore du pain sur la planche. Lire les commentaires dans ce code

VB:

Private Sub CommandButtonRechercher_Click()
Dim ligne As Long
Dim ID As Long  ''ne sert à rien,
''elle fait planter le code si on tape quelque chose dans la combo qui n'existe pas

    If Me.ComboBox_S_COL_3 = "" Then
        MsgBox "Opération impossible, sélectionner un élément pour continuer !"
        Exit Sub
    End If

    ligne = Me.ComboBox_S_COL_3.ListIndex + 1
    With TS_S
        Me.TextBox_S_COL_4.Value = .DataBodyRange(ligne, 4)
        Me.TextBox_S_COL_9.Value = Format(.DataBodyRange(ligne, 9), "00000")
        Me.ComboBox_S_COL_7.Value = .DataBodyRange(ligne, 7)
        Me.ComboBox_S_COL_5.Value = .DataBodyRange(ligne, 5)
        ID = .DataBodyRange(ligne, 2) ' quelle est son utilité, vu que ce n'est pas une variable globale
   
        'UserFormM.ComboBox_S_COL_3.Value = Me.ComboBox_S_COL_3.Value
        'UserFormM.TextBox_S_COL_2.Value = .DataBodyRange(ligne, 2)
    End With
   
End Sub

Cliquez pour agrandir...

Twing83 à dit:

Je confirme que j'ai encore de quoi m'occuper 🙂

En phase avec tes commentaires, l'ID ici ne sert strictement à rien.
Je cherchais à initialiser le UserFormM qui a besoin de l'ID directement depuis la recherche mais c'était une fausse bonne idée.
J'ai opté pour une nouvelle recherche au clic sur "M", c'est pas super beau mais ça fait le job 🙂

Je cherche maintenant à délimiter la plage de navigation pour un ID donné (ex ID = 54 de la ligne 54 à la ligne 134)

Cliquez pour agrandir...

Twing83 à dit:

Je cherche maintenant à délimiter la plage de navigation pour un ID donné (ex ID = 54 de la ligne 54 à la ligne 134)

Cliquez pour agrandir...

cathodique à dit:

Tu aurais dû mettre l'ID dans une textbox ou un label.

je t'avoue que si on ne comprend pas ta demande, il sera difficile de t'aider.
Ensuite, si tu n'expliques pas exactement les tenants et aboutissants de ton problème.
Tu ne recevras que des réponses approximatives.
En te limitant à ce que tu penses être la solution de ton problème.
Tu réduis tes chances de solutionner ton problème assez rapidement.
Du moins avoir un code qui tienne la route.

Alors pourquoi, veux-tu limiter la plage de navigation? Que veux-tu dire par "navigation"?

Cliquez pour agrandir...

Twing83 à dit:

Merci cathodique pour ton retour, effectivement je ne suis pas très explicite sur mon besoin...

Lorsque je clique sur "M" depuis le UserFormS, je veux pouvoir utiliser le SpinButton (Up/Down) pour "naviguer" dans l'élément rechercher dans t_BDD_M, mais pas visualiser toutes les autres items (ID différents).

Comme je l'ai plus ou moins dit plus haut, j'ai une BDD volumineuse (t_BDD_M et t_BDD_S) et j'ai souvent des modifications à réaliser sur des items dans t_BDD_M, d'où ma volonté de vouloir y naviguer assez facilement (éditer serait plus correcte).

Bien évidemment je veux également pouvoir y ajouter des items et en supprimer.

Ceci m'amène à dire que je n'ai pas précisé qu'une suppression dans t_BDD_S implique une suppression des items correspondant dans t_BDD_M.

Cordialement,

Cliquez pour agrandir...

cathodique à dit:

Bonjour,

Personnellement, je n'ai pas utilisé le 1er formulaire.

En espérant avoir compris ta demande. Je n'ai pas traité les différents boutons.
J'ai ajouté au formulaire une listbox non visible à l'utilisateur.
Au besoin, on reste à l'écoute.
Regarde la pièce jointe 1216461
Nb: dans le fichier, j'ai ajouté un contribution de @patricktoulon (que je salue😉)

Cliquez pour agrandir...

• amélioration de la fonction MODIFIER/AJOUTER dans le 1er formulaire
• codage de la fonction MODIFIER/AJOUTER dans le 2nd formulaire
• codage du bouton SpinUpDown dans le 2nd formulaire
• codage d'une réindexation de la table M sur la fonction QUITTER

Twing83 à dit:

Bonjour,

Merci pour l'investissement, c'est génial d'être aussi soutenu 😀

Le 1er formulaire m'est indispensable, il est d'ailleurs lui-même indirectement lié à une troisième BdD et me permet de faire la liaison entre différentes bases...

Je n'ai pas encore regardé dans le détail ton travail (mais je vais sans tarder...), j'ai moi-même un peu avancé le projet aujourd'hui :

• amélioration de la fonction MODIFIER/AJOUTER dans le 1er formulaire
• codage de la fonction MODIFIER/AJOUTER dans le 2nd formulaire
• codage du bouton SpinUpDown dans le 2nd formulaire
• codage d'une réindexation de la table M sur la fonction QUITTER

Certainement moyen d'optimiser tout ça !!!

Je galère néanmoins sur la fonction SUPPRIMER du 1er formulaire (table S) qui doit aller vérifier s'il existe des données référencées dans la table M et les supprimer si besoin.
Il reste aussi la fonction SUPPRIMER du 2nd formulaire à codé entièrement.

Voilà ou j'en suis grâce à vous tous, d'ores et déjà un très grand merci 😄😄😄

Amicalement,

Cliquez pour agrandir...

Twing83 à dit:

Le 1er formulaire m'est indispensable, il est d'ailleurs lui-même indirectement lié à une troisième BdD et me permet de faire la liaison entre différentes bases...

Cliquez pour agrandir...