bonjour, jai un soucis avec ce code
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rep
If Not Application.Intersect(Target, Range("L18:L41, L44:L71, L74:L92, L95:L128, U18:U41, U44:U71, U74:U92, U95:U128"))
Is Nothing Then
ça me dit erreur de compilation. sachant qu'il me reste encore des colonnes a mettre (AD,AM,AV,BE,BP), est ce que quelqu'un aurai un truc pour limite la longueur de se code.
merci
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rep
If Not Application.Intersect(Target, Range("L18:L41, L44:L71, L74:L92, L95:L128, U18:U41, U44:U71, U74:U92, U95:U128"))
Is Nothing Then
ça me dit erreur de compilation. sachant qu'il me reste encore des colonnes a mettre (AD,AM,AV,BE,BP), est ce que quelqu'un aurai un truc pour limite la longueur de se code.
merci
Dernière édition: