Date ,jour,mois,année

[Alyre]

Bonsoir a toutes, et a tous le forum

J'aurais besoin d'aide pour écrire une sub, je m'explique

j'ai un fichier de 12 feuilles qui représente les mois de l'année, et je veux entré des donner pour chaque mois,

ma formule pour entré les donner elle fonctionne , mais ce que je veux c'est qu'elle change de mois a la fin de chaque mois,

Exemple: Janvier terminée , passe a février

Sub recopie()

DernLigneVide = Sheets(2).Range("a39").End(xlUp).Row

If Sheets(3).Range("b2").Value = "" Then premligneVide = 2 Else premligneVide = Sheets(3).Range("b1").End(xlDown).Row + 1

With Worksheets(2)
.Range("a20:h" & DernLigneVide).Copy Worksheets(3).Range("b" & premligneVide)
End With
End Sub

Merci a l'avance

A++

 

[Zon]

Bonsoir à tous,

En utilisation les fonctions day et month, tu pourras selectionner la feuille que tu veux avec les conditions demandées

Si janvier est terminé=>on est le 1er février donc jour =1 et mois =2

Tu as douze feuilles si elles sont classées de janvier à décembre [janvier correspond à sheets(1), décembre à sheets(12)]le code suivant à adapter:

sub selectionfeuille()
dim k as integer

if Day(Range("A1")) = 1 Then 'On est le 1er

k=month(range("A1))
Sheets(k).Select
end if

end sub

A+++

 

[Alyre]

salut zon

tu est formidable d'avoir répondu au si vite a ma demande,
je vais aller essayer ca , merci

si j'ai d'autre question je te ferai signe car je n'ai pas le temps ce soir

au sujet de ton émail je t'ai répondu sur le forum dans l'autre poste

encore 1000 fois merci

A++ alyre

 

[Alyre]

Salut zon

une petite question, j'ai copier et coller ta formule dans VBA ,
et c'ette ligne devien rouge peut tu me dire ce qu'il ne va pas

k=month(range("A1))


@ ++

 

[Alyre]

re salut zon

j'ai trouver , il manquais un ( " ) a coté du ("A1))

@ +++