Rebonjour,
Cela ne marche toujours pas mais sans doute à cause de mon incompétence à utiliser votre code : voici l'ancien...
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' Activé au changement de sélection de cellule seulement en colonne 1 et 2 et en dessous de la ligne
Dim LST As String
If ActiveCell.Column = 4 And ActiveCell.Row > 13 Then
LST = "Travaux"
Définir (LST)
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
' Activé au changement de sélection dans la liste déroulante en colonne 2 et en dessous de le ligne 13
If ActiveCell.Column = 2 And ActiveCell.Row > 13 Then Définir (Target)
End Sub
ET VOICI LE CHANGEMENT QUE J'AI ESSAYE D'EFFECTUER:
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' Activé au changement de sélection de cellule seulement en colonne 1 et 2 et en dessous de la ligne 13
Dim LST As String
If ActiveCell.Column = 4 Then
If Intersect(Target, Range("D8
16, D18
26, H8:H16, H18:H26")) Is Nothing Then
LST = "Travaux"
Définir (LST)
End If
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
' Activé au changement de sélection dans la liste déroulante en colonne 2 et en dessous de le ligne 13
If ActiveCell.Column = 4 Then
If Intersect(Target, Range("D8
16, D18
26, H8:H16, H18:H26")) Is Nothing Then
Définir (Target)
End If
End If
End Sub
MERCI POUR VOTRE AIDE
Amicalement,