Copie de cellule

Bonsoir,

Dans Excel 2007, est-il possible de copier une cellule en cliquant dessus (1clic) ?

Merci

bonjour

Clic droit / Copier peut être ??

A plus sur le forum

Merci du passage,

je souhaiterai un clic gauche, car en cliquant sur la cellule, je voudrai qu'au clic, la valeur soit copier dans une autre cellule.

ça évite le copié/collé.

re

comme ça ?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A1")) Is Nothing Then
Range("A3").Value = Range("A1").Value
End If
End Sub

test par un double clic en A1

A plus sur le forum

Merci pour ton aide.

Effectivement, je copie A1 en A3. Puis-je remplacer Toto par un nombre ?

Est-ce que je peux affecter cette Macro à d'autres cellules ? A2, A3 etc...

Est-il possible d'additionner les valeurs si la destination de A2, A3 est A1 ?

Merci

Re GVQ

(G aussi pas mal VQ )

oui c possible

tu modifie le code et puis voila

ex a tester en A1 C2 E1

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
' test clic-clic en A1
If Not Intersect(Target, Range("A1")) Is Nothing Then
    ' si oui la valeur de A3 est = a la valeur de A1
    Range("A3").Value = Range("A1").Value
End If
' test clic-clic en C2
If Not Intersect(Target, Range("C2")) Is Nothing Then
    ' si oui la valeur de D7 est = a la valeur de C2
    Range("D7").Value = Range("C2").Value
End If
' test clic-clic en E1
If Not Intersect(Target, Range("E1")) Is Nothing Then
    ' si oui la valeur de B4 est = a la valeur de E1 + la valeur de C2
    Range("B4").Value = Range("E1").Value + Range("C2").Value
End If
End Sub

A plus sur le forum

Merci Papyg,

Je constate que j'ai encore beaucoup à apprendre !........

Bonjour

l'important est de ne pas se décourager

il y a d’excellents tutos sur le net regarde cours VBA et VBA AVANCE de ce site

puis il y a les forums

A plus sur le forum