Presse papier

[frawid]

Bonjour, en passant par

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActivLigne = 0 Then ActivLigne = ActiveCell.Row
Cells(ActivLigne, 3).Interior.Color = RGB(255, 255, 255): Cells(ActivLigne, 35).Interior.Color = RGB(255, 255, 255)
Cells(ActiveCell.Row, 3).Interior.Color = RGB(0, 255, 0): Cells(ActiveCell.Row, 35).Interior.Color = RGB(0, 255, 0)
ActivLigne = ActiveCell.Row
End Sub
je ne peu plus copier/coller avec Ctrl-V et plus avec la souris clic droit. Avec le presse papier ouvert celà fonctionne, donc il l'enregistre mais ne me le redonne pas automatiquement.
Merci de votre aide
Francis

[Staple1600]

Bonsoir


Je ne comprends pas cette ligne dans ton code initial.
If ActivLigne = 0 Then ActivLigne = ActiveCell.Row
pourquoi ne pas employer
ActivLigne=ActiveCell.Row
ou
ActivLigne=Target.Row

'Il n'y pas de ligne 0 donc ActivLigne ne peut égaler 0, non ?

edit: nouvelle mouture
Si j'ai bien compris ton code, je le simplifierai ainsi,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Rows.Count > 1 And Target.Columns.Count > 1 Then Exit Sub
Target.Interior.Color = _
IIf(Target.Row = 0, RGB(255, 255, 255), RGB(0, 255, 0))
Cells(Target.Row, 35).Interior.Color = IIf(Target.Row = 0, RGB(255, 255, 255), RGB(0, 255, 0))
End Sub