Bonjour,
Je me suis amusé vendredi et ce matin avec la fonction enregistreuse de macro, j’ai fait pleins de petites choses, je ne connaissais pas cette fonction auparavant !
Mais l’enregistreur de macro ne m’aide pas à résoudre mon problème.
J’aimerais détecté dans une plage de cellule (A1:A31) les cellules ayant une couleur grise. Cette couleur est donnée par une mise en forme conditionnelle.
Et pour chaque cellule grise, créer une nouvelle feuille de la même couleur et avec le texte de la cellule.
Les cellules grises changent d'endroit en fonction du mois que l'on choisi.
Grace à l’enregistreur de macro, j’ai obtenu un nombre qui correspond à ma couleur de cellule :
.ThemeColor = xlThemeColorDark1
.TintAndShade = -0.349986266670736
J'arrive à créer les nouveaux onglets pour chaque jour du calendrier mais pas à griser les cellules du week-end.
Sub Ajouter_Feuilles()
Dim J As Long
Dim Ws As Worksheet
Application.ScreenUpdating = False
Set Ws = ActiveSheet
For J = 1 To 31
If Not FeuilleExiste(Ws.Range("A" & J).Value) And Len(Ws.Range("A" & J).Value) > 1 Then
Sheets("Rapport").Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = Ws.Range("A" & J)
End If
Next J
Ws.Select
End Sub
'Si l'onglet existe déjà, il n'est pas créé
Function FeuilleExiste(Nom As String) As Boolean
On Error Resume Next
FeuilleExiste = Sheets(Nom).Name <> ""
On Error GoTo 0
End Function
Auriez-vous une idée ?
Merci d'avance
Florian