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

pat66

XLDnaute Impliqué
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

VB:
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
 
Solution
Bonjour le forum

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

VB:
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

pat66

XLDnaute Impliqué
Bonjour le forum

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

VB:
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
 
Dernière édition:

Discussions similaires

Réponses
8
Affichages
448
Réponses
12
Affichages
537