Re : Recherche et modification de couleur
Voici le code que j'ai réussi a obtenir seulement je passe par un tcd pour avoir les données décrite dans les classeurs.
Mon code ne me donne cependant pas les couleur dans le fichier planning?
Pouvez-vous m'aider?
Sub visa()
Workbooks.Open Filename:="H:\GESTION DE PRODUCTION\Planning.xlsm", UpdateLinks:=0
Workbooks.Open Filename:="H:\GESTION DE PRODUCTION\Analyse\Analyse du système.xlsm", UpdateLinks:=0
Sheets("Retard").Select
Range("a2").Select
x = ActiveCell.Select
For n = 1 To 30
If x <> "" Then
x = ActiveCell.Select
Windows("Planning.xlsm").Activate
For Each s In ActiveWorkbook.Sheets
With Sheets(s.Name).Cells
Set c = .Find(x, LookIn:=xlValues)
If Not c Is Nothing Then
premier = c.Address
Do
c.Interior.ColorIndex = 3
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> premier
End If
End With
Next s
Else: ActiveCell.Offset(1, 0).Select
End If
Next n
ActiveWorkbook.Save
ActiveWindow.Close
Windows("Analyse du système.xlsm").Activate
ActiveWorkbook.Save
ActiveWindow.Close
ThisWorkbook.Close savechanges:=False
Application.Quit
End Sub
Merci beaucoup