Re : Soulignage d'une ligne
J'ai trouvé pourquoi cela ne fonctionne pas...
La raison est que la macro se sert d'un champs texte pour souligner les cellules, avec une "épaisseur de 1" (en rouge).Comme ce champs se trouve juste sur la ligne inférieur des cellules, je ne peux pas selectionner l'angle, puisque le champs est sur la limite.
Il suffirai de décaler le champ un peu vers le bas et tout devrait aller.
Mais je ne sais pas faire...
Un petit coup de pouce, merci
Roger
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set champ = [A1:z100]
If Not Intersect(champ, Target) Is Nothing Then
On Error Resume Next
Shapes("curseur").Visible = True
If Err <> 0 Then
ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 1, 1, 1000, 1).Name = "curseur"
End If
ActiveSheet.Shapes("curseur").Line.ForeColor.RGB = RGB(0, 0, 255)
Shapes("curseur").Top = ActiveCell.Top + ActiveCell.Height
Shapes("curseur").Height = 1
Shapes("curseur").Width = champ.Width
Else
On Error Resume Next
Shapes("curseur").Visible = False
End If
End Sub