Probléme de saisie des données apres utilisation d'un USERFORM
Résolu
Etienne
-
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
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
-
-
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 ;-)
-
-
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
-
-
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.
-
-
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
-
Bonjour
mettre ta feuille Visible
Private Sub CB1_Click() Unload Me Feuil2.Visible = -1 Feuil2.Select End Sub
A+
Maurice -
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
Bonjour,
Ceci fonctionne :Private Sub CB1_Click() 'Afficher la page RDT Me.Hide Worksheets("RDT").Visible = xlSheetVisible Worksheets("RDT").Select End Sub
-
-
