Recherche + transposer

11exemple.xlsx (8.85 Ko)

Bonjour,

je n'arrive pas a automatiser une tâche donc je me demande si c'est possible par VBA.

c'est assez compliqué a expliqué donc je joint un fichier d'exemple. Dans le premier onglet il faudrait que la maccro une recherche v de la colonne A dans l'onglet 2 et qu'elle ramène les informations de la colonne b de l'onglet 2 dans l'onglet 1 mais horizontalement en changeant de cellule a chaque fois que c'est une nouvelle donné, Comme dans l'exemple sous "après maccro".

ne pas hésitez si besoin de plus d'information,

quelqu'un à une idée?

merci !

un essai

pour l'instant il faut sélectionner la zone des données de la feuille 2 et activer la macro recopie

si c'est l'esprit, je peux continuer, mais je pense qu'il me faudra plus d'explications sur le sujet réel

3recopie.xlsm (16.96 Ko)

Bonjour

Boujour à tous

Un autre essai à tester.

7exemple-v1.xlsm (25.84 Ko)

Bye !

Bonjour,

un essai

pour l'instant il faut sélectionner la zone des données de la feuille 2 et activer la macro recopie

si c'est l'esprit, je peux continuer, mais je pense qu'il me faudra plus d'explications sur le sujet réel

merci pour cet essai mais c'est pas l'objectif recherché, en même temps pas évident à comprendre

Bonjour

Boujour à tous

Un autre essai à tester.

Oui c'est bien ça à quelque chose près mais je peux l'utiliser tel quel, merci bien.

Cordialement,

Bonsoir à tous,

Essaie ceci :

Option Explicit
Sub test()
    Dim r As Range, i As Long, j As Long, n As Long, dico As Object
    Set dico = CreateObject("Scripting.Dictionary")
    dico.CompareMode = 1
    Application.ScreenUpdating = False
    With Sheets("feuil2")
        Set r = .Range("a1", .Cells(.Rows.Count, "a").End(xlUp))
        n = 1
        For i = 1 To r.Count
            j = 1
            Do Until r(i) <> r(i).Cells(j)
                dico(r(i).Cells(j).Offset(, 1).Value) = Empty
                j = j + 1
            Loop
            With Sheets("feuil1")
                .Cells(n, 1) = r(i).Value
                .Cells(n, 2).Resize(, dico.Count) = dico.keys
                n = n + 1
            End With
            dico.RemoveAll
            i = i + j - 2
        Next i
    End With
    Application.ScreenUpdating = True
    Set dico = Nothing
End Sub

klin89

Rechercher des sujets similaires à "recherche transposer"