XL 2019 supprimer la couleur d'une cellule dès que je clique dans une autre cellule

[pat66]

Bonjour le forum,

je souhaiterai supprimer la couleur d'une cellule de la colonne C dès que je clique sur une autre cellule de la feuille, est ce possible ?
voici la macro concernée dont je me sers fabriquée par Youky que je remercie encore

merci d'avance

Sub trouve()
Application.ScreenUpdating = False

  For i = 6 To 17     ' To Sheets.Count
    With Sheets(i)
      .Unprotect Password:="jojo"
    End With
  Next
'mot = Selection.Value
nom = InputBox("Saisir le n° dossier pour compléter ou modifier les renseignements du prospect ? ", "Pro Eco Habitat  ")
If nom = "" Then Exit Sub
For k = 6 To 17   'Sheets.Count  '  = toutes les feuilles
With Sheets(k).[A1:Z1000]
Set c = .Find(nom, LookIn:=xlValues)
If Not c Is Nothing Then
'firstAddress = c.Address
Do
Sheets(k).Select
c.Activate
c.Interior.ColorIndex = 6

rep = MsgBox("Continuer la recherche ?", 4 + 32, "Sélection")
If rep = vbNo Then Exit Sub
Set c = .FindNext(c)
Loop While Not c Is Nothing 'And c.Address <> firstAddress
End If
End With

Next
MsgBox "Recherche terminée!"
For i = 6 To 17 ' To Sheets.Count
With Sheets(i)
.Protect Password:="jojo"
End With
Next
Application.ScreenUpdating = True

End Sub

 

[kingfadhel]

Bonsoir le fil,
Un classeur sera le bienvenu.

 

[pat66]

Bonjour le forum

un grand merci à youky qui aussi résolu le problème, voir :

XL 2019 - recherche une valeur sur plusieurs feuilles protégées et affiche la cellule qui contient la valeur

Bonjour le forum, est t'il possible grâce par exemple à un userform, un combobox, un inputbox ou autre, de rechercher une valeur dans plusieurs feuilles et de faire en sorte que la feuille où se trouve la valeur s'affiche et que la cellule contenant la valeur soit sélectionnée exemple, je...

www.excel-downloads.com

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Sh.Index > 6 And Sh.Index < 18 Then
Range("C5:C1000").Interior.Color = xlNone
End If
End Sub

Pat66