Rapport de message :*
 

Re: Cherche à faire un répertoire

Titre du sujet : Re: Cherche à faire un répertoire
par myDearFriend! le 25/12/2007 23:09:04

Re PowerPlus,

Tu trouveras ci-joint ton exemple modifié avec ce que j'ai compris du problème...

J'ai utilisé la procédure ci-dessous liée à ton bouton :
Sub Traitement()
Dim L As Long
    'Quelle est la dernière ligne utilisée en colonne K ?
    L = Cells(Application.Rows.Count, 11).End(xlUp).Row
    'On inscrit la moyenne générale sur la ligne du dessous
    Cells(L + 1, 11).Value = Range("C9").Value
    'On inscrit la date du jour en face (colonne J)
    Cells(L + 1, 10).Value = Date
End Sub


Cordialement,