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
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