Obliger d'effectuer un code sur une feuil1
Résolu
vieuxray
-
vieuxray -
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)
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 ascii - Guide
- Comment déverrouiller un téléphone quand on a oublié le code - Guide
- Code puk bloqué - Guide
- Code activation windows 10 - Guide
- Scanner un qr code sur pc - Guide
6 réponses
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.
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.
Re,
uniquement sur la Feuil Calcul !!! y'en a pas dans ce que vous ecrivez
a vous d'adapter:
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
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
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
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
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
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
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
