click sur une cellule

[mouton]

Bonjour tout le monde
je suis novice dans excel c'est pourquoi je m adresse a vous les experts ;-)

j'ai un petit probleme pour vous :

je souhaite cliquer sur une cellule (exemple A1) et que dans une autre cellule (A2) vienne s afficher une valeur contenue dans une 3e cellule (A3)

j espere que j'ai ete assez clair dans mes explications


merci

 

[PhiBou]

Bonjour Mouton, le Forum

Dans WorkSheet feuille concernée

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = '$A$1' Then
Range('A2') = Range('A3')
End If
End Sub

Bonne fin de journée

PhiBou

 

[mouton]

merci beaucoup PhiBou

 

[mouton]

merci beaucoup PhiBou

 

[mouton]

encore un petit complement
si je veux en plus griser ma cellule et la degriser en double cliquant dessus?

j ai essaye de mixer deux codes mais seulement la couleur disparait si je reclick dessus.

Comment dois-je faire ?


merci

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range('A1')) Is Nothing Then
With Target
If Selection.Interior.ColorIndex = 48 Then
Selection.Interior.ColorIndex = xlNone
Else
Selection.Interior.ColorIndex = 48
End If
End With
End If
If Target.Address = '$A$1' Then
Range('A1') = Range('B1')
End If
End Sub