Salut Olivier !
Comme je te le disais, c'est juste une ébauche et pour te donner des idées.
Mais selon ce que tu voudras faire, il faudra rajouter du code.
Sub Credit()
If Sheets(1).Range("A9") = "" Then
Sheets(1).Range("A9") = UserForm1.TextBox1.Value
Else
Sheets(1).Range("A8").End(xlDown).Offset(1, 0) = UserForm1.TextBox1.Value
End If
End Sub
On y go !
If Sheets(1).Range("A9") = "" Then
Sheets(1).Range("A9") = UserForm1.TextBox1.Value
Si la Cellule A9 de la feuille 1 est vide Alors
la cellule A9 de la feuille 1 prend la valeur du Textbox1 du Userform1.
Sheets(1).Range("A8").End(xlDown).Offset(1, 0) = UserForm1.TextBox1.Value
Sinon (Si elle est déjà remplie)
Va me chercher la dernière cellule pleine de cette colonne, vers le bas, en partant de la cellule A8, puis décale toi de une ligne et donne à cette cellule trouvée la valeur du Textbox1 du Userform1.
Offset(1,0) = décalage de 1 ligne, 0 colonne en partant de la cellule sélectionnée.
End(xldown) / xlUp / xlToRight / xlToLeft = Va chercher la dernière cellule pleine vers le Bas / Haut / Droite / Gauche en partant de la cellule active.
Mais attention, si tu as des lignes vides dans ton tableau cette dernière commande va s'arrêter à la dernière cellule pleine juste avant la première cellule vide.
Cad qu'il vaut mieux partir de la fin de ton tableau et remonter pour connaître la vraie dernière cellule pleine de ton tableau.
Donc si tu as ton total en B50, il faudra écrire :
Sheets(1).Range("B50").End(xlUp).Offset(1, 0) Blablabla....
Maintenant, si au début de tes macros, tu fais un Sheets(1).Activate ou Select, tu n'as pas besoin de le rajouter dans :
Range("B50").End(xlUp).Offset(1, 0) Blablabla....
@ +
Moa