Date ,jour,mois,année

[Alyre]

Bonsoir a tous et joyeuse paque

qui pourais me dire comment placer ses Sub, pour qu'a chaque mois elle change de feuille automatique


Sub recopie()

selectionfeuille

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

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

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


Sub selectionfeuille()
Dim k As Integer

If Day(Range("B2")) = 1 Then 'On est le 1er

k = Month(Range("B2"))
Sheets(k).Select
End If
End Sub


Merci a l'avance @ ++++

 

[Zon]

Re et bonjour à tous,

Désolé alyre je t'ai répondu par mail avec un message que je renvoie à tous les forumers qui spamme ma BAL en me posant question sur question alors que je n'avais pas vu ta question était posée sur le forum, je pense qu'en rajoutant la ligne de code suivante

.....
L2 = ws1.Range("B65536").End(xlUp).Row + 1 'Premeière ligne non vide dans une des feuilles mois
ws.Range("A20:H" & L1).Copy ws1.Range("B" & L2) 'copie de la plage

WS.range("C2").copy WS1.Range("A2") 'DEVRAIT FAIRE L'AFFAIRE



A+++

 

[Alyre]

Bonjour Zon et le forum

Merci beaucoup ça marche tres bien

je suis désolé que tu est reçu un émail de moi, pourtant j'ai posé la question seulment sur le forum en clickant sur (Répondre à ce message )

si tu a reçu un émail, je ne comprend pas comment que ça fontionne ou j'ai fait une gafe s'en me rendre compte

Encore une fois merci de t'on aide si précieuse, je l'aprécie beaucoup

@ +
alyre