Saisie différents onglets fonction du mois

GeoTrouvePas

XLDnaute Impliqué

• 29 Juillet 2010

• #2

Re : Saisie différents onglets fonction du mois

Bonjour Emmanuel

C'est possible. Il te faut obtenir pour cela le nom du mois en cours grâce : "Format(Month(Date), "mmmm")"

Après tu n'as plus qu'à faire une procédure comme celle - ci :

Code:

Sub TransfertVersMoisEnCours()

MoisEnCours = Format(Month(Date), "mmmm")

With Sheets(MoisEnCours)
.Cells(1, 1) = Sheets("Accueil").Cells(1, 1)
.Cells(2, 1) = Sheets("Accueil").Cells(2, 1)
.....
End With

End Sub

J'ai pas trop le temps de tester mais normalement ça devrait marcher.

Bonne journée

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 29 Juillet 2010

• #3

Re : Saisie différents onglets fonction du mois

Bonjour Emmanuel,

oui ce doit être possible, regarde le code ci-dessous devrait t'aider à avancer dans ton projet...

Code:

Sheets(MonthName(Month(Date))).Select

Attention sensible à l'accentuation mais pas à la casse, enfin sous 2003...

bonne journée
@+

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 29 Juillet 2010

• #4

Re : Saisie différents onglets fonction du mois

Re, bonjour Geotrouvepas

avec "format", devrait mieux fonctionner ainsi :

Code:

MsgBox Format(Date, "mmmm")

@+

 

Vote positif 0 Vote négatif

GeoTrouvePas

XLDnaute Impliqué

• 29 Juillet 2010

• #5

Re : Saisie différents onglets fonction du mois

Pierrot93 à dit:

avec "format", devrait mieux fonctionner ainsi :

Code:

MsgBox Format(Date, "mmmm")

Cliquez pour agrandir...

ça fonctionne bien mais c'est complètement débile comme syntaxe je le comprend en me relisant et je le reconnais 😛

C'est juste que j'ai commencé à y réfléchir en espérant que Month allait fonctionner sans arguement comme Date. Là dessus j'y ai rajouté Date en argument, puis le format.......

Au final le cheminement est logique mais le résultat est complètement débile 😀😀😀

Merci pour le MonthName, je ne connaissais pas. Je le note pour l'utiliser plus tard

 

Dernière édition: 29 Juillet 2010

Vote positif 0 Vote négatif

E

Emmanuel31100

Guest

• 29 Juillet 2010

• #6

Re : Saisie différents onglets fonction du mois

Un grand merci à vous deux pour vos réponses si rapides!

Je me penche sur mon projet avec vos codes et je vous tiens au courant de l'avancement!

Passez une bonne journée!

Emmanuel

 

Vote positif 0 Vote négatif

GeoTrouvePas

XLDnaute Impliqué

• 29 Juillet 2010

• #7

Re : Saisie différents onglets fonction du mois

Emmanuel31100 à dit:

Je me penche sur mon projet avec vos codes

Cliquez pour agrandir...

Penche toi sur celui de Pierrot qui est bien plus correct et propre que celui que je t'ai proposé.

Bonne journée

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 29 Juillet 2010

• #8

Re : Saisie différents onglets fonction du mois

Re,

Au final le cheminement est logique mais le résultat est complètement débile

Cliquez pour agrandir...

non, il te renvoie bien le 7ème jour du "calendrier" vba, soit le 6 janvier 1900, la 1ère date dans vba étant le 31 12 1899.... et ce formaté comme demandé...i

 

Vote positif 0 Vote négatif

E

Emmanuel31100

Guest

• 29 Juillet 2010

• #9

Re : Saisie différents onglets fonction du mois

Génial! Ca marche vraiment bien!

Merci à vous deux! Bonne journée 🙂

 

Vote positif 0 Vote négatif

GeoTrouvePas

XLDnaute Impliqué

• 29 Juillet 2010

• #10

Re : Saisie différents onglets fonction du mois

Pierrot93 à dit:

non, il te renvoie bien le 7ème jour du "calendrier" vba, soit le 6 janvier 1900, la 1ère date dans vba étant le 31 12 1899.... et ce formaté comme demandé...i

Cliquez pour agrandir...

Ah ouais exact. Décidement, je suis vraiment aussi nul avec les dates qu'avec le reste. Il va vraiment falloir que je m'y penche de plus près sur ces manipulations de dates.

 

Vote positif 0 Vote négatif