Afficher valeurs textbox dans cellules du classeur

Bonsoir à tous,

J'ai récupérais un UseForm qui permet de calculer le temps qui sépare 2 dates en Année(s), Moi(s), Jour(s)

j'ai rajouté un bouton control qui permet de valider le résultat mais j'arrive pas à insérer le code qui va le copier dans les cellules de ma feuille active??

J'aimerais que ce résultat s'affiche sur 3 cellules (A1,B1,C1)

Puis il faudrait qu'une fois la copie réalisée, les textbox soient vidées pour être prête à un nouveau calcul qui lui aussi sera copié dans la ligne suivante de la feuille, soit (A2,B2,C2) etc.....

je vous joins mon fichier pour être plus clair!!

UN GRAND MERCI D'AVANCE!!

Bonjour,

pourquoi tu n'utilises pas plus simplement la fonction datedif() ?

eric

Oui je connais la fonction datedif.....

Mais je veux essayer d'améliorer un peu mon fichier!! voila pourquoi passer par un USF

C'est juste pour apprendre un peu plus en VBA!

Un exemple :

Private Sub CommandButton1_Click()
    Dim lig As Long
    lig = Cells(Rows.Count, "A").End(xlUp).Row + 1
    Cells(lig, 1) = CDbl(LabelAnnees)
    Cells(lig, 2) = CDbl(LabelMois)
    Cells(lig, 3) = CDbl(LabelJours)
    txtDu = ""
    txtAu = ""
    LabelAnnees = ""
    LabelMois = ""
    LabelJours = ""
End Sub

eric

Un grand MERCI eriiic !!!

C'est cela que je voulais obtenir^^

Merci de ton coup de main et du temps passé......

Bonne soirée.