Correction de langage VBA

[Bud.boundy]

Bonjour,

Mon problème est que mon menu déroulant s'ouvre presque dans n'importe quelle case alors qu'il devrait simplement s'ouvrir en colonne D de la ligne 8 à 27 puis de la ligne 70 à 89 (et ainsi de suite) et de la même manière dans la colonne M.

Merci de m'aider

Bonsoir

 

[Pascal76]

Bonjour

C'est normal

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 Intersect(Target, Range("E8:E16, E18:E26, H8:H16, H18:H26")) Is Nothing Then
LST = "Travaux"
Définir (LST)
End If

End Sub

Dans cet evenement en fait tu dis que ta définition de ce liste ne se lance pas uniquement pour les plages "E8:E16, E18:E26, H8:H16, H18:H26"

Donc il faut plutot jouer avec les plages que tu veux

cela donnerait

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 Not Intersect(Target, Range("D8😀27, D70😀89, M8:M27, M70:M89")) Is Nothing Then
LST = "Travaux"
Définir (LST)
End If

End Sub

Je te renvoie ton fichier modifié à toi de le finir

Pascal

 

[Bud.boundy]

bonjour,

merci beaucoup Pascla. très bon travailler. Je vais pouvoir continuer à travailler plus sereinement sur ce projet. Merci pour tout et bonne continuation