Discussion :

[toutletoutim]

Bonjour je details un peu c'est necessaire
J'ai des dates inscrites dans un onglet "date_section" de b2 a b(x) x etant variable ) de 10 a 20

A partir de ces dates j'ai cree via une macro le nombre d'onglet correspondant au nombre de date

J'ai besoin maintenant de copier chaque date dans un onglet (une date un onglet) dans une cellule disons a3

Et au passage de lancer une macro(deja cree) dans chaque onglet (pour info qui donne a l'onglet le nom de la date)

Merci pour votre aide

[sabzzz]

bonjour toutletoutim,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub Macro1()
For Each c In Range("B2:B" & Range("B65536").End(xlUp).Row)
Sheets.Add After:=Sheets(Sheets.Count)
Range("A3") = c
Call MaMacro
Next
End Sub

[toutletoutim]

Bonjour Isabelle

Merci pour ton aide encore une fois

J'ai du me tromper lorsque j'ai formuler ma demande mais je vais essayer dêtre plus clair

en gros onglets sont dejà créés je ne souhaite pas en créé d'autres

mes onglets vont de sheets(6) à sheets(X) (X etant le nombre de date)

je veux maintenant coller dans ces onglets la première date dans l'onglet qui correspond à sheets(6) la seconde date dans l'onglet suivant .....

J'espère être plus clair

J'ai mis un Zip avec mon fichier

Je veux copier les date se situant dans l'onglet"date_section" vers les onglets nommés de 1 à x (X correspondant au nombre de date) et lancer la macro majnomonlgetdate

Yoann

[sabzzz]

bonjour Yoann,

je ne suis pas certaine d'avoir bien compris, mais il faudra modifier le 1 de Sheets(1) par le nom de la feuille contenant les dates.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
For i = 6 To Range("B65536").End(xlUp).Row
Sheets(i).Range("A3") = Sheets(1).Range("B" & i - 4)
Call MaMacro
Next

[toutletoutim]

Désolé de ne pas être assez clair

voilà la macro qui me permet de créer des copies de l'onglet "origine" en fonction du nombre de date qui se trouve dans "date_section"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub Copieongletorigine()
'determine le nombre de copie de l'onglet "origine" et créé le nombre d'onglet
'ce nombre est determiné par rapports aux dates rentrés dans l'onglet "dates_section"
 
Dim i, z
z = Worksheets("Date_section").Cells(22, 2)
 
For i = 1 To z
    Sheets("Origine").Copy After:=Sheets(i)
    ActiveSheet.Name = i
Next i
 
End Sub

L'idée est la suivante :

soit je reprends les onglets créés avec cette macro et je copie les dates qui se trouve dans "date_section" (voir image jointe)

soit dans le code initiale je colle au fure et a mesure les dates

je me suis trompé de plus il faut les coller dans F1 et non A3 mais ça c'est rien


Merci de ton aide

[sabzzz]

bonjour Yoann,

pourquoi ne pas ajouter ces commandes directement dans cette macro ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub Copieongletorigine()
Dim i As Integer, z As Integer
z = Worksheets("Date_section").Cells(22, 2)
For i = 1 To z
    Sheets("Origine").Copy After:=Sheets(i)
    ActiveSheet.Name = i
    Sheets(i).Range("F1") = Sheets("Date_section").Range("B" & i +1)
    Call MaMacro
Next i
End Sub

[toutletoutim]

Salut Isabelle

merci encore pour ton aide

j'ai du modifier un peu le code ce qui donne ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Copieongletorigine()

Dim i As Integer, z As Integer

z = Worksheets("Date_section").Cells(22, 2)

For i = 1 To z

    Sheets("Origine").Copy After:=Sheets(i)
    
    ActiveSheet.Name = i
    
    ActiveSheet.Range("F1") = Sheets("Date_section").Range("B" & i + 1)
    
    Call majnomonlgetdate

Next i

End Sub

J'ai du faire ça sinon ça déconné avec ma macro qui renommée les onglet

Mais sans toi je n'y serais jamais arrivé..

Merci encore