Probléme de saisie des données apres utilisation d'un USERFORM
Résolu/Fermé
A voir également:
- Probléme de saisie des données apres utilisation d'un USERFORM
- Notice d'utilisation - Guide
- Utilisation chromecast - Guide
- Effacer les données de navigation - Guide
- Reinstaller windows sans perte de données - Guide
- Validation des données excel - Guide
7 réponses
Patrice33740
Messages postés
8556
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
2 mars 2023
1 776
10 août 2015 à 19:12
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
« 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
Patrice33740
Messages postés
8556
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
2 mars 2023
1 776
>
Etienne
10 août 2015 à 19:48
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, ..;)
Qu'y a-t-il dans les autres modules (feuilles, classeur, usf, modules, ..;)
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.
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.
Patrice33740
Messages postés
8556
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
2 mars 2023
1 776
10 août 2015 à 20:09
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
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
A+
Maurice
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
Patrice33740
Messages postés
8556
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
2 mars 2023
1 776
10 août 2015 à 22:19
10 août 2015 à 22:19
Bonjour,
Ceci fonctionne :
Ceci fonctionne :
Private Sub CB1_Click()
'Afficher la page RDT
Me.Hide
Worksheets("RDT").Visible = xlSheetVisible
Worksheets("RDT").Select
End Sub
10 août 2015 à 19:21
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 ;-)