Bonsoir,
J'ai avancé dans mon travail. Un dernier effort, et je pense que ça ira bien.
@These , merci pour ton aide. Dis-moi que signifie cette notation Cel.Offset(1).
généralement c'est Cel.Offset(,1) ou Cel.Offset(1,)
Avec le code ci-dessous ça semble fonctionner. Par contre, je ne suis pas parvenu à empêcher le saut de ligne. c-à-d si on est sur la ligne 15, on ne puisse pas insérer une validation et compléter la ligne 17 (dernière ligne+2). Merci pour un coup de pouce.
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("C12:C50"), Target) Is Nothing Then
If Not IsEmpty(Target) Then
Call Test
Target.Resize(, 5).Borders.Weight = xlThin
Else
Call SupprimerValidation
Target.Resize(, 5).Value = ""
Target.Resize(, 5).Borders.LineStyle = xlNone
End If
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Cel As Range
If Not Intersect(Range("C12:C50"), Target) Is Nothing Then
Set Cel = Cells(Target.Row, 3).End(xlUp)
Application.EnableEvents = False
If IsEmpty(ActiveCell) Then
Call InsererValidation
End If
End If
Application.EnableEvents = True
End Sub
Encore merci et bonne soirée à toutes et à tous.