Cellule Active Limiter plage concernée
Résolu
Viking58
Messages postés
186
Date d'inscription
Statut
Membre
Dernière intervention
-
Viking58 Messages postés 186 Date d'inscription Statut Membre Dernière intervention -
Viking58 Messages postés 186 Date d'inscription Statut Membre Dernière intervention -
Bonjour.
J'ai ce code qui met en surbrillance la cellule active, sélectionnée:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Application.Intersect(Target, Range("A1")) Is Nothing Then 'Plage'
Application.ScreenUpdating = False
' Clear the color of all the cells
Cells.Interior.ColorIndex = 0
' Highlight the active cell
Target.Interior.ColorIndex = 35
Range("A1:G2").Interior.Color = 13434828 'Met la plage donnée à la couleur de: adapter la couleur avec Code Microsoft...'
Application.ScreenUpdating = True
End If
End Sub
Il fonctionne très bien, mais je n'arrive pas à limiter son action à la plage A3:G3000
Quel est la modif pour appliquer cette limitation ?
Merci
Windows 8.1 Office 2013
J'ai ce code qui met en surbrillance la cellule active, sélectionnée:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Application.Intersect(Target, Range("A1")) Is Nothing Then 'Plage'
Application.ScreenUpdating = False
' Clear the color of all the cells
Cells.Interior.ColorIndex = 0
' Highlight the active cell
Target.Interior.ColorIndex = 35
Range("A1:G2").Interior.Color = 13434828 'Met la plage donnée à la couleur de: adapter la couleur avec Code Microsoft...'
Application.ScreenUpdating = True
End If
End Sub
Il fonctionne très bien, mais je n'arrive pas à limiter son action à la plage A3:G3000
Quel est la modif pour appliquer cette limitation ?
Merci
Windows 8.1 Office 2013
A voir également:
- Cellule Active Limiter plage concernée
- Excel cellule couleur si condition texte - Guide
- Proteger cellule excel - Guide
- Active partition disk - Télécharger - Stockage
- Aller à la ligne dans une cellule excel - Guide
- Pass telecommande active - Forum Téléviseurs
