Discussion :

[Laiquendi70]

Hello, je suis débutante en macro et j'aurais besoin d'un petit coup de pouce SVP

J'ai un fichier très simple avec une petite macro horloge :

ligne 1:
cellule A1 : destination
cellule B1 : bouton horloge avec macro, indiquant l'heure et le jour au moment où l'on clique sur le bouton horloge .

la macro suivante fonctionne :

Sub Horloge()
Range("B1") = Format(Now, " dd/mm/yy hh:mm")
End Sub

Mais quand je souhaite ajouter ou insérer une nouvelle ligne en ligne 2 par exemple, je copie-colle le bouton horloge de B1 vers B2 mais je dois à chaque fois modifier la macro pour que le résultat s'affiche en B2, n'y a-t-il pas un moyen simple et automatique à inscrire dans la macro pour que le bouton collé sur une nouvelle ligne s'affiche sur la cellule B de cette nouvelle ligne ?
j'espère être claire...

merci de votre aide

[joe.levrai]

Bonjour,

une proposition à adapter en y indiquant le nom de ton bouton

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub Horloge()
    Cells(Shapes("CommandButton1").TopLeftCell.Row, Shapes("CommandButton1").TopLeftCell.Column) = Format(Now, " dd/mm/yy hh:mm")
End Sub