Même cause, mêmes effets : je voudrais ajouter une 3è macro dans le code de la page (cf sujet : https://forum.excel-pratique.com/excel/detection-auto-de-textes-pour-les-mettre-en-gras-t19972-20.html )
, mais elle commence aussi par
Private Sub Worksheet_Change
Je ne sais pas comment on fait pour "l'agglomérer" au code déjà présent sans déclencher une erreur de type :
Erreur de compilation : Nom ambigu détecté : Worksheet_Change
Voilà le code de la page :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("ad16").Address Then
Recherche (Target.Text)
Exit Sub
End If
Dim Pos1 As Integer
Dim Pos2 As Integer
If Target.Address = Range("C6").Address Then
Recherche (Target.Text)
ElseIf Not Intersect(Range("h9:h" & Range("h65536").End(xlUp).Row), Target) Is Nothing Then
With Cells(Target.Row, 8)
Pos1 = 0
Pos2 = 0
Do
Pos1 = InStr(Pos1 + 1, .Text, "–")
If Pos1 > 0 Then
Pos2 = InStr(Pos1, .Text, ":")
If Pos2 > 0 Then
.Characters(Start:=Pos1 + 2, Length:=Pos2 - (Pos1 + 1)).Font.Underline = xlUnderlineStyleSingle
End If
End If
Loop Until Pos1 = 0
End With
End If
End Sub
Quelqu'un pourrait-il m'aider à faire ça siouplé ?
Merci !!!