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
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
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 WithMsgBox "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