XL 2010 [Résolu] Inscrire les jours selon mois(nom feuille)

[Lone-wolf]

Bonsoir à tous

Dans le classeur joint, je cherche à inscrire les jours suivant le nom de la feuille. J'ai déjà une macro dans le module de la feuille. Pour le mois de janvier c'est ok, mais pas pour les autres mois. Si quelqu'un a une idée...

 

[Modeste geedee]

Bonsour®

Bonsoir à tous

Dans le classeur joint, je cherche à inscrire les jours suivant le nom de la feuille. J'ai déjà une macro dans le module de la feuille. Pour le mois de janvier c'est ok, mais pas pour les autres mois. Si quelqu'un a une idée...

sélectionner (groupe) les 12 onglets concernés
en A1 :
=CELLULE("nomfichier";A1)
en B1 :
=DATEVAL(1&STXT(A1;TROUVE("]";A1)+1;12))
En C1 :
=B1+1
format de cellule :
jjj j
puis tirer cette formule 31 fois vers la droite

 

[Lone-wolf]

Bonsoir Modeste

Merci d'avoir répondu. Il y a pas moyen de le faire en VBA(sans vouloir abuser) ? 😳

EDIT: Je remet le classeur avec les formules au cas où quelqu'un serait interéssé.

 

[Modeste geedee]

Bonsour®

Bonsoir Modeste

Merci d'avoir répondu. Il y a pas moyen de le faire en VBA(sans vouloir abuser) ? 😳

EDIT: Je remet le classeur avec les formules au cas où quelqu'un serait interéssé.

le plus simple est encore de dupliquer n'importe laquelle de ces feuilles puis de renommer la copie du nom d'un mois non encore utilisé ...
😉 exemple :

Sub Macro1()
    Sheets("Mars").Copy After:=Sheets(13)
    Sheets("Mars (2)").Name = "Juillet 2018" ' on peut aussi  écrire "Jul 18"
End Sub

🙄

 

[Lone-wolf]

Bonjour Modeste

Effectivement c'est plus simple. Mais j'aurais quand même aimé passer par VBA.

 

[Yurperqod]

Bonjour le forum

Effectivement c'est plus simple. Mais j'aurais quand même aimé passer par VBA.

Sub Macro1()
Dim Feuille As Worksheet
For Each Feuille In Worksheets
If IsDate("1 " & Feuille.Name) Then
With Feuille
.Range("B3") = CDate("1 " & Feuille.Name & " 2016")
.Range("B3:AF3").DataSeries Rowcol:=xlRows, Type:=xlChronological, Date:=xlDay, Step:=1, Trend:=False
End With
End If
Next
End Sub

 

[Lone-wolf]

Bonsoir Yurperqod, le Forum

Merci pour le code. J'ai quand même trouver une solution, peut-être pas la meilleure mais enfin... en PJ.