Récupérer plusieurs valeurs en VBA

[criscris11]

Bonsoir le forum,
J'utilise ce code pour récupérer la valeur de la colonne A quand je fais un double clic dans la colonne D. Je voudrais récupérer à la place la valeur de la colonne D : je pense que Target.Offset(0,-3) se transforme en Target.Offset(0,0) mais j'aimerais aussi récupérer la valeur de la colonne E avec un espace entre les deux valeurs comme un simple CONCATENER.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Not Intersect(Target, Range("D3:D150")) Is Nothing Then
    Sheets("Fiche décompte PERMS").Range("E2").Value = Target.Offset(0, -3).Value
    Application.GoTo Sheets("Fiche décompte PERMS").Range("E2")
End If
Cancel = False
End Sub

Merci pour vos idées lumineuses et bonne soirée à tous.

 

[Eric 45]

Re : Récupérer plusieurs valeurs en VBA

Bonsoir à tous
Bonsoir criscris11

As tu essayé :

Sheets("Fiche décompte PERMS").Range("E2").Value = Target.Offset(0, 0).Value & " " & Target.Offset(0, 1).Value

Je n'ai pas testé et si j'ai bien compris

Eric

 

[kjin]

Re : Récupérer plusieurs valeurs en VBA

Bonsoir,

... Target.Offset(0,-3) se transforme en Target.Offset(0,0)...

😕 Target tout court sans doute

...mais j'aimerais aussi récupérer la valeur de la colonne E...

oui mais y en a 65536 !
Donc à priori

Target & " " & ta cellule

A+
kjin

 

[criscris11]

Re : Récupérer plusieurs valeurs en VBA

Re, salut Eric,
Au vu de ta modification, çà a tout l'air d'être çà en tous les cas tu as bien compris. Je teste et je te tiens au courant.
Merci et bonne soirée.

Bonsoir Kjin : je viens de voir ta réponse. Je posterai pour te dire ce qu'il en est avec ta solution également.

 

[criscris11]

Re : Récupérer plusieurs valeurs en VBA

Re,
@Eric: c'est tout bon, tu as vu juste et j'obtiens bien le résultat voulu : merci.
@Kjin : c'est bon également comme ceci Target & " " & Target.Offset(0,1)
merci également.
Bonne soirée à tous les deux et à tous.