Excel 2010 : création d'une feuille automatique en fonction

Question

Bonjour, 



J'ai dans une feuille excel, un champ avec une date sous le format 28/10/2012.
Je voudrais faire une macro qui lit la date et qui me créer systématiquement une nouvelle avec la date en question sans les '/' si et seulement si celle-ci n'existe pas.

Quelqu'un as-t-il une idée sur ce sujet ?

Merci d'avance pour vos aides.

Sam

f894009 · Answer

Bonjour,

un exemple de code a mettre dans le VBA de la feuille ou vous avez la date. La position de l'onglet cree est par defaut, car je ne sais pas comment evolue la date dans la cellule.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Dim wrsh As Worksheet
  Dim Nsheet, NewSheet
  
  'Sortie si plusieurs cellule selectionnees
  If Target.Count > 1 Then Exit Sub
  'Cellule avec la date a adapter
  'Mise en forme nom onglet
  Nsheet = Format([A1], "ddmmyyyy")
  'Recherche si deja existant
  For Each wrsh In Worksheets
    If wrsh.Name = Nsheet Then
      'Existe-->sortie
      Exit Sub
    End If
  Next wrsh
  'Creation Onglet et nommage
  Set NewSheet = Worksheets.Add
  NewSheet.Name = Nsheet

End Sub


Bonne suite

samantha44250 · Answer

Bonjour,

Merci f894009.
J'ai copié les lignes dans macro mais elle n'apparaissent pas.

Y a-t-il un moyen de mettre une PJ ?

A+

Sam

f894009 · Answer

Re,

surlignez le code 

copiez le code

Ouvrir VBA Alt+F11
double click en haut a gauche sur la feuille que vous voulez
click droit sur fenetre a droite

collez le code

A+

f894009 · Answer

Re,

fichier exemple:

https://www.cjoint.com/?BJFpbQRlPxt

Bonne suite

samantha44250 · Answer

Voici mon fichier en PJ :

	http://cjoint.com/?0Kck36j5gZC 

Cdlt.

Sam

f894009 · Answer

Bonjour,

Votre fichier est en excel97-2003 pas en 2010.


https://www.cjoint.com/?BKcowy0U78M

Bonne suite

Excel 2010 : création d'une feuille automatique en fonction

6 réponses

Votre réponse

Newsletters