Renvoie de données d'un onglet à un autre selon un critère de date

Question

En tant que trésorier, je tiens à jour les comptes d'une association. Lors d'un paiement de cotisation, variable selon l'âge, je le note sur la feuille "Membres" et je répète la même opération sur l'onglet du mois où la cotisation est réglée. Je pense que ça va être un gros boulot mais serait-il possible que lors de la saisie sur la feuille "Membres" les informations se répètent sur la feuille du mois concerné. La saisie se passe ainsi: un clic dans la colonne "P" pour ouvrir le calendrier et inscrire la date du paiement (jj/mm/aaaa). un clic dans la colonne "Q" pour aller chercher le montant de la cotisation. un clic dans la colonne "R" pour indiquer le mode de paiement. Dans la feuille du mois correspondant à la date du paiement, j'aimerais que cela s'affiche comme actuellement sur l'onglet "Novembre 2023" dans le fichier joint. Les données dans la colonne"B", qui sont en relation avec le menu déroulant de la colonne "C", sont importantes car elles renvoient les sommes sur la feuille "Bilan Financier 2024" Si cela n'est pas faisable ou bien trop compliqué, n'hésitez pas à me le faire savoir. Avec mes remerciements...

DanielC · Accepted Answer

Essaie (je n'ai pas su remplir la colonne "Codes")...

DanielC · Accepted Answer

Je ne t'ai pas donné toutes les billes, excuse-moi. La macro de recopie s'exécute quand on double-clique sur la ligne ajoutée en colonne R. Daniel...

DanielC · Accepted Answer

Normalement si, mais je n'ai pas testé. Ca ne fonctionne pas ? Daniel...

DanielC · Accepted Answer

Oups, OK. Remplace la macro de la feuille "Membres" par celle-ci :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  Dim Sh As String, Ligne As Long
  Cancel = True
  If Target.Column <> 18 Or Target = "" Or Target.Count > 1 Then Exit Sub
  If Target.Offset(, -2) = "" Or Target.Offset(, -1) = "" Then Exit Sub
  Application.EnableEvents = False
  Sh = Format(Target.Offset(, -2), "mmmm yyyy")
  With Sheets(Sh)
    Ligne = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
    If Ligne < 7 Then Ligne = 7
    .Cells(Ligne, 1) = Target.Offset(, -2)
    .Cells(Ligne, 3) = "Cotisations club"
    .Cells(Ligne, 4) = "Paiements cotisations club en " & Target.Value & "     (1)"
    If Target.Value = "Virement" Or Target.Value = "Chèque" Then
      .Cells(Ligne, 6) = Target.Offset(, -1)
    Else
      .Cells(Ligne, 8) = Target.Offset(, -1)
    End If
  End With
  Application.EnableEvents = True
End Sub

Daniel