Modification code VBA Résolu/Fermé

Question

Bonjour, 

Voici mon code actuel qui me permet, au simple clic d'une cellule, de lui faire prendre la valeur 1 et la couleur rouge.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("F9:M28")) Is Nothing Then
    Select Case Target
        Case Is = 0:  Target.Value = 1: Target.Interior.ColorIndex = 3
        Case Is = 1: Target.ClearContents: Target.Interior.ColorIndex = 0
    End Select
End If
End Sub

Ce code fonctionne pour les cellule de la plage F9:M28 et j'aimerais le modifier pour affecter les plages F11:H30 et M11:P30

Merci de votre aide :)

Mike-31 · Answer

Bonjour,

comme cela

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Union([F9:M28], [F11:H30], [M11:P30])) Is Nothing Then
Select Case Target
Case Is = 0: Target.Value = 1: Target.Interior.ColorIndex = 3
Case Is = 1: Target.ClearContents: Target.Interior.ColorIndex = 0
End Select
End If
End Sub

Mike-31 · Answer

Re,

perso j'ajouterais une gestion d'erreur et éviterais de superposer les plages

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Union([F9:M28], [F29:H30], [M29:M30], [N11:P30])) Is Nothing Then
Select Case Target
Case Is = 0: Target.Value = 1: Target.Interior.ColorIndex = 3
Case Is = 1: Target.ClearContents: Target.Interior.ColorIndex = xlNone
End Select
End If
End Sub 
 
A+
Mike-31

Pas savoir n'est pas un échec, l'échec est le refus d'apprendre.

Mike-31 · Answer

Re,

en début de code ajoute cette gestion d'erreur pour éviter le plantage du code dans le cas de sélection accidentelle de deux cellules par exemple etc 

On Error Resume Next  
A+
Mike-31

Pas savoir n'est pas un échec, l'échec est le refus d'apprendre.

Modification code VBA

3 réponses

Discussions similaires