Generation automatique d'onglets
Bonjour,
Voila mon problème. J'ai un fichier que mes collaborateurs utilisent pour se transmettre les infirmations d'une équipe à l'autre.
Jusqu'à maintenant, ça ne posait pas problème, mais depuis un certains temps, ils me remontent qu'ils aimerait que ça suivent leur planning.
A ce jour ma macro fait ça:
Sub Resume_Onglet()
NBRE_ONGLET = ActiveWorkbook.Sheets.Count
LIGNE_DEB_TAB_ONGLET = 7
LIGNE_DEB_TAB_RESUME = 4
NBRE_OCCURENCE = 0
Sheets.Add before:=Worksheets(1)
Sheets(1).Name = "RESUMÉ"
Worksheets(1).Cells(3, 2).Value = "DATE"
Worksheets(1).Cells(3, 3).Value = "Nbre de Point(s)"
'For ONGLET = (NBRE_ONGLET) To 2 Step -1
For ONGLET = 2 To (NBRE_ONGLET)
Worksheets(1).Cells(LIGNE_DEB_TAB_RESUME, 2).Value = Sheets(ONGLET).Name
RECHERCHE_LIGNE = LIGNE_DEB_TAB_ONGLET
While Not Worksheets(ONGLET).Cells(RECHERCHE_LIGNE, 1).Value = ""
CONTENU_LIGNE = Worksheets(ONGLET).Cells(RECHERCHE_LIGNE, 1).Value
TEST_CONTENU = Split(CONTENU_LIGNE, "h")
If Not TEST_CONTENU(0) = "xx" Then
NBRE_OCCURENCE = NBRE_OCCURENCE + 1
End If
RECHERCHE_LIGNE = RECHERCHE_LIGNE + 1
Wend
Worksheets(1).Cells(LIGNE_DEB_TAB_RESUME, 3).Value = NBRE_OCCURENCE
LIGNE_DEB_TAB_RESUME = LIGNE_DEB_TAB_RESUME + 1
NBRE_OCCURENCE = 0
Next
Worksheets(2).Select
End Sub
Ce qui chaque jour à minuit, me génère un onglet du jour.
Aujourd'hui, il faudrait qu'un onglet soit ouvert à chaque ouverture de fichier en fonction des heures.
Un onglet pour la tranche 14h30-22h30, un onglet pour le tranche 22h30-6h30 et le week end, le samedi et le dimanche, un onglet 06h30-18h30, et 18h30-06h30.
Seulement la je suis un peu perdu, une idée pour adapter ça de cette façon?
Merci de votre aide par avance.
Pensez vous au moins que cela soit possible?
Bonjour,
Hum !
La procédure que tu as copiée dans ton message n'effectue pas le traitement indiqué.
Celle qui t'intéresse se trouve dans le module ThisWorkBook (Workbook_Open).
Voici une proposition à tester :
A+
Je test ça tout de suite, merci beaucoup.
Après test, c'est parfait
Est-ce compliqué pour le lundi uniquement de générer un onglet supplémentaire 06h30-14h30 ?
Merci mille fois en tout cas frangy
Tout est impec, testé et approuvé, j'ai modifié l'ordre de création des onglets et tout.
Merci encore.
C'est toujours un plaisir d'avoir pu rendre service