Ajouter et modifier les données de tableaux avec un userform

Résolu
Chackamadou Messages postés 24 Date d'inscription vendredi 14 février 2020 Statut Membre Dernière intervention 3 juin 2023 - 16 mai 2023 à 14:57
Chackamadou Messages postés 24 Date d'inscription vendredi 14 février 2020 Statut Membre Dernière intervention 3 juin 2023 - 18 mai 2023 à 22:04

Code VBA Excel.


Bonjour. Veuillez m’aider à me retrouver SVP. Je voudrais pouvoir ajouter et modifier les données de plusieurs tableaux avec un seul userform.

Sur la feuille (DataBase), j’ai créé un grand tableau ( Tableau15) qui regroupe les données de plusieurs autres tableaux sur différentes feuilles ( vente, achat, transfert). J’utilise un userform pour ajouter des données et une ligne dans achat ( par exemple), ça envoie les mêmes données dans les colonnes qui concernent l’achat dans le tableau DataBase et mets zéro dans les autres colonnes qui concernent les autres ( Vente, transfert) sur la même ligne. Maintenant le problème n’est pas au niveau de l’ajout mais de la modification. Avec un userform je peux modifier les données déjà ajouté dans le tableau achat mais je n’arrive pas a faire en sorte que la même modification soit faite automatiquement dans le grand tableau (DataBase).

voici le code que j’utilise pour effectuer les modifications :

Private Sub CmdModifier_Click()

    AjoutModification = False

    If Me.LBDonneesAchat.ListIndex = -1 Then

        MsgBox "Veuillez choisir la ligne à modifier", vbCritical, "STOCK"

    Else

        LigneAModifier = Me.LBDonneesAchat.ListIndex + 4

        FmSaisieAchat.TxLibelleArticles.Value = FeuilDonneesAchat.Range("B" & LigneAModifier).Value

        FmSaisieAchat.TxPrix.Value = FeuilDonneesAchat.Range("C" & LigneAModifier).Value

        FmSaisieAchat.TxQuantite.Value = FeuilDonneesAchat.Range("D" & LigneAModifier).Value

        FmSaisieAchat.TxMontant.Value = FeuilDonneesAchat.Range("E" & LigneAModifier).Value

        FmSaisieAchat.TxDate.Value = FeuilDonneesAchat.Range("F" & LigneAModifier).Value

        FmSaisieAchat.SpinButton2.Value = Val(FeuilDonneesAchat.Range("D" & LigneAModifier).Value)

        FmSaisieAchat.Show

    End If

End Sub

A voir également:

8 réponses

Le Pingou Messages postés 12035 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 1 avril 2024 1 425
16 mai 2023 à 16:09

Bonjour,

Peut-être une autre manière de procéder , surtout pour modifier des données : https://cjoint.com/c/MEqogM1e1eZ


2
Chackamadou Messages postés 24 Date d'inscription vendredi 14 février 2020 Statut Membre Dernière intervention 3 juin 2023 1
17 mai 2023 à 16:21

Bonjour. Merci Le Pingou pour votre réponse. Mais cela ne convient pas à mes données. Comme je l’ai dis précédemment j’ai plusieurs données sur différentes feuilles. Mais afin de faire un tableau de bord dynamique pour l’ensemble des données du classeur, j’ai dû faire rassembler toutes les données de toutes les feuilles automatiquement sur une feuille DataBase. Si je fais un ajout sur n’importe quelle feuille ça va aussi dans le DataBase, mais vu que DataBase rassemble toutes les données, le numéro de ligne ne correspond pas avec celles des autres feuilles. Donc je n’arrive pas à faire modifier les données de DataBase automatiquement en fonction des données des autres feuilles 

0
Le Pingou Messages postés 12035 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 1 avril 2024 1 425
17 mai 2023 à 16:42

Bonjour,

Merci du retour.

Sans connaitre la structure de votre classeur il m'est impossible de vous proposer une solution adaptée à votre application.

La mise à disposition du classeur avec quelques données serait souhaitable, si oui le mettre sur  Accueil de Cjoint.com et poster le lien.


1
Chackamadou Messages postés 24 Date d'inscription vendredi 14 février 2020 Statut Membre Dernière intervention 3 juin 2023 1
17 mai 2023 à 16:45

Merci. D’accord. Veuillez m’accorder quelques minutes. Le fichier est lourd je vais l’alléger 

0
Chackamadou Messages postés 24 Date d'inscription vendredi 14 février 2020 Statut Membre Dernière intervention 3 juin 2023 1
Modifié le 17 mai 2023 à 17:02

Voici le lien: 

https://cjoint.com/c/MEro7SIQgRu

0
Le Pingou Messages postés 12035 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 1 avril 2024 1 425
17 mai 2023 à 18:11

Bonjour,

Merci pour le fichier.

Chaque fois que réalise une opération achat ou vente (dans le but de comprendre le fonctionnement) le classeur se ferme

et je ne peux de ce fait rien faire.... Ou est le problème...


1
Chackamadou Messages postés 24 Date d'inscription vendredi 14 février 2020 Statut Membre Dernière intervention 3 juin 2023 1
17 mai 2023 à 18:50

Merci pour l’intérêt que vous apportez à ma demande. Chez moi tout fonctionne correctement. Je vais essayer de l’enregistrer à nouveau et l’archiver  si vous voulez bien.

0
Chackamadou Messages postés 24 Date d'inscription vendredi 14 février 2020 Statut Membre Dernière intervention 3 juin 2023 1
17 mai 2023 à 18:54

Pour ajouter une nouvelle vente ou achat vous devez cliquer sur Gestion de vente ( ou Achat). Et ensuite l’userform s’ouvre 

0
Le Pingou Messages postés 12035 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 1 avril 2024 1 425
18 mai 2023 à 17:39

Bonjour,

Ma proposition, j'ai utilisé la ligne 50 de DataBase pour tester, à vous la suite.

Adaptation du formulaire FmDonneesAchat et les codes Private Sub CmdModifier_Click() et Private Sub CmdValider_Click()

Le fichier : https://cjoint.com/c/MEspL3pj7VZ


1
Chackamadou Messages postés 24 Date d'inscription vendredi 14 février 2020 Statut Membre Dernière intervention 3 juin 2023 1
18 mai 2023 à 22:04

Waouh ! Très bien. Merci vraiment 

0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Chackamadou Messages postés 24 Date d'inscription vendredi 14 février 2020 Statut Membre Dernière intervention 3 juin 2023 1
17 mai 2023 à 15:48

Merci monsieur. Je vais vérifier et vous revenir 

0
Le Pingou Messages postés 12035 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 1 avril 2024 1 425
17 mai 2023 à 20:59

Bonjour,

Merci de votre conseil, cependant je vous informe que cela ne fonctionne pas chez moi .C'est comme s'il y avait une protection qui empêche la modification , l'ajout ou la suppression d'une donnée.

J'ai découvert ceci: 


0
Chackamadou Messages postés 24 Date d'inscription vendredi 14 février 2020 Statut Membre Dernière intervention 3 juin 2023 1
17 mai 2023 à 21:39

Merci pour l’éclaircissement. Normalement si vous cliquez sur activer les modifications ça devrait fonctionner. Mais voici un nouveau lien sans restriction de modification : 

https://cjoint.com/c/MErtKivAFKu

0
Le Pingou Messages postés 12035 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 1 avril 2024 1 425 > Chackamadou Messages postés 24 Date d'inscription vendredi 14 février 2020 Statut Membre Dernière intervention 3 juin 2023
Modifié le 17 mai 2023 à 22:23

Bonjour,

Dommage que vous ne l'avez pas réalisé la première fois ...longue recherche pour moi...!

Les macros sont de vous...!

Je dois encore comprendre le résonnement du dévelloppeur...!


Salutations.
Le Pingou

0
Chackamadou Messages postés 24 Date d'inscription vendredi 14 février 2020 Statut Membre Dernière intervention 3 juin 2023 1 > Le Pingou Messages postés 12035 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 1 avril 2024
18 mai 2023 à 14:01

D’accord. Je vais voire ce que je pourrais faire pour résoudre cela et vous revenir.

Sincère remerciement 

0
Le Pingou Messages postés 12035 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 1 avril 2024 1 425
17 mai 2023 à 21:33

Bonsoir,

A force de recherche j'ai trouvé la cause, à savoir, le développeur de l'application à insérer une liaison Cise.....005 enregistrement automatique et comme la liaison est impossible depuis mon PC le fichier se ferme.

Je reprends demain et vous m'informez exactement de ce qui vous pause problème.


0
Chackamadou Messages postés 24 Date d'inscription vendredi 14 février 2020 Statut Membre Dernière intervention 3 juin 2023 1
17 mai 2023 à 22:48

Bonjour. Merci vraiment pour tout le temps que vous m’accorder. Comment supprimer se lien SVP? C’est moi même se développer. J’avais déjà enlevé tous les liens. Et ce fichiers (cisselaelectronique005) n’existe même plus sur mon PC. Je viens de l’utiliser sur un autre ça a fonctionné. Je n’ai trouvé aucun lien. Mais quand je lance l’inspecteur de document ça confirme que y’a des liens vers d’autres fichiers, mais ne peut pas l’effacer. J’ai cherché dans : données - - > modifier les liens>> et aussi dans développer - - > Source. Je n’ai rien trouvé. 

0
Le Pingou Messages postés 12035 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 1 avril 2024 1 425
18 mai 2023 à 14:41

Bonjour,

Je reprend votre problème et il s'agit bien de la modification qui doit aussi apparaitre dans la feuille (DataBase)..!

Je vais le faire pour [Donnee_achat]...!


0
Chackamadou Messages postés 24 Date d'inscription vendredi 14 février 2020 Statut Membre Dernière intervention 3 juin 2023 1
18 mai 2023 à 15:01

Bonjour ! Oui exactement. Ce que j’arrive pas à faire.  Merci beaucoup 

0