XL 2013 Copier coller nommer

Pierrot93

XLDnaute Barbatruc

• 22 Octobre 2015

• #2

Re : Copier coller nommer

Bonjour,

essaye ceci :

Code:

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
@+

 

Vote positif 0 Vote négatif

MASSJIPE

XLDnaute Impliqué

• 22 Octobre 2015

• #3

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

Code:

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 22 Octobre 2015

• #4

Re : Copier coller nommer

Re,

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

MASSJIPE

XLDnaute Impliqué

• 22 Octobre 2015

• #5

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)

 

Pièces jointes

• SALLE.xlsm

  102.7 KB · Affichages: 32

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 22 Octobre 2015

• #6

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....

 

Vote positif 0 Vote négatif

MASSJIPE

XLDnaute Impliqué

• 22 Octobre 2015

• #7

Re : Copier coller nommer

merci Pierrot

 

Vote positif 0 Vote négatif