Bonjour Jean-Marie.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
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,bonsoir
Validation
VB: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
Me("txt" & i)=.Cells(i, 1) en .Cells(i, 1) = Me("txt" & i)
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
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é
VB: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
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é
VB: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
Heu non 1 to 8 signifie qu'il utilise les informations des 8 TextBox et ne détermine pas la positionBonjour JM
C'est , je crois , ce qu'il y a dans mon fichier lol
Effectivement
j'ai oublié d'inverser
et il n'y a pas pensé lolVB:Me("txt" & i)=.Cells(i, 1) en .Cells(i, 1) = Me("txt" & i)
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
Merci beaucoup pour ton aide cela fonction parfaitement, je vais pouvoir avancer dans mon périple. Bonne soirée.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
VB: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
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.Trop d'eau lol