Probléme de saisie des données apres utilisation d'un USERFORM

Résolu/Fermé
Etienne - Modifié par Etienne le 10/08/2015 à 14:56
 Etienne - 11 août 2015 à 12:17
Bonjour, ^^

j'espère que vous pourrez m'aider^^

Alors mon outil:

Dans un document excel j'ai une feuille("PG") où dessus il y a un bouton qui active mon userform.

A l'affichage de mon userform il y a différents bouton qui me permettent de choisir sur quelle feuille je dois réaliser ma saisie.

Après avoir cliquer sur un bouton, je tombe sur ma feuille ("RDT") et là je veux saisir mes données

Problème:

Quand je saisie mes données dans la feuille ("RDT")
Les données sont saisies sur la feuille("PG") alors que dans le programme j'utilise bien:

Me.hide ('Fermer le user form activer avec le bouton de la PG)

Sheets("RDT").activate ('Feuille sur laquelle je saisie mes données dans les cellules)

Si quelqu'un peut m'aider

Merci à tous







7 réponses

Bonjour

Donne au moins un model pour voir ce que tu as fait


A+Maurice
1
voici le code qui est lier ou BP de la feuille ("PG")

Sub ActionOpen()
Sheets("PG").Activate
UF1.Show
End Sub


Cela affiche le userform avec plusieurs bouton

Je sélectionne la feuille avec le premier BP:

Private Sub CB1_Click()

'Afficher la page RDT
Me.Hide

Sheets("RDT").Select


End Sub

Cela m'affiche bien la feuille , et quand je veux rentrer une valeur dans une cellule. rien ne s'affiche dans la feuille ("RDT") alors que toute la saisie apparait sur la feuille ("PG")

Merci de votre aide ;-)
0
Patrice33740
Messages postés
8549
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
7 mai 2022
1 754
10 août 2015 à 19:12
Bonjour,

« Quand je saisie mes données dans la feuille ("RDT")
Les données sont saisies sur la feuille("PG")
»

Je ne vois qu'un cas où cela pourrait se produire, mais alors « Les données sont [aussi] saisies sur la feuille("PG") » c'est que dans ce cas les 2 feuilles sont sélectionnées simultanément. Dans ce cas, quelle que soit la feuille activée (RDT ou PG), les données sont saisies simultanément dans les 2 feuilles, il suffit alors de remplacer Sheets("RDT").Activate par Sheets("RDT").Select
1
J'ai essayer et justement cela ne fonctionne pas..... :(

Les données que je saisie dans la feuille ("RDT") disparaisse et s'affiche dans la feille ("PG")....
0
Patrice33740
Messages postés
8549
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
7 mai 2022
1 754 > Etienne
10 août 2015 à 19:48
C'est pas ce que tu avait décrit !!!
Qu'y a-t-il dans les autres modules (feuilles, classeur, usf, modules, ..;)
0
Je suis désolé si je n'est pas été clair.


comment on charge un document excel pour que cela soit plus simple?


Donc dans le Premier UF1:


Dim DUF1 As Worksheet
Dim PG As Worksheet
Dim RDT As Worksheet
Private Sub UserForm_Initialize()

Set F1 = Sheets("DUF1")

'Titre:

UF1.Caption = F1.Range("B4").Value
L1.Caption = F1.Range("B5").Value
CB1.Caption = F1.Range("B6").Value
CB2.Caption = F1.Range("B7").Value
CB3.Caption = F1.Range("B8").Value
CB4.Caption = F1.Range("B9").Value
CB5.Caption = F1.Range("B10").Value
CB6.Caption = F1.Range("B11").Value


End Sub

Private Sub CB1_Click()

'Afficher la page RDT
Me.Hide

Sheets("RDT").Select


End Sub

Dans le module:


Sub ActionOpen()
Sheets("PG").Activate
UF1.Show
End Sub

Et dans le document excel:

Une feuille : PG
Une feuille : RDT
Une feuille:DUF1


Merci de votre aide et patience avec moi.
0
Patrice33740
Messages postés
8549
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
7 mai 2022
1 754
10 août 2015 à 20:09
Re,

comment on charge un document excel pour que cela soit plus simple?

Utilises https://www.cjoint.com/
et mets le lien dans ton prochain message
1
Et voila^^

http://www.cjoint.com/c/EHksy6JARiU

Merci de votre aide
0
Bonjour

mettre ta feuille Visible

Private Sub CB1_Click()
   Unload Me
 Feuil2.Visible = -1
 Feuil2.Select
End Sub

A+
Maurice
1
Bonjour,

Dsl, cela ne fonctionne pas.
Quand je saisie une donnée dans une cellule de la feuille ("RDT")
Cela rentre l'info dans la feuille ("PG")

:(

Merci
0

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

Posez votre question
Patrice33740
Messages postés
8549
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
7 mai 2022
1 754
10 août 2015 à 22:19
Bonjour,

Ceci fonctionne :
Private Sub CB1_Click()
'Afficher la page RDT

  Me.Hide
  Worksheets("RDT").Visible = xlSheetVisible
  Worksheets("RDT").Select

End Sub


1
Bonjour,

Je comprend pas du tout

Je rentre ton texte.

Aucun problème, cela affiche la page

Apres je rentre la valeur "1" dans la cellule A5 et paf elle disparait de la feuille "RDT"
et elle s'affiche dans la feuille "PG"

La je comprend pas

Encore merci d'essayer de m'apporter votre aide
0
J'ai l'impression que la feuille "RDT" s'affiche mais que la feuilles "PG" récupére toute les données saisie dans les cellules

MErci
0
Bonjour à tous,

Le problème peut-il venir de mon Excel?

Merci

Cordialement
0
Bonjour

Retour de ton modele a tester

http://www.cjoint.com/c/EHlkhkQ5amx

A+
Maurice
0
Bonjour Maurice

Alors respect!!!!!

Peut m'expliquer (si tu as le temps)

Car la bravo
0