Macro événementielle

Bonjour,

J’aurais désiré qu’en cliquant ou en double-cliquant sur l'une des cellules A10, A11 ou A12, le contenu de la cellule choisie soit reporté en A1. Si cela est possible, pouvez-vous m'indiquer comment ?

Bonne journée.

Bonjour,

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A10:A12")) Is Nothing Then: Range("A1") = Target
End Sub

tu copies ce code

tu cliques droit sur l'onglet de la feuille

visualiser le code

coller le code

Quel truc de fou ! Je viens d'essayer, juste pour le plaisir parce que ça me semblait surréaliste...

Tu confirmes bien que pour valider la formule dans VisualBasic, il suffit de cliquer sur la croix en haut à droite ?

Super, merci beaucoup pour ton aide, Michel

Est-ce qu'un tel événement peut-être généré lorsque l'on sélectionne simplement l'une de ces cellules, au lieu d'y double-cliquer ?

A te relire

Edit : Je n'ai pas compris ton intervention, Thiebault !!??

Bonjour à tous,

La même chose en sélectionnant

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("a10:a12")) Is Nothing Then
        If Target.Count > 1 Then Exit Sub
        Range("a1") = Target
    End If
End Sub

Bonne journée

Claude

Merci à toi aussi Claude,

Je pourrais ainsi choisir entre ces deux solutions, suivant les cas.

Bonne journée à vous tous.