S
spoky
Guest
Bonjour à tous
voilà, je recherche une solution pour gérer un tableau sous excel 2010. Je doit gérer des couleurs dans des cellules et faire des mise à jours automatiques et régulières.
J'aimerai que les toute les cellules de couleur bleu à gauche du n° de semaine en cours (44 jaune sur l'image) puissent changer en rouge a l'aide du bouton CBMettreAJour
Si quelqu'un a la solution et même peut améliorer ce fichier, merci
Bonne journée à tous
Bernard
Sub CBMettreAJour_Click()
MsgBox "VOUS ALLER METTRE A JOUR LES CONTRÔLES NON RÉALISES A CETTE DATE, voulez-vous vraiment continuer ", vbYesNo + vbExclamation, ""
If vbYes Then
ActiveSheet.Unprotect
Application.ScreenUpdating = False
Dim Cell As Range
For Each Cell In Range("C7:BB36")
If Cell.Value = "p" Then
If Cells(6, Cells.Column).Value < Range("BE1").Value Then
Cell.Value = "FV"
Cell.Interior.ColorIndex = 3
End If
End If
Next
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
If vbNo Then
Application.ScreenUpdating = True
End If
End If
End Sub
voilà, je recherche une solution pour gérer un tableau sous excel 2010. Je doit gérer des couleurs dans des cellules et faire des mise à jours automatiques et régulières.
J'aimerai que les toute les cellules de couleur bleu à gauche du n° de semaine en cours (44 jaune sur l'image) puissent changer en rouge a l'aide du bouton CBMettreAJour
Si quelqu'un a la solution et même peut améliorer ce fichier, merci
Bonne journée à tous
Bernard
Sub CBMettreAJour_Click()
MsgBox "VOUS ALLER METTRE A JOUR LES CONTRÔLES NON RÉALISES A CETTE DATE, voulez-vous vraiment continuer ", vbYesNo + vbExclamation, ""
If vbYes Then
ActiveSheet.Unprotect
Application.ScreenUpdating = False
Dim Cell As Range
For Each Cell In Range("C7:BB36")
If Cell.Value = "p" Then
If Cells(6, Cells.Column).Value < Range("BE1").Value Then
Cell.Value = "FV"
Cell.Interior.ColorIndex = 3
End If
End If
Next
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
If vbNo Then
Application.ScreenUpdating = True
End If
End If
End Sub
Dernière modification par un modérateur:
