M
mouton
Guest
je voudrait qu en cliquant sur une cellule, celle si ce grise et qu'apparaisse dedans une valeur contenue dans une autre cellule.
Ca g réussi a le faire en mixant deux codes que g trouve dans le forum, mais si je reclick sur la cellule, seulement la couleur s'efface pas la valeur.
Comment dois-je faire ? excusez moi je suis novice
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
Ca g réussi a le faire en mixant deux codes que g trouve dans le forum, mais si je reclick sur la cellule, seulement la couleur s'efface pas la valeur.
Comment dois-je faire ? excusez moi je suis novice
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