Excel: prendre valeur sur feuille generer

draeist Messages postés 25 Date d'inscription   Statut Membre Dernière intervention   -  
zavenger Messages postés 817 Statut Membre -
Bonjour,

Voilà j'ai une magnifique macro que j'ai reussi à avoir ici ;) merci à celui qui me las donne;)

Elle me permet de generer une feuille type à partir d'un model.

Mais j'aimerais que chaque feuille generées aillent me chercher dans la précédente générée certaines données (chiffré la plupart du temps). hors je n y arrive pas... ququn connais?

(chaque feuille générée à pour nom un mois (janvier frevrier etc.... )

J'ai essayer avec month-1 mais marche po :'(
Configuration: Windows XP
Internet Explorer 6.0

5 réponses

  1.
    zavenger Messages postés 817 Statut Membre 161
     
    bonjour

    pourquoi na pas utiliser une fonction comme celle-ci (je sais ce n'est pas très fin)

    Function MoisPrecedent(MoisCourant As String)

    Select Case LCase(MoisCourant)
    Case "janvier"
    MoisPrecedent = "Décembre"
    Case "février"
    MoisPrecedent = "Janvier"
    Case "mars"
    MoisPrecedent = "Février"
    Case "avril"
    MoisPrecedent = "Mars"
    Case "mai"
    MoisPrecedent = "Avril"
    Case "juin"
    MoisPrecedent = "Mai"
    Case "juillet"
    MoisPrecedent = "Juin"
    Case "aout"
    MoisPrecedent = "Juillet"
    Case "septemnbre"
    MoisPrecedent = "Aout"
    Case "octobre"
    MoisPrecedent = "Septemnbre"
    Case "novembre"
    MoisPrecedent = "Octobre"
    Case "décembre"
    MoisPrecedent = "Novembre"
    End Select

    End Function
    0
    1. draeist Messages postés 25 Date d'inscription   Statut Membre Dernière intervention  
       
      euh, je ne comprend pas trop.... je colle ca ou ?
      0
  2. zavenger Messages postés 817 Statut Membre 161
     
    c'est une fonction vbs que tu peux utiliser dans ta macro de genreation de feuille qui te retourne le nom du mois precedent celui que tu lui passses en parametre.

    Ou alors je n'ai pas compris ce que tu voulais faire ...
    0
  3. draeist Messages postés 25 Date d'inscription   Statut Membre Dernière intervention  
     
    A vrai dire ce que je ne comprend pas c'est comment dire à ma nouvelle feuille:

    Vas prendre en A34 de la feuille précédente (moi d'avril si la nouvelle feuille généré est mai) la valeur inscrite.
    0
  4. zavenger Messages postés 817 Statut Membre 161
     
    tu veux le faire dans une macro ou tu veux une formule dans une cellule?
    0
    1. draeist Messages postés 25 Date d'inscription   Statut Membre Dernière intervention  
       
      Ca as peu d'importance, mais ma macro de creation contient dejà :

      Dim Var_Date As String
      Var_Date = MonthName(Month(Now()))
      Sheets("modelefeuille").Select
      Sheets("modelefeuille").Copy After:=Sheets(xlLast)
      Worksheets("modelefeuille (2)").Name = Var_Date

      Je colle à la suite ce que tu m as mis ?
      0

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

    Posez votre question
  6. zavenger Messages postés 817 Statut Membre 161
     
    a la suite de ton code tu ajoutes:

    MoisPrec = Month(Now()) - 1
    if MoisPrec = 0 then
    MoisPrec = 12
    end if
    MoisPrecNom = MonthName(MoisPrec)
    Sheets(Var_Date).Cells(3,2).Value = Sheets(MoisPrecNom).Cells(4,3).Value ' pour copier le contenu de la cellule B3 en C4 de l'ancienne vers la nouvelle feuille
    ' et ainsi de suite pour toutes tes cellules.
    0