Je suis entrain de cr=E9er un fichier excel pour un collegue et je
rencontre un soucis.
J'ai r=E9alis=E9 des userform "Fiche Calcul" et "Resultat".
Je voudrais lorsque j'enregistre les donn=E9es de ma ficheCalcul
l'userform Resultat apparaisse avec le r=E9sultat de la cellule E "Date
Fin". je pense qu'il faut fair un initialize sur le formulaire mais
apr=E8s je bloque comment faire pour r=E9cuperer la valeur correspondant =
=E0
la ligne que je viens de saisir ?
Merci de votre aide
Ci joint lien du fichier http://cjoint.com/?lDxyoyYCJ0
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jacky
Bonjour, Essaie... '------------ Private Sub CommandButton1_Click() Sheets("Calcultps").Select z = Sheets("Calcultps").Range("A65536").End(xlUp)(2).Row
Cells(z, 1).Value = TextBox1.Value 'n°essai Cells(z, 2).Value = TextBox2.Value 'date heure Cells(z, 3).Value = Freq.Value 'frequence Cells(z, 4).Value = TextBox4.Value 'cycles Resultats.TextBox1 = Cells(z, 5).Value 'FicheCalcul.Hide Unload FicheCalcul Resultats.Show End Sub '--------------------- ps:Un bouton 'ok' pour fermer l'userform "resultats" ne serait pas inutile -- Salutations JJ
"lolo" a écrit dans le message de news:
Bonsoir
Je suis entrain de créer un fichier excel pour un collegue et je rencontre un soucis. J'ai réalisé des userform "Fiche Calcul" et "Resultat". Je voudrais lorsque j'enregistre les données de ma ficheCalcul l'userform Resultat apparaisse avec le résultat de la cellule E "Date Fin". je pense qu'il faut fair un initialize sur le formulaire mais après je bloque comment faire pour récuperer la valeur correspondant à la ligne que je viens de saisir ?
Merci de votre aide Ci joint lien du fichier http://cjoint.com/?lDxyoyYCJ0
@++ Lolo
Bonjour,
Essaie...
'------------
Private Sub CommandButton1_Click()
Sheets("Calcultps").Select
z = Sheets("Calcultps").Range("A65536").End(xlUp)(2).Row
Cells(z, 1).Value = TextBox1.Value 'n°essai
Cells(z, 2).Value = TextBox2.Value 'date heure
Cells(z, 3).Value = Freq.Value 'frequence
Cells(z, 4).Value = TextBox4.Value 'cycles
Resultats.TextBox1 = Cells(z, 5).Value
'FicheCalcul.Hide
Unload FicheCalcul
Resultats.Show
End Sub
'---------------------
ps:Un bouton 'ok' pour fermer l'userform "resultats" ne serait pas inutile
--
Salutations
JJ
"lolo" <lolo_bob2@yahoo.fr> a écrit dans le message de news:
e314fca1-7236-4012-a751-6f9dd22afec2@h5g2000yqh.googlegroups.com...
Bonsoir
Je suis entrain de créer un fichier excel pour un collegue et je
rencontre un soucis.
J'ai réalisé des userform "Fiche Calcul" et "Resultat".
Je voudrais lorsque j'enregistre les données de ma ficheCalcul
l'userform Resultat apparaisse avec le résultat de la cellule E "Date
Fin". je pense qu'il faut fair un initialize sur le formulaire mais
après je bloque comment faire pour récuperer la valeur correspondant à
la ligne que je viens de saisir ?
Merci de votre aide
Ci joint lien du fichier http://cjoint.com/?lDxyoyYCJ0
Bonjour, Essaie... '------------ Private Sub CommandButton1_Click() Sheets("Calcultps").Select z = Sheets("Calcultps").Range("A65536").End(xlUp)(2).Row
Cells(z, 1).Value = TextBox1.Value 'n°essai Cells(z, 2).Value = TextBox2.Value 'date heure Cells(z, 3).Value = Freq.Value 'frequence Cells(z, 4).Value = TextBox4.Value 'cycles Resultats.TextBox1 = Cells(z, 5).Value 'FicheCalcul.Hide Unload FicheCalcul Resultats.Show End Sub '--------------------- ps:Un bouton 'ok' pour fermer l'userform "resultats" ne serait pas inutile -- Salutations JJ
"lolo" a écrit dans le message de news:
Bonsoir
Je suis entrain de créer un fichier excel pour un collegue et je rencontre un soucis. J'ai réalisé des userform "Fiche Calcul" et "Resultat". Je voudrais lorsque j'enregistre les données de ma ficheCalcul l'userform Resultat apparaisse avec le résultat de la cellule E "Date Fin". je pense qu'il faut fair un initialize sur le formulaire mais après je bloque comment faire pour récuperer la valeur correspondant à la ligne que je viens de saisir ?
Merci de votre aide Ci joint lien du fichier http://cjoint.com/?lDxyoyYCJ0
@++ Lolo
lolo
Merci JJ
Ca fonctionne nickel. J'ai pris note pour le bouton à rajouter sur l'userform "Resultats". Bonne soirée
@++ Lolo
Merci JJ
Ca fonctionne nickel. J'ai pris note pour le bouton à rajouter sur
l'userform "Resultats".
Bonne soirée