Microsoft 365 Ajouter des onglets selon une cellule et une trame

[Kstanisic]

Bonjour à tous,

Je suis débutante dans la programme VBA et je rame pour faire le programme suivant :
J'aimerais qu'à partir d'un bouton je puisse ajouter des onglets à mon classeur selon les critères suivant :

- J'aimerais que le bouton ajoute une feuille pour chaque date de la semaine prochaine dans mon tableau
- Que les nouvelles feuilles soient identiques à la feuille "TRAME" de mon classeur.

Pour le moment j'ai réussi à ajouter un bouton qui ajoute une feuille selon la TRAME mais elle ne prends pas en compte le critère de date.

Private Sub CommandButton1001_Click()
 Sheets("TRAME").Copy After:=Sheets("TRAME")
End Sub

Merci d'avance de votre aide !!

 

[natorp]

Bjr Kstanisic

pas très bien compris le besoin :
Vous voulez un bouton qui copie autant de fois la feuille "TRAME" qu'il y a de dates à J-7 dans la colonne B du tableau par rapport à la date du jour ?

Cordialement, Gérard

 

[Kstanisic]

Bonjour Gérard,

C'est exactement mon besoin. J'aimerais qu'il est autant de feuille créer pour J+7 date de ma colonne sachant que je peux avoir plusieurs fois la même date.

Cordialement, Kristina

 

[Phil69970]

Bonjour @kstansic, Gérard

Que les nouvelles feuilles soient identiques à la feuille "TRAME" de mon classeur.

Si je comprends ton besoin tu veux une feuille identique à la feuille "Trame" mais la feuille "Trame" est vide donc tu veux une feuille vierge !!!!

*Merci de ton retour

@Phil69970

 

[Kstanisic]

Bonjour @kstansic, Gérard


Si je comprends ton besoin tu veux une feuille identique à la feuille "Trame" mais la feuille "Trame" est vide donc tu veux une feuille vierge !!!!

*Merci de ton retour

@Phil69970

Non la feuille trame est censé être rempli, c'est une trame d'intervention. Par soucis de confidentialité je ne l'ai pas mise ...

 

[st007]

Bonjour,
Que n'ai-je pas compris ?

Sub test()
For i = 2 To Range("b" & Rows.Count).End(xlUp).Row
    If Cells(i + 1, 2) <> Cells(i, 2) Then
    n = CDate(Cells(i, 2))
    Sheets("TRAME").Copy after:=Sheets(Sheets.Count)
    ActiveSheet.Name = "TRAME " & Format(n, "dd-mm-yy")
    Sheets("Tableau").Activate
    End If
Next i
End Sub

 

[Phil69970]

Re

Ma proposition :
je lis entre les lignes mais là je fais dans le subliminal
Ce code crée x nouvelle feuille et la renomme comme la colonne A si la date est entre date du jour et Date +7

*Merci de ton retour

@Phil69970

 

[Kstanisic]

Re

Ma proposition :
je lis entre les lignes mais là je fais dans le subliminal
Ce code crée x nouvelle feuille et la renomme comme la colonne A si la date est entre date du jour et Date +7

*Merci de ton retour

@Phil69970

C'est exactement ce qui me fallait merci beaucoup !

Merci pour les indications aussi
Bonne journée à vous