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

Résolu
Etienne -  
 Etienne -
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







A voir également:

7 réponses

Réponse 1 / 7
Maurice
 
Bonjour

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


A+Maurice
1
Etienne
 
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
Réponse 2 / 7
Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   1 780
 
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
Etienne
 
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 8561 Date d'inscription   Statut Membre Dernière intervention   1 780 > Etienne
 
C'est pas ce que tu avait décrit !!!
Qu'y a-t-il dans les autres modules (feuilles, classeur, usf, modules, ..;)
0
Etienne
 
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
Réponse 3 / 7
Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   1 780
 
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
Etienne
 
Et voila^^

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

Merci de votre aide
0
Réponse 4 / 7
Maurice
 
Bonjour

mettre ta feuille Visible 

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

A+
Maurice
1
Etienne
 
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
Réponse 5 / 7
Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   1 780
 
Bonjour,

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

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

End Sub
1
Etienne
 
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
Etienne
 
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
Réponse 6 / 7
Etienne
 
Bonjour à tous,

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

Merci

Cordialement
0
Réponse 7 / 7
Maurice
 
Bonjour

Retour de ton modele a tester

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

A+
Maurice
0
Etienne
 
Bonjour Maurice

Alors respect!!!!!

Peut m'expliquer (si tu as le temps)

Car la bravo
0

Discussions similaires

Erreur la zone de données passée à un appel système est insu
Vincent -
Panth33ra -

5 réponses