Copie de cellule

Question

Voila j'ai deux tableaux pour gérer des inscription à des épreuves cycliste avec trois lignes dans le premier : 1 ate de l'épreuve en F1 2 Lieu de l'épreuve en F2 3 Organisateur en F3. Dans le deuxième tableau liste des courses 3 colonnes : 1 de B2 à B60 date de chaque course 2 de C2 à C60 lieu de chaque course 3 de D2 à D60 l'Organisateur. je voudrais quand je clique sur une date, par exemple en B16, qu'elle se copie en F1. Pareil pour les lieux en F2 et les organisateurs en F3. J'ai essayé comme cela pour la date : " Option Explicit End Sub " mais cela ne fonctionne pas. Si quelqu'un peut m'aider. Merci d'avance...

ThauThème · Answer

Il te manque l'action dans ta macro événementielle !... Ce que je te propose c'est l'événement Double-Clic plutôt que Change qui peut être déclencher par inadvertance avec le clavier. À mettre dans l'onglet LISTE_DES_COURSES : Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim O As Worksheet 'déclare la variable O (Onglet) 'déclares les variables PLD (PLage des Dates), PLL (PLage de s Lieux) et PLL (PLage des Organisateurs) Dim PLD As Range, PLL As Range, PLO As Range Set O = Worksheets("LISTE_DES_COURSES") 'définit l'onglet O (à adapter à ton cas) Set PLD = O.Range("B2:B60") 'définit la plage PLD Set PLL = PLD.Offset(0, 1) 'définit la plage PLL Set PLO = PLL.Offset(0, 1) 'définit la plage PLO If Not Application.Intersect(Target, PLD) Is Nothing Then Cancel = True 'empêche le mode édition lié au double-clic Sheets("Inscription UFOLEP").Range("F1").Value = Target.Value 'renvoie la date End If If Not Application.Intersect(Target, PLL) Is Nothing Then Cancel = True 'empêche le mode édition lié au double-clic Sheets("Inscription UFOLEP").Range("F2").Value = Target.Value 'renvoie le lieu End If If Not Application.Intersect(Target, PLO) Is Nothing Then Cancel = True 'empêche le mode édition lié au double-clic Sheets("Inscription UFOLEP").Range("F3").Value = Target.Value 'renvoie l'organisateur End If End Sub...