Microsoft 365 Ajouter des onglets selon une cellule et une trame

Kstanisic · 23 Mars 2022

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.

VB:

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

Merci d'avance de votre aide !!

Phil69970 · 23 Mars 2022

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

natorp · 23 Mars 2022

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 · 23 Mars 2022

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 · 23 Mars 2022

Bonjour @kstansic, Gérard

Kstanisic à dit:
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 · 23 Mars 2022

Phil69970 à dit:
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 · 23 Mars 2022

Bonjour,
Que n'ai-je pas compris ?

VB:

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 · 23 Mars 2022

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 · 23 Mars 2022

Phil69970 à dit:
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

Microsoft 365 Ajouter des onglets selon une cellule et une trame

Kstanisic

XLDnaute Nouveau

Pièces jointes

Phil69970

natorp

XLDnaute Accro

Kstanisic

XLDnaute Nouveau

Phil69970

XLDnaute Barbatruc

Kstanisic

XLDnaute Nouveau

st007

XLDnaute Barbatruc

Pièces jointes

Phil69970

XLDnaute Barbatruc

Pièces jointes

Kstanisic

XLDnaute Nouveau

Discussions similaires