regroupement de cellules

JJ1 · 5 Avril 2008

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 · 5 Avril 2008

Re : regroupement de cellules

Hello , une solution, voir annexe,
a+
Claudy

JJ1 · 5 Avril 2008

Re : regroupement de cellules

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

CB60 · 5 Avril 2008

Re : regroupement de cellules

Bonjour
Regarde si cela te convient?

Claudy · 5 Avril 2008

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 · 5 Avril 2008

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 · 5 Avril 2008

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

regroupement de cellules

JJ1

Guest

Pièces jointes

Claudy

XLDnaute Accro

Pièces jointes

JJ1

Guest

CB60

XLDnaute Barbatruc

Pièces jointes

Claudy

XLDnaute Accro

BOISGONTIER

XLDnaute Barbatruc

Pièces jointes

JJ1

Guest

Discussions similaires