Double-clic pour transférer le contenu d'une cellule

Salut famille!

J'ai besoin d'aide!!!

Je souhaiterais intégrer une nouvelle fonctionnalité dans un programme que je suis entrain d'élaborer en Excel. je voudrais un code qui me permettrait : de baliser une plage de cellule de sorte qu'en double-cliquant sur l'une de ces cellules, le contenu se copie automatiquement dans une autre cellule déjà prédéfinie.

Merci de m'apporter de l'aide

DESCRIPTION DANS LE FICHIER JOINT

Bonjour ROMY007, le forum,

Un essai....

Cordialement,

xorsankukai a écrit :

Bonjour ROMY007, le forum,

Un essai....

Double-clic-Transfert.xlsm

Capture.JPG

Cordialement,

Vraiment Cooool

ça passe à merveille!!!!

Merci Bien xorsankukai

Bonsoir la famille!!!

une autre demande d'aide SVP

Faire apparaître la date (Now) dans une cellule équivalente après double clic:

Exemple :

double clic sur A1---------------------------------afficher date en B1

double clic sur A2---------------------------------afficher date en B2

double clic sur A3---------------------------------afficher date en B3

double clic sur A4---------------------------------afficher date en B4

... ainsi de suite

Merci d'avance

Bonjour à tous,

Dans le cas présent, je suppose que cela signifie qu'il faut combiner les deux actions ...

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("A10:A50")) Is Nothing Then Exit Sub
  With Target
      If .Value <> "" Then
        Range("D6").Value = .Value
        .Offset(0, 1) = Date
      End If
  End With
  Cancel = True
End Sub

En espèrant que cela t'aide

@ xorsankukai

Attention: Ne pas utiliser ActiveCell dans une macro évènementielle ... mais Target

ET pour éviter de bloquer le curseur en mode Edit ... ne pas oublier Cancel = True

Bonjour ROMY007, James007,

@James007:

@ xorsankukai

Attention: Ne pas utiliser ActiveCell dans une macro évènementielle ... mais Target

ET pour éviter de bloquer le curseur en mode Edit ... ne pas oublier Cancel = True

Un grand merci pour tes précieux conseils et le corrigé du code ,

Amitiés,

Bonjour ROMY007, xorsankukai,

@ xorsankukai

De rien ...

C'est la raison d'être du Forum ...

@ ROMY007

La découverte du double-clic va t'emporter ... vers les plus hauts sommets ...!!!

Salut la Famille!!!!

et encore mille merci ......

j'avance véritablement avec votre soutien.

Pour le dernier code, mieux! J'ai même pu intégrer le changement de couleur des cellules de la plage à double cliquer !!! Target.Interior.Color = 226224255

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

If Intersect(Target, Range("A5:A7000")) Is Nothing Then Exit Sub

With Target

If .Value <> "" Then

Range("M2").Value = .Value

.Offset(0, 65) = Now

Target.Interior.Color = 226224255

End If

End With

Cancel = True

End Sub

Bonjour,

Merci pour tes remerciements ...

Ta macro simplement ajustée ...

Tu te trouves dans un Bloc qui traite Target ... donc pas besoin de le répéter

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("A5:A7000")) Is Nothing Then Exit Sub
    With Target
        If .Value <> "" Then
            Range("M2").Value = .Value
            .Offset(0, 65) = Now
            .Interior.Color = 226224255
        End If
    End With
Cancel = True
End Sub