Startus
XLDnaute Occasionnel
Bonjour à tous
En complément de la mise en forme conditionnelle, limitée à 3 critères j'utilise ce code, malheureusement pas tout à fait au point...
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim c As Range
For Each c In Range('V_Scol.')
If c = 1 Then
c.Interior.ColorIndex = 5
Else
c.Interior.ColorIndex = 2
End If
Next
End Sub
Une 'Erreur d'exécution 13' apparait ?
Et aucune modification ne se fait lorsque je change d'année...?
Pouvez-vous m'aider ?
Merci...
Ci-joint le fichier [file name=Copie_Calendrier_20051018224505.zip size=36809]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Copie_Calendrier_20051018224505.zip[/file]
En complément de la mise en forme conditionnelle, limitée à 3 critères j'utilise ce code, malheureusement pas tout à fait au point...
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim c As Range
For Each c In Range('V_Scol.')
If c = 1 Then
c.Interior.ColorIndex = 5
Else
c.Interior.ColorIndex = 2
End If
Next
End Sub
Une 'Erreur d'exécution 13' apparait ?
Et aucune modification ne se fait lorsque je change d'année...?
Pouvez-vous m'aider ?
Merci...
Ci-joint le fichier [file name=Copie_Calendrier_20051018224505.zip size=36809]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Copie_Calendrier_20051018224505.zip[/file]