Bonjour Staple 1600.Bonjour le fil, domburg
=>domburg
Qu'entends-tu par la dernière ligne d'une cellule?
Son bord inférieur?
Ou tu parles de la dernière cellule non vide d'une colonne?
Re,Re,
Salut Staple1600
Alors là, tu parles d'une colonne et non pas une cellule, car une colonne se compose de milliers de cellules.
Cordialement
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Derlign As Integer
Derlign = Range("A65536").End(xlUp).Row
Range("A1:A" & Derlign).Interior.ColorIndex = xlNone
Range("A65536").End(xlUp).Interior.ColorIndex = 6
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Deb As Integer, Fin As Integer
If Not Intersect(Target, Range("A:A")) Is Nothing And InStr(Target, Chr(10)) > 0 Then
Target.Font.Underline = xlUnderlineStyleNone
Deb = InStrRev(Target, Chr(10)) + 1
Fin = Len(Target) - Deb + 1
Target.Characters(Start:=Deb, Length:=Fin).Font.Underline = xlUnderlineStyleSingle
End If
End Sub