Obliger d'effectuer un code sur une feuil1

Résolu/Fermé

vieuxray - 9 janv. 2014 à 10:14
vieuxray - 9 janv. 2014 à 15:53

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

A voir également:

Obliger d'effectuer un code sur une feuil1
Code asci - Guide
Code puk bloqué - Guide
Code telephone oublié - Guide
Comment créer un qr code - Guide
Code blocks free - Télécharger - Langages

6 réponses

Réponse 1 / 6

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702
9 janv. 2014 à 11:37

Bonjour,

comment lancez-vous ce code ?????

Réponse 2 / 6

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702
9 janv. 2014 à 15:12

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.

Réponse 3 / 6

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702
9 janv. 2014 à 15:39

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

Réponse 4 / 6

vieuxray
9 janv. 2014 à 14:30

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

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

Posez votre question

Réponse 5 / 6

vieuxray
9 janv. 2014 à 15:24

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

Réponse 6 / 6

vieuxray
9 janv. 2014 à 15:53

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

Discussions similaires

Code de renvoi d'appel : Ooredo, Mobilis...

Acces à snapchat temporairement désactivé

code d'activation GTA 5 steam

Discussions similaires

Newsletters