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

sam -  
f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   -
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

6 réponses

  1.
    f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    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
    0
  2. samantha44250 Messages postés 1 Statut Membre
     
    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
    0
  3. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    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+
    0

  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. samantha44250
     
    Voici mon fichier en PJ :

    http://cjoint.com/?0Kck36j5gZC

    Cdlt.

    Sam
    0