Tentative de recopie de code existant qui plante: codage d'évènement sportf

Bonsoir à tous,

Je suis extrêmement intéressé par une programmation excel que j'ai trouvé sur Youtube ici:

Using Excel to code sport

J'ai recopie mot à mot (il me semble) le code, mais quand j'essaie j'ai une erreur: "erreur de compilation variable non définie" sur btnname = Application.Caller

Je ne maitrise pas du tout le VBA, mais je pense pouvoir le comprendre si on m'explique

Et je joins le fichier au cas ou (je n'ai appliqué la macro que sur le bouton Y)

Vous auriez une idée (je suis sur que oui ;) )

Sub TStamp_Name()

Dim starttime As Long
Dim btncapt As String
Dim R As Long
Dim btname As String
Dim Endrow As Long 'si le sport a plus de 1000 evenements alors changer cette valeur

btnname = Application.Caller
btncapt = ActiveSheet.Shapes(btnname).TextFrame.Characters.Text 'This reads the text that is
Endrow = 1000

Sheet1.Select
startime = Range("B2").Value
R = Sheet1.Cells(Endrow, 2).End(xlUp).Offset(1, 0).Row
'trouve le row number ou copier
'Va a la cellule B1000 et remonte a la premiere vite (colonne b = colonne 2)
'si on veut regarder a la colonne D alors le code devrait etre shhet1.cells(endrow, 4).End(xlUp) etc

Cells(R, 2).Select
ActiveCell.Value = Format(Now() - Feuil1.Range("B2").Value, "hh:mm:ss")
'copie la difference entre le clic du bouton et le temps ecoule

Cells(R, 3).Value = btncapt 'nom sur le bouton
Cells(R, 1).Value = Sheet1.Range("B5").Value 'copie la periode dans la colonne 1

Bonsoir,

tu as écrit :

Dim btncapt As String

puis :

btnname = Application.Caller

il y a un n de plus.

Bonsoir Sinedb, JoyeuxNoel,

Et il manque un t aussi.

Cherchez bien... Je reviens dans 5 minutes si vous n'avez pas trouvé.

J'aime bien le jeu des erreurs.

Dim starttime As Long

Et plus loin.

startime = Range("B2").Value

Bonjour à tous,

J'ai recopie mot à mot (il me semble) le code

Un copié-collé est plus sûr.

Tant qu'on y est, à moins d'avoir un excel anglais, Sheet1 ne va pas le faire.
Remplacer par Feuil1
eric

Je reviens dans 5 minutes

tout est question de temps, mais as-tu réussi à partir ?

Vous êtes des bons !!!!

(je peux pas copier / coller j'ai repris sur la vidéo)

Va sans doute y avoir d'autres demandes

La voila la petite question

Elle est de l'ordre du peaufinage, mais la première ligne ne se place pas à la première ligne vide du tableau, mais en dessous. Les suivantes se mettent au bon endroit, pas de problème.

Juste la première ligne qui se place en deuxième.

Je remets le fichier qui fonctionne.

Il faut d'abord appuyer sur start, puis une lettre, puis une action et enfin, un résultat

Bon, je ne vous sollicite pas sur cette question, car j'ai trouvé la réponse

Cela fonctionne si je n'identifie pas la zone comme un tableau.

SI j'en fais un tableau, ca colle la ligne en dessous.

Donc, les données ne se collent pas dans le tableau.

Comment modifier la macro pour que le résultat se mette dans le tableau et non en dessous un dans un tableau ?