re:
Procédez comme suit :
- Faites un click droite sur l'onglet concerné
- Choisir l'option "Visualiser le code"
- Dans la fenêtre coller le code ci-après
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim plage As Range
Set plage = ActiveSheet.UsedRange
Cells.Interior.Color = xlNone
If Not Intersect(Target, plage) Is Nothing Then
With Target
.EntireRow.Interior.Color = 10079487
.EntireColumn.Interior.Color = 10079487
End With
End If
End Sub
- Enregistrez votre fichier au format XLSM (pour accepter les macros dans votre fichier
Le code tient compte de l'ensemble des cellules dans la plage où vous avez des données
Si vous voulez que le code fonctionne sur toutes les feuilles de votre fichier, on adaptera le code pour n'en avoir qu'un seul qui fonctionne partout
Cordialement