extraire de cellule x à cellule y

boulbidule · 13 Mai 2015

Bonjour à tous 🙂

je cherche à copier via mots clés de cellule X à cellule Y vers onglet 2 par exemple

en fait j'ai pas le même nombre de ligne dans chacun de mes exemples,

du coup je pensais dire copier de tel mot à tel mot

par exemple ci dessous pour extraire les prénoms

je pensais faire une règle qui copie de : "bien" à "ce"

merci pour votre aide (très très précieuse 😉 )

job75 · 14 Mai 2015

Re : extraire de cellule x à cellule y

Re,

En fait je n'avais pas besoin de formule matricielle en B2 :

Code:

=REPT(A2;(NB.SI(A$1:A1;"bien")>NB.SI(A$1:A1;"ce"))*(A2<>"ce"))

Cela suppose qu'entre 2 "bien" il y ait un seul "ce" [Edit] et pas de "ce" avant le 1er "bien".

La macro, un peu plus simple :

Code:

Sub JOB()
duree = Timer
Application.ScreenUpdating = False
[B:B].ClearContents
With [A1].CurrentRegion.Offset(1, 1)
  .Cells(0) = "Liste"
  .FormulaR1C1 = "=REPT(RC[-1],(COUNTIF(R1C[-1]:R[-1]C[-1],""bien"")>COUNTIF(R1C[-1]:R[-1]C[-1],""ce""))*(RC[-1]<>""ce""))"
  .Value = .Value 'supprime les formules
  .Sort .Cells, xlAscending, Header:=xlNo 'tri
End With
MsgBox "Durée " & Format(Timer - duree, "0.00 \s")
End Sub

Mais ça n'améliore guère le résultat => 27 secondes.

A+

extraire de cellule x à cellule y

boulbidule

XLDnaute Nouveau

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

Discussions similaires

extraire de cellule x à cellule y

boulbidule

XLDnaute Nouveau

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

Discussions similaires

Privacy & Transparency

Privacy & Transparency