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