Obliger d'effectuer un code sur une feuil1

Résolu
vieuxray -  
Bonjour a toutes et tous, Forum bonjour



Excel 2007 VBA

J'ai placer ce code ci-dessous dans un module, quand j'ouvre mon programme le code fonctionne bien.
Mais il s'affiche également sur mon autre Feuill2, c'est moins bien.
'
Je souhaiterai svp que ce petit code s'effectue uniquement dans ma Feuil1(Compte)

Merci a vous pour votre aide, bonne journée a tous.

Cordialement Ray

Le code doit afficher les douze mois de l'année dans la plage E1:P1 de la Feuil1(Compte) 


Public Sub Mois_Année()
    Dim byMois As Byte

  For byMois = 1 To 12
      With Cells(1, 4 + byMois)
          .Value = Format("01/" & byMois, "mmm") & "-" & Right(CStr(Year(Now)), 2)
          .Font.Bold = True
      End With
  Next byMois
End Sub

6 réponses

  1.  f894009
    Bonjour,

    comment lancez-vous ce code ?????
    1
    1. f894009
      Re,

      dans votre sub Mois_Annee, il faut preciser que c'est la feuil1, car pour l'instant c'est la feuille active qui est ecrite.
      1
      1. f894009
        Re,

        uniquement sur la Feuil Calcul !!! y'en a pas dans ce que vous ecrivez

        a vous d'adapter: 

        Public Sub Mois_Année()
            Dim byMois As Byte

          With Worksheets("feuil1")
            For byMois = 1 To 12
                With .Cells(1, 4 + byMois)
                    .Value = Format("01/" & byMois, "mmm") & "-" & Right(CStr(Year(Now)), 2)
                    .Font.Bold = True
                End With
            Next byMois
          End With
        End Sub

        1
        1. vieuxray
          Bonjour f894009,

          Merci pour la réponse

          je lance de cette maniére ci dessous, peut etre pas une bonne idée ???

          Bonne après midi

          Cdlt Ray 


          Private Sub UserForm_Initialize()
            On Error Resume Next
                         Set Ws = Sheets("Compte")                   'Ws Feuil1("Compte")
                  Call AfficheDateSemaine
                  Call Mois_Année                             'Affiche les 12 mois de l'année
          0
          2. vieuxray
            Re
            Merci pour la réponse,

            J'ai trois feuil excel

            (1) Compte
            (2) Carte bleue
            (3) Calendrier

            Je dois mettre quoi comme code pour que la macro s'éxécute uniquement sur la Feuil Calcul

            Merci pour l'aide

            Ray
            0
            1. vieuxray
              Re f894009

              Désolé, je me suis tromper de fichier, la feuil(Calcul) c'est compta a madame

              le mien c'est bien Feuil(Compte)

              autant pour moi

              J'ai adapter et fait l'essai, ca fonctionne bien, plus de soucis.

              Encore merci une fois de plus, grace a toi ça fonctionne bien maintenant.

              Avec tous mes remerciements, une bonne après midi

              Bien cordialement Raymond
              0

              Discussions similaires

              Où sont stockés les QR codes sur android ?
              zatox19

              11 réponses