Données empilées sans lignes vides sur nouvelle feuille

Bonjour,

Voici mon problème:

Des données figurent sur une page de classeur, disposées en lignes

je souhaite pouvoir en reporter certaines, sous conditions,sur une nouvelle feuille.

Je sais créer la formule pour ce faire, mais me retrouve avec des lignes vides lorsque les conditions ne sont pas remplies: je souhaite les empiler sur la nouvelle feuille, sans lignes vides.

J'espère avoir été clair, et reste dispo.

Merci à qui m'apportera la solution

bonjour et bienvenue,

Peux-tu envoyer ta feuille (une vingtaine de ligne suffit) avec annotations

Amicalement

Claude.

dubois a écrit :

bonjour et bienvenue,

Peux-tu envoyer ta feuille (une vingtaine de ligne suffit) avec annotations

Amicalement

Claude.

merci de me répondre

Feuille 2:

A - B - C

1 AA 3

2 BB 3

3 CC 3

4 DD 2

5 EE 1

6 FF 3

Feuille 1:

A B C

1 =SI(Feuil2!C1=3;Feuil2!B1;"")

2 =SI(Feuil2!C2=3;Feuil2!B2;"")

3 =SI(Feuil2!C3=3;Feuil2!B3;"")

4 =SI(Feuil2!C4=3;Feuil2!B4;"")

5 =SI(Feuil2!C5=3;Feuil2!B5;"")

6 =SI(Feuil2!C6=3;Feuil2!B6;"")

Le soucis étant de supprimer les lignes vides (celles qui ne remplissent pas les conditions)

J'espère avoir été clair ?

re,

çà n'empêche pas d'envoyer un support !

Pas envie de reproduire une feuille

à+....

dubois a écrit :

re,

çà n'empêche pas d'envoyer un support !

Pas envie de reproduire une feuille

à+....

Pardon... je n'avais pas vu que je pouvais joindre un fichier

https://www.excel-pratique.com/~files/doc2/Classeur_demo.xlsx

re,

essaye,

Sub extrait()
' de Claude pour "gam" le 18 août 09
Dim Lg As Integer, Cel As Range
        Lg = Range("A65536").End(xlUp).Row
    For Each Cel In Range("a1:a" & Lg)
        If Cel <> "" Then
            Cel.Copy
            With Range("Extraction!A65536").End(xlUp)(2)
                .PasteSpecial Paste:=xlValues
            End With
                Application.CutCopyMode = False
        End If
    Next Cel
End Sub

Fichier:

https://www.excel-pratique.com/~files/doc2/gam.xls

Claude

dubois a écrit :

re,

essaye,

Sub extrait()
' de Claude pour "gam" le 18 août 09
Dim Lg As Integer, Cel As Range
        Lg = Range("A65536").End(xlUp).Row
    For Each Cel In Range("a1:a" & Lg)
        If Cel <> "" Then
            Cel.Copy
            With Range("Extraction!A65536").End(xlUp)(2)
                .PasteSpecial Paste:=xlValues
            End With
                Application.CutCopyMode = False
        End If
    Next Cel
End Sub

Fichier:

https://www.excel-pratique.com/~files/doc2/gam.xls

Claude

dans la feuille, je clique sur "Macro" mais ne vois pas de difference... (pas expert, peut-etre que je ne m'y prend pas bien, mais je patauge...

re,

le résultat est sur une autre feuille comme demandé (ici Extraction)

Pour répondre aux messages, utilise "répondre" en bas, plutôt que "Citer"

Claude

oui, vu.

C'est bien le résultat que je cherche, mais est-il possible que l'affichage soit automatique, à l'ouverture du fichier ? ce qui serait, pour le coup, exactement ce que je cherche à obtenir!

si tu le souhaites, je px te passer la réalité du fichier: tu pourrais ainsi te rendre exactement compte?

(grand merci, en tout cas de ton aide)

Bonjour à tous,

si tu le souhaites, je px te passer la réalité du fichier

C'est même par là qu'il fallait commencer !

Ajoute des commentaires expliquant ce que doit faire la ou les macros.

Amicalement

Claude.

voila qui est répare...

je cherche à obtenir l'effet sur la 1e page ("Tableau de Bord")

re,

J'ai ouvert ton fichier, je ne donne pas suite à cette véritable "usine à gaz" que toi-seul

peux comprendre.

essaye d'adapter ma 1ère réponse à ce fichier.

désolé !

Amicalement

Claude.

grand merci quand même... j'étais pourtant preneur de tout conseil de simplification... j'ai fait avec mes moyens

Je regrette la porte que me ferme M. Dubois, Maitre Excel, de si facon catégorique et j'espère que quelqu'un pourra venir à mon aide.

Cordialement, avec mes remerciements