Solution

Bonjour,

Je trouve des problèmes dans mon application en PJ,

qui peut m'aider à trouver la solution:

Mon besoin:

1/une feuille "récap S" qui regroupe les feuilles S1 S2 S3 S4 S5 S6 S7.......S12.

2/ une feuille "récap W" qui regroupe les feuilles W1 W2........W12

3/une feuille "récap P" qui regroupe les feuilles P1........P12

4/une feuille "récap M" qui regroupe les feuilles M1.......M12

5/dans la feuille récap S si le N° BON 2 se répète la ligne se colore en rouge

Merci d'avance

up

c est trés urgent svp

je veux juste savoir est ce que ça existe ou non

UP

Bonjour,

Le Forum ne connaît pas les urgences ! Mais par contre souhaite généralement un titre un peu plus explicite...

Idem pour les explications, et un fichier fourni qui y corresponde et ne soit pas dépourvu de toute donnée...

Cordialement.

MFerrand a écrit :

Bonjour,

Le Forum ne connaît pas les urgences ! Mais par contre souhaite généralement un titre un peu plus explicite...

Idem pour les explications, et un fichier fourni qui y corresponde et ne soit pas dépourvu de toute donnée...

Cordialement.

bonjour

je pense que j' ai expliqué et en piece jointe il ya un fichier excel

Bonjour,

Ayoubsmairi a écrit :

bonjour

je pense que j' ai expliqué et en piece jointe il ya un fichier excel

Effectivement pour la pièce jointe, le problème est dans le titre

Ceci dit, il serait bon de revoir la construction de ton fichier !

Pourquoi des feuille S, W, P et M, je ne vois pas de différence ?

Pourquoi toutes ces feuilles de 1 à 12 ?

Bref, avant de faire quoique ce soit, nous aimerions comprendre

A+

Bonjour,

Si je me souviens bien, tu souhaites des "récap" mais les feuilles "Récap" sont absentes de ton fichier. Tu n'en précises donc pas la structure, les emplacements des récapitulations, etc. et les explications manquent un peu sur ce qui doit être récapitulé.

L'absence de données ne permet pas de faire des déductions à cet égard...

Et les explications relatives à ton fichier, comme l'indique Bruno, aideraient peut-être à comprendre.

Cordialement.

Bonjour toutes et tous et bon Week end

j'ai essayé d'effectuer ton fichier mais il est trop lourd de plus tu avais mis dès le départ dans la seule feuille Récap maintenant c'est dans une feuille différente avec des onglets x, j'ai vite abandonné désolé

1/ Le fichier et trop volumineux faudrait l'alléger

2/ cela ne sert à rien de mettre 50 voir plus d'onglets pour des tests des essais le mieux dans mettre une dizaine et allégé ton fichier

3/ un post similaire a été demandé récemment, m'semble que c'est H2SO4 qu'avait donné une formule

le code ci-dessous est à améliorer suivant ton besoin

Sub Récap()
' En Vert ... tous les Commentaires Explicatifs ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Déclaration des Variables
Dim f As Worksheet
Dim der As Long
' Effacer la plage qui va recevoir les données
    Feuil4.Range("A2:S550").ClearContents
 ' Boucle Pour chaque Feuille dont le nom est différent de Récap et de Données
    For Each f In Worksheets
        If f.Name <> "S1" And f.Name <> "S2" Then  ' <=========================================>ajouter ici
            ' Copier la plage qui va de la cellule A3 à Sx
            ' le x éest la dernière ligne en premnant la colonne B comme référence
            f.Range("A2:S" & Application.WorksheetFunction.Max(3, f.Range("B" & Rows.Count).End(xlUp).Row)).Copy
            ' Déterminer la première ligne ligne disponible pour la copie dans la feuille Récap
            der = Feuil1.Cells(Application.Rows.Count, "A").End(xlUp).Row + 1
            ' Coller la plage ainsi déterminée ... au bon endroit ...
            Feuil1.Range("A" & der).PasteSpecial xlPasteAll
        End If
    Next f
    ' Stopper le mode Copier Coller
    Application.CutCopyMode = False
    ' Exécuter la macro du Tri
    Application.Run ("Récap_S")
    ' Se placer en A2
    Range("A2").Select
End Sub

crdlt,

André