Selection d'adresses de cellules dans liste d'une feuille vers position réelle

papapaul à dit:

Bonjour à tous, me revoila avec mon souci,
J'ai mis ca Application.WorksheetFunction.Substitute
a la place de Replace et pourtant .....😡
La je suis au boulot et malgré mes multiples essais en tout genre
avec 97 mon truc bug toujours sur cette ligne
alors qu'autrement, ca marche parfaitement bien.
If Left(Target.Value, 1) = "$" Then
pareil avec la méthode de bqtr.
En désespoir de cause, je le joins une dernière fois
en espérant un sauveur, sinon je laisserais tomber.😱
Au cas ou, milles mercis, et vive XLD

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Sh.Name = "Liste" Then
Target.Interior.ColorIndex = 33
If Left(Target.Value, 1) = "$" Then
Selection.Interior.ColorIndex = 33
Else
If Target <> Range("A1") Then
Target.Interior.ColorIndex = xlNone
MsgBox "Vous devez cliquer une adresse ! ", , "Pour mettre un doublon en couleur dans la feuille d'origine."
End If
End If
End If
Dim cell As Range, Refcel, Plg, UnionPlg
If Target = Range("A1") Then
Target.Interior.ColorIndex = xlNone
For Each cell In Range("A1").CurrentRegion
If cell.Interior.ColorIndex = 33 Then
Refcel = Application.WorksheetFunction.Substitute(cell, "$", "")
Plg = (Plg & Refcel & ",")
End If
Next
UnionPlg = Left(Plg, Len(Plg) - 1)
On Error Resume Next
Sheets(Range("A1").Value).Range(UnionPlg).Interior.ColorIndex = 33
Sheets(Range("A1").Value).Activate
End If
Application.EnableEvents = True ' Remise en place de l'intercepteur d'évènement

Cliquez pour agrandir...

papapaul à dit:

Bonjour le forum, j'ai tout essayé,😱
Je suis au boulot avec xl97,
J'ai testé toute la journée hier les idées de Gorfael
J'ai mis les Dim en début de code
J'ai essayé de mettre Refcel en String ou Variant
Mettre un point d'arrêt avec test_txt=target.value
Mettre Set devant Refcel etc.....
mais rien y fait😡
Quand je clique A1 pour aller sur la feuille de ce nom
et mettre la couleur
Ca plante tjs sur la ligne
If Left(Target.Value,1) = "$" Then
si en plus j'insiste, ca plante carrément tout excel.
alors qu'ailleurs (pas 97) tout fonctionne.
J'y comprends vraiment rien.
Ca fait comme si ca allait bien jusqu'a la fin de la procédure avec
Sheets(Range("A1").Value).Activate et qu'a ce moment au lieu
de rester sur cette feuille et mettre la couleur, ca revient dans la boucle.
Dans mon esprit, comme je lui demande de changer de feuille,
il applique à nouveau SheetSelectionChange.
Ca le fait pas chez moi(2000), pourquoi ca le fait avec 97 ?
Si quelqu'un a un peu de temps pour regarder le problème
ce serait hyper sympa.
Plus je creuse la question, plus je coule.
Bonne journée à tous

Cliquez pour agrandir...

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
.........................................
ton code
.........................................
End sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
On Error GoTo Err_Workbook_SheetSelectionChange
Application.ScreenUpdating = False
Application.EnableEvents = False
.........................................
ton code
.........................................
Sort_Workbook_SheetSelectionChange:
    Application.ScreenUpdating = True
    Application.EnableEvents = True
    Exit Sub
Err_Workbook_SheetSelectionChange:
    MsgBox (Err.Number & " - " & Err.Description)
    Resume Sort_Workbook_SheetSelectionChange
End Sub

Sub Lance()
    Application.ScreenUpdating = True
    Application.EnableEvents = True
end sub