en fonction de la date ranger dans onglet

[nrdz83]

Bonsoir à tous je cherche via un formulaire de saisie à ranger en fonction du mois selectionné le ranger dans l'onglet qui correspond au mois.
Je vous mets mon fichier en piece jointe, d'avance merci à tous et mes amitiés
lien >>>>Cijoint.fr - Service gratuit de dépôt de fichiers

 

[Excel-lent]

Re : en fonction de la date ranger dans onglet

Bonsoir Nrdz83, le fil,

Pour cela il te suffit de modifier ta macro du formulaire de la façon suivante :
(code modifié/rajouté en bleu)

Private Sub CommandButton1_Click()
[COLOR="Blue"]' Macro complété par Excel-lent[/COLOR]
' Mise en place des valeurs saisies

[COLOR="Blue"]Dim Mois As Byte

Mois = Month(Calendar1)[/COLOR]

With Sheets([COLOR="Blue"]Mois + 1[/COLOR])
  DerLig = .Range("A65000").End(xlUp).Row + 1
  .Cells(DerLig, 1) = Calendar1
  .Cells(DerLig, 2) = ComboBox1
  .Cells(DerLig, 3) = TextBox3
  .Cells(DerLig, 4) = TextBox4
(...)

Bonne modification et bonne soirée

 

[nrdz83]

Re : en fonction de la date ranger dans onglet

bonsoir excel lent et super ça marche du tonnerre mes amitiés et un bon week end, 😎