Extraction ligne en fonction données d'une colonne

Bonjour à tous,

J'ai une feuille de calcul avec une dizaine de colonne et environ 10000 lignes.

Je souhaite extraire (couper et coller sur un autre onglet) certaines lignes (qui vont par pair).

La donnée à prendre en compte est dans la première colonne, lorsque le contenu est identique avec uniquement la lettre A et B à la fin.

Les lignes à extraire sont toujours par deux avec A et B en fin de cellule. A est toujours au dessus de B.

Voici un exemple avec une extraction de ma première colonne

Il y aura donc dans ce cas 8 lignes à extraire

11034-A (à extraire)

11034-B (à extraire)

1120-A

1121-A

112570-A

113-A

113.558

113.787-A (à extraire)

113.787-B (à extraire)

114-A

11691-A (à extraire)

11691-B (à extraire)

117-A RRS

12 X R

12-476-AT-A (à extraire)

12-476-AT-B (à extraire)

Je vous remercie d'avance pour votre aide.

Bonjour,

Une proposition avec une macro qui effectue l'extraction en Feuil1 et le collage en Feuil2

A+

Bonjour

Bonjour Frangy

Une autre version : je n'ai compris la même chose que Frangy.

Bye !

Bonjour,

Merci pour vos réponses mais je n'arrive pas à voir les macros dans vos fichiers.

Voici un fichier excel avec un exemple plus précis

3 onglets:

• original
• extraction
• original après extraction

Je l'ai fait manuellement, j'ai besoin d'automatiser cela.

Merci d'avance pour votre aide.

Je tiens à préciser que je n'ai jamais utilisé de macro alors si une formule est posssible ce serait plus facile pour moi. Encore merci.

Nouvelle version.

Pour voir le code, faire : Alt et F11 simultanément.

OK ?

Bye !

Bonjour Gmb,

Merci pour votre aide mais je suis pas chanceux ou pas doué.

Je suis sur macbookpro avec openoffice et quand je clique sur alt + F11 il ne se passe rien.

Quand je sélectionne outil, macros, executer une macro l'appli plante et se ferme.

Y a t il un moyen d'avoir une formule ici que je puisse copier et coller dans mon fichier?

Merci d'avance.

Je suis désolé mais n'ayant pas de Mac, je suis incapable de te dire comment on y affiche les macros : ouvre un nouveau fil pour poser cette question, tu auras sûrement une réponse.

Elle pourra t'être utile.

Voilà toujours le code :

Option Explicit

Dim fe, foe, plage, ln, u(), v(), i, j, k

Sub Extractions()

    Set fe = Sheets("Extractions")
    Set foe = Sheets("Original après extraction")
    plage = Range("A1:J" & Range("A" & Rows.Count).End(xlUp).Row)

    fe.Range("A1").CurrentRegion.Offset(1, 0).ClearContents
    foe.Range("A1").CurrentRegion.Offset(1, 0).ClearContents

    i = 0
    k = 0
    For ln = 2 To UBound(plage, 1) - 1
        ReDim Preserve u(10, i + 2)         'A adapter : 10 pour 10 colonnes ...
        ReDim Preserve v(10, k + 1)
        If Split(Range("A" & ln), "-")(0) = Split(Range("A" & ln + 1), "-")(0) _
                And Range("A" & ln) Like "*-*" = True _
                And Range("A" & ln + 1) Like "*-*" = True Then
            For j = 0 To 9                  'A adapter : de 0 à 9 pour 10 colonnes
                u(j, i) = plage(ln, j + 1)
                u(j, i + 1) = plage(ln + 1, j + 1)
            Next j
            i = i + 2
            ln = ln + 1
        Else
            For j = 0 To 9
                v(j, k) = plage(ln, j + 1)
            Next j
            k = k + 1
        End If
    Next ln
    fe.Range("A2").Resize(UBound(u, 2), 10) = Application.Transpose(u())
    foe.Range("A2").Resize(UBound(u, 2), 10) = Application.Transpose(v())
    fe.Select
End Sub

Bye !