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

            Discussions similaires

            C'est quoi un BILLING ZIP CODE
            bikanane

            1 réponse