Regrouper des cellules en "évitant les cellules vides"

[Deleep]

Bonjour à tous,

Voici ma question.

Je dois faire un tableau reprenant une liste de rapports.
Pour chacun, je dois spécifier si le rapport est complet (Oui/non).
Je voudrais pouvoir regrouper les rapports incomplets sur une autre feuille, mais de sorte à ce qu'il s'inscrivent les uns à la suite des autres, sans lignes vides entre eux.

J'espère que ma question est claire 🙂

Voici le fichier.
Merci d'avance,
Deleep

 

[Staple1600]

Re : Regrouper des cellules en "évitant les cellules vides"

Bonjour

Tu peux utiliser le filtre automatique non ?

Ou le filtre élaboré pour une recopie

 

[JHA]

Re : Regrouper des cellules en "évitant les cellules vides"

Bonjour,

ou par TCD

JHA

 

[Staple1600]

Re : Regrouper des cellules en "évitant les cellules vides"

Re, Bonjour JHA, Jean-Marcel


Puisque qu'on parle de macro 😉

Sub Macro1()
Dim filtre As Range, a As Range
[B1].AutoFilter Field:=2, Criteria1:="Oui"
Set filtre = [_FilterDataBase]
Set a = filtre.Offset(1, 0).Resize(filtre.Rows.Count - 1).SpecialCells(12).Columns(1)
a.Copy Sheets("Rapports Incomplets").[A65536].End(xlUp)(2)
End Sub

 

[Calvus]

Re : Regrouper des cellules en "évitant les cellules vides"

Bonjour à tous,

Une solution par formule matricielle.

Bonne journée

 

[hoerwind]

Re : Regrouper des cellules en "évitant les cellules vides"

Bonjour, salut Staple, JHA et Jean-Marcel, ... Calvus (pas vu !)

Il y a plusieurs possibilités :

- le filtre (Staple et Jean-Marcel)
- le TDC (JHA)
- la macro
- la formule matricielle (Calvus)
- la colonne intermédiaire

En pièce jointe je te propose la dernière possibilité.
Avantages :
- ce met à jour automatiquement
- procédure pas difficile à comprendre
- prend peu d'espace mémoire

 

[Calvus]

Re : Regrouper des cellules en "évitant les cellules vides"

Re,

En pièce jointe je te propose la dernière possibilité.
Avantages :
- ce met à jour automatiquement
- procédure pas difficile à comprendre
- prend peu d'espace mémoire

Il y a vraiment des maîtres de la formule ici. Bravo.

- le filtre (Staple et Jean-Marcel)
- le TDC (JHA)
- la macro
- la formule matricielle (Calvus)
- la colonne intermédiaire

En pièce jointe je te propose la dernière possibilité.

Question subsidiaire. Hoerwind, comment appellerais tu ta manière de faire ?😉

 

[Efgé]

Re : Regrouper des cellules en "évitant les cellules vides"

Bonjour à tous, au forum
puisque dans la liste d'hoerwind, il n'y a pas de nom pour la catégorie "Macro", je propose:

[COLOR=blue]Sub[/COLOR] test()
[COLOR=blue]Dim[/COLOR] Tablo
j = 0
[COLOR=blue]ReDim[/COLOR] Tablo(j)
[COLOR=blue]With[/COLOR] Sheets("Rapports")
    [COLOR=blue]For[/COLOR] i = 2 [COLOR=blue]To[/COLOR] .Range("A65536").End(xlUp).Row
        [COLOR=blue]If[/COLOR] .Cells(i, 2) = "Oui" [COLOR=blue]Then[/COLOR]
            Tablo(j) = .Cells(i, 1).Value
            j = j + 1
            [COLOR=blue]ReDim Preserve[/COLOR] Tablo(j)
        [COLOR=blue]End If[/COLOR]
    [COLOR=blue]Next[/COLOR] i
[COLOR=blue]End With[/COLOR]
Sheets("Rapports Incomplets").Range("A2").Resize([COLOR=blue]UBound[/COLOR](Tablo)) = Application.Transpose(Tablo)
[COLOR=blue]End Sub[/COLOR]

Cordialement

 

[hoerwind]

Re : Regrouper des cellules en "évitant les cellules vides"

Salut Calvus,

Faut-il vraiment donner un nom à chaque enfant ?

Je donne toujours la préférence à une solution par colonne intermédiaire si elle est plus simple à comprendre, donc à manipuler, qu'elle se met à jour automatiquement et qu'elle prend moins d'espace mémoire, même si cela fait moins "intelligent".

 

[Deleep]

Re : Regrouper des cellules en "évitant les cellules vides"

Perfectos les amigos !!

Merci beaucoup pour votre aide !