XL 2013 Copier coller nommer

[MASSJIPE]

Bonjour
Comment faire pour copier une feuille (feuil1 = vierge) la coller et la nommer avec une imputbox (mois)
merci

Sub Macro1()
Dim d1
d1 = InputBox(" saisir le mois")
End Sub

 

[Pierrot93]

Re : Copier coller nommer

Bonjour,

essaye ceci :

Option Explicit
Sub test()
Dim d1 As String
d1 = InputBox(" saisir le mois")
If d1 <> "" Then
    Feuil1.Copy after:=Sheets(Sheets.Count)
    ActiveSheet.Name = d1
End If
End Sub

bonne journée
@+

 

[MASSJIPE]

Re : Copier coller nommer

Re
J'ai ajouté 2 autres fonctions U1 fonctionne mais A3 si je mets l'année 2015 il affiche 1905 la cellule est personnalisée du type AAAA

Option Explicit
 Sub test()
 Dim d1 As String
 d1 = InputBox(" nommer le mois")
 If d1 <> "" Then
     Feuil1.Copy after:=Sheets(Sheets.Count)
     ActiveSheet.Name = d1
     Range("A3").Value = InputBox("saisir l'année")
     Range("U1").Value = InputBox("saisir le mois")
 End If
 End Sub

 

[Pierrot93]

Re : Copier coller nommer

Re,

A3 si je mets l'année 2015 il affiche 1905 la cellule est personnalisée du type AAAA

si j'ai bien compris, pas sur, appliqué plutôt un format nombre à la cellule...

 

[MASSJIPE]

Re : Copier coller nommer

Re
le format nombre c'est ok
j'ai fait un agenda mais je ne sais pas comment faire pour que ca commence au lundi et non pas ou premier de du mois 1
En B6 =DATE(AA2+2014;AA1;1)

 

[Pierrot93]

Re : Copier coller nommer

Re,

là on s'éloigne de plus en plus de la question initiale..... regarde sur le forum, sujet déjà abordé, entre autre dans les réponses de Roger tu devrais trouver ta réponse.... perso pas trop formuliste surtout avec les dates....

 

[MASSJIPE]

Re : Copier coller nommer

merci Pierrot