Extraire des réfs

Bonjour à tous,

Je suis bloqué sur un fichier excel pour renvoyer les références commençant par "aa" dans une autre colonne en les classant à suivre !

Pour être plus clair, je vous joins le fichier exemple

Merci d'avance

@+

Un ch'tit cadeau vers ce lien:

https://forum.excel-pratique.com/general/un-ch-tit-cadeau-pour-vous-t20882.html

Edit Dan : modifié titre du sujet. Enlevé "Besoin d'aide..."

Bonsoir,

Un essai avec une formule matricielle :

=SI(LIGNES($1:1)>NB.SI(zone;"aa*");"";INDIRECT(ADRESSE(ENT(PETITE.VALEUR(SI(GAUCHE(zone;2)="aa";(GAUCHE(zone;2)="aa")*LIGNE(zone)+(GAUCHE(zone;2)="aa")*COLONNE(zone)/1000);LIGNES($1:1)));MOD(PETITE.VALEUR(SI(GAUCHE(zone;2)="aa";(GAUCHE(zone;2)="aa")*LIGNE(zone)+(GAUCHE(zone;2)="aa")*COLONNE(zone)/1000);LIGNES($1:1));1)*1000)))

Formule matricielle à valider par CTRL + MAJ + ENTREE

à recopier vers le bas

Je te laisse tester

@+

Bonsoir à tous,

On se demande pourquoi avoir fait 2 tableaux cote à cote ?

Solution VBA (filtres)

Sub Filtre()
Dim Lg%
    Application.ScreenUpdating = False
    Range("k2") = "=LEFT(R[3]C[-8],2)=""aa"""
    Range("c4:c16").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
    Range("k1:k2"), CopyToRange:=Range("c19"), Unique:=False

    Lg = Range("c65536").End(xlUp).Row
    Range("k2") = "=LEFT(R[3]C[-5],2)=""aa"""
    Range("c" & Lg + 1) = Range("c19")
    Range("f4:g16").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
    Range("k1:k2"), CopyToRange:=Range("c" & Lg + 1), Unique:=False
    Rows(Lg + 1).Delete
    Range("k2").ClearContents
End Sub

Amicalement

Claude

bonjour

tulipe face aux maitres

après un essai vain avec "aa"&"*" ........... cela fonctionne enfin

bonne nuit

Bonjour à tous,

Merci à thibo, dubois et tulipe_4 pour vos réponses rapides et très pro.

Les formules sont un peu longues sur Excel pour arriver à nos fins.

Bonne continuations à vous et encore merci pour votre aide

Cordialement

Fabex

Bonjour,

Reçu en MP:

Bonjour dubois,

Je vais retenir ta formule ... merci pour ta réponse rapide et très pro !

Cordialement

Fabex

Merci de rester sur le fil du forum

Amicalement

Claude