sélectionner (groupe) les 12 onglets concernésBonsoir à 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...
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é ...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é.
Sub Macro1()
Sheets("Mars").Copy After:=Sheets(13)
Sheets("Mars (2)").Name = "Juillet 2018" ' on peut aussi écrire "Jul 18"
End Sub
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