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

Résolu
Chackamadou Messages postés 24 Date d'inscription   Statut Membre Dernière intervention   -  
Chackamadou Messages postés 24 Date d'inscription   Statut Membre Dernière intervention   -

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

Réponse 1 / 8
Le Pingou Messages postés 12249 Date d'inscription   Statut Contributeur Dernière intervention   1 458
 

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   Statut Membre Dernière intervention   1
 

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
Réponse 2 / 8
Le Pingou Messages postés 12249 Date d'inscription   Statut Contributeur Dernière intervention   1 458
 

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   Statut Membre Dernière intervention   1
 

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   Statut Membre Dernière intervention   1
 

Voici le lien: 

https://cjoint.com/c/MEro7SIQgRu

0
Réponse 3 / 8
Le Pingou Messages postés 12249 Date d'inscription   Statut Contributeur Dernière intervention   1 458
 

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   Statut Membre Dernière intervention   1
 

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   Statut Membre Dernière intervention   1
 

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

0
Réponse 4 / 8
Le Pingou Messages postés 12249 Date d'inscription   Statut Contributeur Dernière intervention   1 458
 

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   Statut Membre Dernière intervention   1
 

Waouh ! Très bien. Merci vraiment 

0

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

Posez votre question
Réponse 5 / 8
Chackamadou Messages postés 24 Date d'inscription   Statut Membre Dernière intervention   1
 

Merci monsieur. Je vais vérifier et vous revenir 
0
Réponse 6 / 8
Le Pingou Messages postés 12249 Date d'inscription   Statut Contributeur Dernière intervention   1 458
 

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   Statut Membre Dernière intervention   1
 

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 12249 Date d'inscription   Statut Contributeur Dernière intervention   1 458 > Chackamadou Messages postés 24 Date d'inscription   Statut Membre Dernière intervention  
 

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   Statut Membre Dernière intervention   1 > Le Pingou Messages postés 12249 Date d'inscription   Statut Contributeur Dernière intervention  
 

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

Sincère remerciement 

0
Réponse 7 / 8
Le Pingou Messages postés 12249 Date d'inscription   Statut Contributeur Dernière intervention   1 458
 

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   Statut Membre Dernière intervention   1
 

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
Réponse 8 / 8
Le Pingou Messages postés 12249 Date d'inscription   Statut Contributeur Dernière intervention   1 458
 

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   Statut Membre Dernière intervention   1
 

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

0

Discussions similaires

Excel supprimer une mise en forme de tableau
pépé35530 -
allezlom -

24 réponses