Intersect et copier la cellule d 'a coté

Bonjour ,

J ai vraiment du mal avec la syntaxe vba et intersect ...

Je voudrais que quand je clic dans une cellule cela me copie le texte de la cellule qu il y a gauche , j ai essayé un peu tout :D et je suis totalement perdu loll

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

   Dim rangecellule As Range
   Dim copy As String

   If Not Application.Intersect(Target, Range("D6:K9")) Is Nothing Then
    Cancel = True
    MsgBox "Click on " & Target.Address
    Target.Address = Target.Offset(-1, 0)
    MsgBox "Click on " & Target.Address
    rangecellule = Target.Range.Offset(-1, 0)
    copy = rangecellule.Value
    Target.Value = copy
   End If

End Sub

Si vous avez une idée , je suis preneur :P

Bonsoir Cbirou043, le forum,

Si double-clic dans une cellule située dans la plage D6:K9, on inscrit la valeur de la cellule de gauche ?

Un essai....

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   If Not Application.Intersect(Target, Range("D6:K9")) Is Nothing Then
    Cancel = True
    Target.Value = Target.Offset(0, -1).Value
   End If
End Sub

Cordialement,

Re !!

Punaise c'est rageant lollll , c'est tellement simple quand je vois le code ....

Merci beaucoup pour ton aide !!!

Re,

Merci pour le retour,

Ne te décourage pas, avec la pratique tu vas y arriver.

Penses également à regarder les cours du site,

https://www.excel-pratique.com/fr/vba

https://forum.excel-pratique.com/astuces/vba-utilisation-de-la-methode-intersect-1314

Bonne soirée et bonne continuation.