Transfert de données entre onglets à partir d'une liste

[didinelfange]

Bonjour,

J'ai un tableau qui est actuellement beaucoup trop grand pour être lisible. Je souhaiterai via une macro pouvoir transposer automatiquement l'appli1 dans la feuil2, l'appli2 dans la Feuil3....

Je vous joins le tableau avec le rendu souhaité, Je vous remercie par avance de votre réponse.

Bonne journée.

 

[ERIC S]

Re : Transfert de données entre onglets à partir d'une liste

Bonjour

a tester en B1 des feuilles 2 3 4 et tirer

=DECALER(Feuil1!B2;EQUIV($A$1;Feuil1!$A:$A;0)-2;0)

 

[didinelfange]

Re : Transfert de données entre onglets à partir d'une liste

Bonjour,

Je vous remercie pour votre réponse, mais cette formule ne convient pas à mon besoin. En effet, j'ai besoin d'une macro car ce fichier est amené à bouger fréquemment et doit être adaptable en cliquant sur un simple bouton.
Jusqu'alors, la macro que j'ai faite crée automatiquement un onglet par appli mais ces onglets sont vides jusqu'à maintenant. Je dois donc rentrer une commande pour dégrouper le tableau par appli et coller les morceaux dans les onglets appropriés.

Je vous remercie par avance de votre réponse.

 

[ERIC S]

Re : Transfert de données entre onglets à partir d'une liste

RE

a tester

Sub es()
With Sheets("feuil1")
For i = 2 To .Range("B" & Rows.Count).End(xlUp).Row
    If Not IsEmpty(.Range("A" & i)) Then
        lignedeb = i
        i = i + 1
        While IsEmpty(.Range("A" & i)) And Not IsEmpty(.Range("B" & i))
            i = i + 1
        Wend
        lignefin = i - 1
        Sheets.Add After:=Sheets(Sheets.Count)
        .Rows(lignedeb & ":" & lignefin).Copy
        ActiveSheet.Paste
        
    End If
Next
End With
End Sub

 

[didinelfange]

Re : Transfert de données entre onglets à partir d'une liste

Bonjour, je vous remercie énormément pour votre aide. Cela fonctionne à merveille.