Date ,jour,mois,année

  • Initiateur de la discussion Initiateur de la discussion Alyre
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

A

Alyre

Guest
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 @ ++++
 
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+++
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
4
Affichages
332
  • Question Question
Microsoft 365 Code VBA
Réponses
10
Affichages
773
Réponses
3
Affichages
569
  • Question Question
Microsoft 365 Export données
Réponses
4
Affichages
481
Retour