Enregistrement modification d'informations sur userform

Résolu/Fermé
loupti Messages postés 30 Date d'inscription lundi 23 février 2015 Statut Membre Dernière intervention 13 mai 2015 - 11 mai 2015 à 15:36
loupti Messages postés 30 Date d'inscription lundi 23 février 2015 Statut Membre Dernière intervention 13 mai 2015 - 12 mai 2015 à 17:05
Bonjour,

Je suis étudiante en génie civil et dans le cadre de mes études un projet m'a été confié. Ce projet consiste à enregistrer des données, entrées dans différents userform, sur différentes feuilles d'un classeur excel.

Actuellement je suis confrontée à ce problème :

J'ai créer des boutons pour avoir la possibilité de pouvoir modifier les données entrée sur l'userform. Et par la suite ces données doivent être mises à jour dans la feuilles excel correspondant à l'userform où l'utilisateur modifie des informations.

Pour enregistrer les donnes entrées dans l'userform j'ai écrit le code suivant :

 Dim feuille1 As Worksheet
    UsfOrigine2 = Me.Name
    'on créé la feuille "Information générales du fichier" si elle n'existe pas déjà
    Set feuille1 = Creer_Feuil(xlBook, "File Information")
    'on y stocke toutes les infos saisies
    'xlApp.Visible = True
    With feuille1
        .[A1] = CbDocType
        .[A2] = TbDrawnby
        .[A3] = TbDesignedby
        .[A4] = TbCheckedby
        .[A5] = TbApprovedby
        .[A6] = TbScale
        .[A7] = TbPaperFormat
        .[A8] = TbWBS
        .[A9] = TbPhaseProject
    End With
    'Enregistrement du classeur "Projet" dans répertoir D:\DATA\l.viton\Documents
    xlBook.SaveAs Filename:=monRep & Nom_Proj, FileFormat:=xlExcel8
    
    Unload Me
    UserForm5.Show


Pour avoir accès au données au préalable enregistrées et pouvoir les modifier dans l'userform concerné j'ai donc écrit le code suivant :

'Evite le chargement des données si la feuille "General Information" existe bien
On Error GoTo Suite
    'charge les données contenues dans la feuille "File Information" dans l'userform4
    If UsfOrigine <> "UserForm4" Then Set xlBook = xlApp.Workbooks.Open(Filename:=monRep & CboNomProjets.Value & ".xls")
    With xlBook.Sheets("File Information")
        UserForm4.CbDocType = .[A1]
        UserForm4.TbDrawnby = .[A2]
        UserForm4.TbDesignedby = .[A3]
        UserForm4.TbCheckedby = .[A4]
        UserForm4.TbApprovedby = .[A5]
        UserForm4.TbScale = .[A6]
        UserForm4.TbPaperFormat = .[A7]
        UserForm4.TbWBS = .[A8]
        UserForm4.TbPhaseProject = .[A9]
    End With
Suite: 'après chargement éventuel, on affiche l'userform3
    Unload Me
    UserForm4.Show



après avoir cliqué sur le bouton "modifier Infos Fichier" de l'userfom ci-dessous, je vais modifier les données mon userform 4 (voir ci-dessous).


Userform 2



Userform 4

Lorsque je clique sur Ok voici les messages d'erreur qui apparaissent :




Merci d'avance :)


4 réponses

cs_Le Pivert Messages postés 7824 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 7 octobre 2022 716
11 mai 2015 à 16:02
1
loupti Messages postés 30 Date d'inscription lundi 23 février 2015 Statut Membre Dernière intervention 13 mai 2015
11 mai 2015 à 16:21
Bonjour cs_Le Pivert,

Merci je vais regarder la réponse alors
0
loupti Messages postés 30 Date d'inscription lundi 23 février 2015 Statut Membre Dernière intervention 13 mai 2015
11 mai 2015 à 16:35
le lien n'est plus disponible et je ne le retrouve pas dans mes téléchargements ... serait-il possible de me le réenvoyer svp ?

Merci d'avance
0
cs_Le Pivert Messages postés 7824 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 7 octobre 2022 716
12 mai 2015 à 10:55
Je ne comprends pas, il a été retiré!

Voilà le nouveau. C'est un exemple a modifier suivant les besoins:

http://www.cjoint.com/data3/3EmliFF7KeR.htm
1
loupti Messages postés 30 Date d'inscription lundi 23 février 2015 Statut Membre Dernière intervention 13 mai 2015
12 mai 2015 à 11:58
merci :)
Alors je sui bien arriver à faire apparaitre les informations déjà enregistrées au préalable. Mais quand je clique sur ok, s j'ai modifier des données ça ne les remet pas à jour dans mon classeur .... et j'ai ce message d'erreur qui me dit que mon document est en lecture seule et donc il est impossible d'accéder au document ...
Dois-je faire une manipulation en plus ?
0
loupti Messages postés 30 Date d'inscription lundi 23 février 2015 Statut Membre Dernière intervention 13 mai 2015
12 mai 2015 à 12:00
et c'est bien vrai les classeurs que je créé et qui s'enregistre dans mon répertoire sont en lecture seule. Je ne peux même pas les supprimer depuis mon répertoire car c'est comme si ils étaient ouvert alors qu'excel est fermé ... je ne comprend pas
0
cs_Le Pivert Messages postés 7824 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 7 octobre 2022 716
12 mai 2015 à 12:03
Clic droit sur le fichier
Allez dans Propriétés et décochez Lecture seule
0
loupti Messages postés 30 Date d'inscription lundi 23 février 2015 Statut Membre Dernière intervention 13 mai 2015
12 mai 2015 à 13:30
merci :)
0
loupti Messages postés 30 Date d'inscription lundi 23 février 2015 Statut Membre Dernière intervention 13 mai 2015
12 mai 2015 à 13:47
puis-je vous poser une dernière question svp ?
0
cs_Le Pivert Messages postés 7824 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 7 octobre 2022 716
11 mai 2015 à 18:37
voilà:

http://www.cjoint.com/data3/3ElsZxw5vqQ.htm
0
loupti Messages postés 30 Date d'inscription lundi 23 février 2015 Statut Membre Dernière intervention 13 mai 2015
12 mai 2015 à 09:13
merci :)
0
loupti Messages postés 30 Date d'inscription lundi 23 février 2015 Statut Membre Dernière intervention 13 mai 2015
12 mai 2015 à 09:14
le lien n'est toujours pas disponible :/
0
loupti Messages postés 30 Date d'inscription lundi 23 février 2015 Statut Membre Dernière intervention 13 mai 2015
12 mai 2015 à 16:48
Je me permets de vous contacter car je rencontre encore des problèmes sur mon programme...
Il y a certaines fonctions que j'aimerai faire où je n'arrive pas à trouver un code fonctionnel ...
A ce jour je rencontre 4 problèmes que je n'arrive pas à résoudre ...

Le premier étant celui-ci :

1) Décaler de colonne :

Etant donné quon peut avoir autant de présentation ou de fichier qu'on désire :

1) pour les fichiers :

On a déjà créer un fichier et les informations se sont enregistrées dans la colonne A de ma feuille "file Information", j'aimerai que si on créé un autre fichier, les renseignements s'enregistre dans la colonne B et pour un troisième fichier dans la colonne C ....

2) Pour les présentations :

On a déjà créer une présentation et les informations se sont enregistrées dans la colonne A de ma feuille "présentation Information", j'aimerai que si on créé une autre présentation, les renseignements s'enregistre dans la colonne B et pour une troisième présentation dans la colonne C ....

Merci d'avance

Cordialement
0
cs_Le Pivert Messages postés 7824 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 7 octobre 2022 716
12 mai 2015 à 17:02
Voir ceci, dans décaler une sélection:

https://www.excel-pratique.com/fr/vba/selections.php
0
loupti Messages postés 30 Date d'inscription lundi 23 février 2015 Statut Membre Dernière intervention 13 mai 2015
12 mai 2015 à 17:05
Merci beaucoup
0