Macro recherche données

[mathieu13950]

Bonjour,

J'ai une extraction qui se présente ainsi sur 3 colonnes :

| A | 1000€
| A | 1000€
010005 | A | 1000€
010005 | B | 1000€
010005 | B | 1000€
010010 | C | 1000€
010010 | C | 1000€

Je voudrais lancer une recherche dans la colonne A (la première) pour que dès qu'il trouve un élément, il copie cet élément dans un autre onglet puis les 2 cases qui sont à sa droite. Il revient dans la colonne A, il reprend sa recherche, si l'élement dessous et le même que lui de dessus, il le copie sur le même onglet que l'autre, si il est différent, il le copie sur un autre onglet. Et ainsi de suite....
J'espère avoir été suffisament clair.

Et j'ai une autre question svp :
J'ai une case qui fait apparaitre le résultat suivant :
08000013 FAC 1101009 ORANGE
08000013 FAC 1101010 SFR

Je voudrais à l'aide des fonctions gauche/droite enlever les 21 premies caractères pour n'avoir que "orange" ou "sfr".

Merci pour votre aide.

Bonne fin de journée

Cordialement

Mathieu

 

[Softmama]

Re : Macro recherche données

Pour la seconde question :

=Droite(A1;NBCAR(A1)-21)

 

[Softmama]

Re : Macro recherche données

Pour la première question: un essai ici mais à tester, j'ai la flemme de faire un fichier exemple...

Sub testGoVazy()
Dim c As Range

Set c = Range("A1")
Do While c <> ""
    If c.Row = 1 Then
        Sheets.Add After:=Sheets(Sheets.Count): ActiveSheet.Name = c
    Else
      If c <> c(0, 1) Then Sheets.Add After:=Sheets(Sheets.Count): ActiveSheet.Name = c
    End If

    c.Resize(1, 3).Copy Sheets(c.Text).Range("A65536").End(xlUp).Offset(1, 0)
    Set c = c(2, 1)
Loop
End SUb

 

[klin89]

Bonsoir mathieu13950, Softmama
Bonsoir à tous,

Vois ce fil :

https://www.excel-downloads.com/thr...ans-une-cellule-dans-un-nouvel-onglet.157918/

Klin89

 

[mathieu13950]

Re : Macro recherche données

Bonjour à tous,

Merci pour vos réponses.
Par contre j'ai une dernière question SVP :

J'ai un fichier comportant 3 colonnes. Dans ma deuxième colonne, j'ai des numéros de comptes qui apparaissent, et pour chauqe ligne d'un numéro de compte j'ai un code. J'aimerai que ce code soit remplacé par le numéro de compte correspondant. Quelqu'un pourrait m'aider ?

Merci par avance.

Je vous joins le fichier en état brut et avec le résultat que j'aimerai obtenir.

Bonne journée

 

[mathieu13950]

Re : Macro recherche données

Re bonjour à tous

Je déplace ma question sur une nouvelle discussion pour terminer celle ci

Encore merci pour votre aide.