Feuille Récap et récap supplémentaire

Bonsoir

A tester

Bonsoir,

Et pour le deuxième cas:

2- Est-ce que il y a une possibilité d'ajouter un bouton qui me permettra d’ajouter une feuille (on peut nommer ce bouton Créer un J Sup) pour ajouter une nouvelle feuille qui porte les même tableaux et ses démentions et ses fonctions comme les feuilles J.... Cette feuille nous permettras d'ajouter des nouveaux données pour une nouvelle journée. (plus de 10 jours) et on peut la récapituler avec les autres feuilles (de J1 à J10 Sup) dans le J Global et les autres feuilles (J Global Supplémentaires 1, 2, 3, et 4)

Merci.

Bonsoir

J'avais pas vu ta 2ème question

Le plus simple c'est de créer ces feuilles, de les masquer (ou pas) et de l'inclure dans la macro

Si tu les masques, tu peux faire un bouton dans la page "J Global" ou ailleurs (où tu veux) afin d'afficher

Mais mon avis (personnel à moi tout seul) laisses les fonctionner comme les autres : "J11" non masquée, "J11 Sup" masquée

Bonsoir,

Le problème que j'ai aucune idée pour le VBA et comment ajouter ou modifier une macro, vous pouvez m'aider pour créer deux feuilles (J... et J... Sup) (masquer) pour l'afficher avec un bouton, si on as besoin d'elles, et les récapituler avec les autres feuilles dans les feuilles (J Global.....).

S'il vous plait aider moi.

Merci.

Bonjour

A tester (pas eu le temps de faire des tests complets)

Bonsoir,

Le fichier ne fonctionne pas correctement, un message de débogage s'affiche. et je n'arrive pas à correcte !!!

S'il vous plait vous pouvez m'aider !!

A+

Bonjour

Quel message ?

Quelles actions faut il faire pour avoir l'erreur ?

A te lire

Bonsoir,

Quand on cliques sur le bouton Récap toutes les Feuilles pour récapituler touts les feuilles.

A+

Bonjour

Quel est le message ?

Je viens de tester et pas de souci

Envoies ton fichier

Bonsoir,

En PJ le fichier.

A+

Bonjour

Bien vu , un cas particulier où le nombre de données à recopier coïncide avec le nombre de lignes disponibles

J'ai juste modifié cette ligne

If K <= NbLignes(I) Then Exit For

A tester

Bonjour,

après le test, les feuilles J Global supplémentaires... dans le cas il y a des chèques supplémentaires ne s'affiche pas lors qu'on cliques sur le bouton.

A+

Bonjour

Ah c'est bien tu trouves les défauts, mais il faut me dire comme tu arrives à créer le défaut

A tester

Bonsoir,

il fonctionne très bien

Merci beaucoup beaucoup beaucoup pour votre aide.

A+

Galaxy201000

Bonjour,

J'ai recopier les codes des macros Récap et Initialise pour l'appliquer sur mon fichier et j'ai changer le nom des feuilles, mais un message de débogage s'affiche, ci-dessous les deux codes:

Sub Recap()
Dim Ws As Worksheet
Dim I As Integer, K As Integer, L As Integer, M As Integer, N As Integer
Dim J As Long, Nblg As Long
Dim Tbl1, Tbl2
Dim NbLignes
Dim Lg
Dim Feuilles
Dim Indice As Integer

  Application.ScreenUpdating = False
  NbLignes = Array(6, 29, 29, 29, 29)
  Lg = Array(28, 14, 14, 14, 14)
  Feuilles = Array("PV Global", "Chèques Supplémentaire 01", "Chèques Supplémentaire 02", _
                   "Chèques Supplémentaire 03", "Chèques Supplémentaire 04")

  ' Efface les zones de réception
  Sheets(Feuilles(0)).Range("B28:D33,F28:H33").ClearContents
  For I = 1 To UBound(Feuilles)
    With Sheets(Feuilles(I))
      .Range("B14:D42,F14:H42").ClearContents
      .Visible = xlSheetVeryHidden
    End With
   Next I

' Nombre de ligne maximum (11 pages de 2 * 6 lignes) + (11 pages de 2 * 29 lignes) = 770 lignes / 2 recettes = 385

  ' Collecte sur les 22 pages
  For L = 2 To 6 Step 4
    Indice = 0
    ReDim Tbl1(1 To 350, 1 To 3)
    For I = 1 To 11
      With Sheets("PV" & I)
        For J = 28 To 33
          If .Cells(J, L) <> "" Then
            Indice = Indice + 1
            For K = 0 To 2
              Tbl1(Indice, K + 1) = .Cells(J, L + K)
            Next K
          End If
        Next J
      End With

      With Sheets("PV" & I & " Sup")
        If .Visible = xlSheetVisible Then     ' Si la page Sup est masquée pas la peine de récolter
          For J = 14 To 42
            If .Cells(J, L) <> "" Then
              Indice = Indice + 1
              For K = 0 To 2
                Tbl1(Indice, K + 1) = .Cells(J, L + K)
              Next K
            End If
          Next J
        End If
      End With
    Next I

    ' Recopie
    If Indice > 0 Then                          ' Au moins 1 donnée
      J = 0
      For I = 0 To UBound(Feuilles)
        K = Application.Min(NbLignes(I), Indice - J)
        ReDim Tbl2(1 To K, 1 To 3)
        For N = 1 To K
          For M = 1 To 3
            Tbl2(N, M) = Tbl1(J + N, M)
          Next M
        Next N
        J = J + K
        Sheets(Feuilles(I)).Cells(Lg(I), L).Resize(K, 3) = Tbl2
        If (K < NbLignes(I)) Or (J = Indice) Then Exit For
      Next I
      If J < Indice Then
        MsgBox "Attention des chèques de " & IIf(L = 2, "Recette Caisse Résidentiel", "Recette Caisse Corpo") & " n'ont pu être recopiés"
      End If
    End If
  Next L
  For I = 1 To UBound(Feuilles)
    With Sheets(Feuilles(I))
      If (.Range("B14") <> "") Or (.Range("F14") <> "") Then
        .Visible = xlSheetVisible
      End If
    End With
  Next I
End Sub

Sub Initialise()
Dim Ws As Worksheet
Dim I As Integer

  If MsgBox("Attention vous allez effacer toutes les informations sur ces pages", _
            vbInformation + vbYesNo + vbDefaultButton2, "Opération irréversible") <> vbYes Then Exit Sub

  For I = 1 To 11

    ' Avec le Tableau des monnaies
    'Sheets("J" & I).Range("B14:B24,F14:F24,B28:D33,F28:H33").ClearContents

    ' Sans le tableau des monnaies
     Sheets("PV" & I).Range("B28:D33,F28:H33").ClearContents

    With Sheets("PV" & I & " Sup")
      .Range("B14:D42,F14:H42").ClearContents
      .Visible = xlSheetVeryHidden
    End With
  Next I

  Sheets("PV11").Visible = xlSheetVeryHidden

  Sheets("PV Global").Range("B28:D33,F28:H33").ClearContents

  For Each Ws In Sheets(Array("Chèques Supplémentaire 01", "Chèques Supplémentaire 02", _
                              "Chèques Supplémentaire 03", "Chèques Supplémentaire 04"))
    Ws.Range("B14:D42,F14:H42").ClearContents
    Ws.Visible = xlSheetVeryHidden
  Next Ws

End Sub

Je n'arrive pas à comprendre ou est le problème !!!!

Merci.

A+

Galaxy201000

Bonjour

Si le message arrive après la modification du nom des pages, c'est qu'il a une discordance entre les noms dans la macro et les noms des feuilles

Mais sans ton fichier modifié je ne peux pas trouver la solution

Bonjour,

J'ai changer les nom des pages comme suit:

• J'ai remplacer les noms des pages "J..." par "PV1, 2, 3, 4,....".
• J'ai remplacer les noms des pages "J.. Sup" par "Chèques Supp PV1, 2, 3, 4,.....".
• J'ai remplacer les noms des pages "J Globel" par "PV Global"
• J'ai remplacer les noms des pages "J Global supplémentaires 01, 02, 03, 04" par Chèques supplémentaires 01, 02, 03, 04".

Merci.

A+

Bonjour,

Est-ce que vous pouvez applique les modifications sur mon fichier exemple (galaxy) !!!! pour que je-puis appliquer sur mon fichier.

Merci.

A+

Bonjour

Le mieux c'est que tu modifies les noms dans le fichier que tu postes le fichier que je puissent modifier les macros

Bonjour,

En pièce jointe le fichier avec les noms modifier.

Merci.

A+

Galaxy201000

Bonjour

A vérifier