XL 2019 Copier les données dans une feuille spécifique avec la condition de la date sur label1

BrunoM45 à dit:

Bonsoir Dadi147

Alors...
Regarde la pièce jointe 1150442

Mince non je ne vois rien... peut-être manque t'il un fichier

Bonne soirée

Cliquez pour agrandir...

BrunoM45 à dit:

Bonsoir Dadi147

Alors...
Regarde la pièce jointe 1150442

Mince non je ne vois rien... peut-être manque t'il un fichier

Bonne soirée

Cliquez pour agrandir...

ChTi160 à dit:

Bonsoir Dadi147
Question : donc tu ne travailles que d'après la date du Jour ? Soit la date du "Label4"
jean marie

Cliquez pour agrandir...

ChTi160 à dit:

Donc tu ne travailles que sur la date du jours !

Cliquez pour agrandir...

ChTi160 à dit:

Re
un fichier ou j'ai ajouté une feuille "septembre" et modifié quelques procédures !

VB:

Private Sub UserForm_Activate()
      With Me.Label4
             .Caption = Format(Date, "yyyy / mm / dd")
             .Tag = Format(Date, "mmmm") 'on colle le Mois (Nom feuille dans la propriété .Tag du Label
      End With
End Sub

puis

Code:

Private Sub CommandButton1_Click()
Dim ss As Integer
Dim ShtName$
ShtName = Me.Label4.Tag 'on récuoére le Nom de la feuille
   With Sheets(ShtName)
        DerLgn = .Cells(.Rows.Count, 2).End(xlUp).Row + 1
                 .Cells(DerLgn, 2).Value = IIf(Cells(4, 2) = Me.TextBox1, Me.TextBox2.Value, "")
        DerLgn = .Cells(.Rows.Count, 3).End(xlUp).Row + 1
                 .Cells(DerLgn, 3).Value = IIf(Cells(4, 3) = Me.TextBox1, Me.TextBox2.Value, "")
        DerLgn = .Cells(.Rows.Count, 4).End(xlUp).Row + 1
                 .Cells(DerLgn, 4).Value = IIf(Cells(4, 4) = Me.TextBox1, Me.TextBox2.Value, "")
       
   End With
End Sub

Tout cela sans exemple, ni explications qui m'auraient permis de comprendre un peu mieux ce que tu veux faire .
Jean marie

Cliquez pour agrandir...

ChTi160 à dit:

Re
Moi je suis surpris de ne pas avoir d'indication sur le message d'erreur . Je verrai demain pour le deviner.
Bonne nuit
Jean marie

Cliquez pour agrandir...