XL 2021 VBA - Copies de données entre deux tableaux structurés avec plusieurs conditions

gbinforme à dit:

Bonsoir,
Tu veux faire une boucle sur les lignes I à DL mais tes variable ne sont pas initialisées.

Cliquez pour agrandir...

Zon à dit:

Salut ,

Tu as en colonne K et L les noms de feuilles où mettre tes échéances que tu as déjà identifiées par une alerte. Toutefois moi je les marque Saisie pour éviter de les saisir à chaque fois. d'où le test F.Cells(i, "P").Value <> "saisie"

Je te propose une solution avec une nouvelle variable T , voir ma signature pour les explications des tableaux VBA, et pour le resize .
J'ai ajouté une gestion d'erreur car je suis un fainéant ça m'évite de tester si c'est du débit ou du crédit...

Il faudrait que les Numero de cheque dans tes différents comptes tu les déplaces aprés la colonne Crédit sinon un exercice d'application à faire en 2 fois avec resize et T.... si tu as besoin d'aide le fil reste ouvert.

Voici le code

VB:

 'si la date en colonne B de la ligne I est supérieure ou égale à la date du jour, message
   If CDate(F.Cells(i, "B").Value) <= Date Then
      If F.Cells(i, "P").Value <> "saisie" Then
         With F
            T = Range(.Cells(i, "B"), .Cells(i, "J")).Value
         End With
       On Error Resume Next
       'Débit
         Worksheets(Cells(i, "K").Value).[B65536].End(xlUp)(2).Resize(UBound(T), UBound(T, 2)) = T
       'Crédit
         Worksheets(Cells(i, "L").Value).[B65536].End(xlUp)(2).Resize(UBound(T), UBound(T, 2)) = T
      'Call Copier_Coller
      On Error GoTo 0
         F.Cells(i, "P").Value = "saisie"
      End If
   End If

Cliquez pour agrandir...