XL 2019 Afficher les donnée d'un UserForm sur une autre feuille

[Yann71]

Bonjour le forum,
J'ai un UserForm qui s'ouvre sur ma feuille 1 et j'aimerai que mes donnée s' affiche sur une autre feuille.
Merci d'avance pour votre aide.

 

[ChTi160]

Bonjour Yann
une approche pas sur d'avoir compris j'ai donc affecté a une variable le Nom de la Feuille Source et Idem pour la Feuille Cible
a voir Lol
on affiche les données de la Feuille "Feuil1"
et on les colle sur la feuille "Feuil2"
Ou lycée de Versailles !
Bonne fin de Journée
jean marie

 

[Yann71]

Bonjour Yann
une approche pas sur d'avoir compris j'ai donc affecté a une variable le Nom de la Feuille Source et Idem pour la Feuille Cible
a voir Lol
on affiche les données de la Feuille "Feuil1"
et on les colle sur la feuille "Feuil2"
Ou lycée de Versailles !
Bonne fin de Journée
jean marie

Bonjour Jean-Marie.
J'ai essayé ton fichier, mais rien ne fonctionne. Pour te donner plus de précision, j'ouvre mon UserForm sur la page 1 et lorsque je remplis celui-ci je souhaite que les saisies s'affiche sur la page 2 tout en sachant que je reste toujours sur la page 1.

 

[JM27]

bonsoir

Validation

Private Sub f_b_ok_Click()
Dim i
    With Sheets("Feuil2")
        For i = 1 To 8
            .Cells(i, 1) = Me("txt" & i)
        Next
   End With
    Unload Me
End Sub

 

[Yann71]

bonsoir

Validation

Private Sub f_b_ok_Click()
Dim i
    With Sheets("Feuil2")
        For i = 1 To 8
            .Cells(i, 1) = Me("txt" & i)
        Next
   End With
    Unload Me
End Sub

Bonsoir Jean-Marcel,
Je te remercie pour ton intervention, c'est ce que je souhaitais. Juste une question, actuellement les informations s'affiche de A1:A8, j'aurai aimer savoir comment afficher les informations de A10:A18

 

[ChTi160]

Bonjour JM
C'est , je crois , ce qu'il y a dans mon fichier lol
Effectivement
j'ai oublié d'inverser

Me("txt" & i)=.Cells(i, 1)  en .Cells(i, 1) = Me("txt" & i)

et il n'y a pas pensé lol
tu me diras pas évident Lol
Edit :
si pour A1:A8 on met 1 to 8
pour A10:A18 je pense qu'il faut mettre 10 to 18
me suis je racheté de mon oubli ?Lol
Bonne fin de journée
Jean marie

 

[JM27]

bonsoir
Pour info le point devant.cells
Faire référence à la feuille "défini" par le with(with sheets("Feuil2"))
Si tu rajoutes 9 au I dans .cells(I+9,1)
tu rajoutes 9 au I donc 10 à 18

Private Sub f_b_ok_Click()
Dim i
    With Sheets("Feuil2")
        For i = 1 To 8
            .Cells(i+9, 1) = Me("txt" & i)
        Next
   End With
   Unload Me
End Sub

 

[ChTi160]

Re effectivement lol
Dans mon explication j'ai zappé les textBox Lol
J'arrête !
Jean marie

 

[JM27]

Salut Chti
Trop d'apéro ou trop de bière !!!😀

 

[ChTi160]

Trop d'eau lol

 

[Yann71]

Bonjour JM
C'est , je crois , ce qu'il y a dans mon fichier lol
Bonne fin de journée
Jean marie

Bonjour JM
C'est , je crois , ce qu'il y a dans mon fichier lol
Effectivement
j'ai oublié d'inversé

Me("txt" & i)=.Cells(i, 1)  en .Cells(i, 1) = Me("txt" & i){/Code]
et il n'y a pas pensé lol
Bonne fin de journée
Jean marie

Trop d'eau

Trop d'eau lol

😄

 

[Yann71]

Bonjour JM
C'est , je crois , ce qu'il y a dans mon fichier lol
Bonne fin de journée
Jean marie

Bonjour JM
C'est , je crois , ce qu'il y a dans mon fichier lol
Effectivement
j'ai oublié d'inversé

Me("txt" & i)=.Cells(i, 1)  en .Cells(i, 1) = Me("txt" & i){/Code]
et il n'y a pas pensé lol
Bonne fin de journée
Jean marie

Bonjour JM
C'est , je crois , ce qu'il y a dans mon fichier lol
Effectivement
j'ai oublié d'inverser

Me("txt" & i)=.Cells(i, 1)  en .Cells(i, 1) = Me("txt" & i)

et il n'y a pas pensé lol
tu me diras pas évident Lol
Edit :
si pour A1:A8 on met 1 to 8
pour A10:A18 je pense qu'il faut mettre 10 to 18
me suis je racheté de mon oubli ?Lol
Bonne fin de journée
Jean marie

Heu non 1 to 8 signifie qu'il utilise les informations des 8 TextBox et ne détermine pas la position

 

[Yann71]

bonsoir
Pour info le point devant.cells
Faire référence à la feuille "défini" par le with(with sheets("Feuil2"))
Si tu rajoutes 9 au I dans .cells(I+9,1)
tu rajoutes 9 au I donc 10 à 18

Private Sub f_b_ok_Click()
Dim i
    With Sheets("Feuil2")
        For i = 1 To 8
            .Cells(i+9, 1) = Me("txt" & i)
        Next
   End With
   Unload Me
End Sub

Merci beaucoup pour ton aide cela fonction parfaitement, je vais pouvoir avancer dans mon périple. Bonne soirée.

 

[Yann71]

Trop d'eau lol

Bonjour le forum. Je reviens ici car il y a 2 petits soucis qui sont les suivant. Lorsque je des données dans mon UserForm cela fonctionne bien. Mais ensuite lorsque je rouvre mon UserForm je ne vois plus dans les TextBox le contenu de ma liste comme cela le faisais dans mon fichier d'origine, ensuite si malgré tout je modifie les saisies en rajoutant une autre entrée toute ma liste s'efface donc je suis obligé de tout réécrire, ce problème lui aussi n'apparaissait pas sur mon fihier d'origine.

 

[JM27]

Bonjour
Ta demande n'est pas claire.
Si tu as des valeurs dans la feuil 1 de A1 à A8 ces valeurs seront transcrites dans les text box.
Si tu as rien : tu ne retranscris ::::: rien.

Je pense avoir compris :
A tout les coups tu lance ton userform à partir de la feuille 2 et comme tu n'as pas indiqué le nom de la feuille ou récupérer les données , comme il n'y a rien dans la feuille 2 de A1 à A8 , tu ne copies rien dans la feuille2

Dans tout les cas il faut désigner la feuille avant de créer tes boucles

Voici ce que tu as dans ton fichier