regroupement de cellules

[JJ1]

Bonjour,
Je souhaiterais une aide pour faire un regroupement de cellule sous condition >0.
Une condition si seule ne va pas car il y a des cellules vides entre chaque valeur.
Je joins un petit exemple zippé.
merci à tous et bonne journée.

 

[Claudy]

Re : regroupement de cellules

Hello , une solution, voir annexe,
a+
Claudy

 

[JJ1]

Re : regroupement de cellules

Bonjou Claudy et merci pour ton filtre, mais j'aurais besoin d' une formule vu mon tableau.
Bon samedi

 

[CB60]

Re : regroupement de cellules

Bonjour
Regarde si cela te convient?

 

[Claudy]

Re : regroupement de cellules

Re,
par macro:

Sub Macro1()
i = 0
For Each cel In Range("E13:E24")
If cel.Offset(0, 2).Value > 0 Then

Range("L" & 13 + i) = cel.Value
i = i + 1
End If

Next


End Sub
a+
Claudy

 

[BOISGONTIER]

Re : regroupement de cellules

Bonjour,

Liste triée:

=SI(ESTNUM(PETITE.VALEUR(SI(G13:G24>0;E13:E24);LIGNE(INDIRECT("1:"&LIGNES(E13:E24)))));PETITE.VALEUR(SI(G13:G24>0;E13:E24);LIGNE(INDIRECT("1:"&LIGNES(E13:E24))));"")
Valider avec Maj+ctrl+entrée

Liste dans l'ordre initial:

=SI(ESTNUM(INDEX(E13:E24;PETITE.VALEUR(SI(G13:G24>0;LIGNE(E13:E24)-LIGNE(E13)+1);LIGNE(INDIRECT("1:"&LIGNES(E13:E24))))));INDEX(E13:E24;PETITE.VALEUR(SI(G13:G24>0;LIGNE(E13:E24)-LIGNE(E13)+1);LIGNE(INDIRECT("1:"&LIGNES(E13:E24)))));"")
Valider avec Maj+ctrl+entrée

JB
Formation Excel VBA JB

 

[JJ1]

Re : regroupement de cellules

Bonjour CB60, Boisgontier, le Forum
Re Claudy (merci pour ta macro)
Merci pour ces 2 manières d'arriver au résultat et, dans les 2 cas, quelles formules ! .....Bravo! (je vais d'abord prendre un Aspro.....comme apéro !)
Encore merci
Bon WE