Discussion :

[alunama]

Bonjour à tous,

Je dispose d'un fichier excel dans lequel j'ai un tableau qui sur chaque ligne présente des données identifiées par un code unique.

Je souhaiterais regrouper ces données sur une autre feuille excel en fonction du code unique identifiant la ligne, tout en proposant un formattage des donneés.

Est-ce que quelqu'un aurait un algorithme qui permettrait de créer sur une même feuille de données autant de tableau que j'ai de code identifiant unique ?

Merci d'avance de votre réponse

[ouskel'n'or]

Quelques précisions nous permettrait (peut-être) de t'aider.
As-tu plusieurs fois le même code dans ta feuil1 ?
Qu'y aura-t-il dans tes tableaux ? Les lignes rassemblées de la feuil1 correspondant à un code unique ?
Un tableau des données organisées différemment ?

[Gorfael]

Salut alunama

Je dispose ...des données identifiées par un code unique.
Je souhaiterais regrouper ces données sur une autre feuille en fonction du code unique identifiant ..., tout en proposant un formattage des donneés.
... un algorithme ...?

- tu fait une boucle sur ta colonne d'identifiants
- tu vérifies qu'il n'existe pas sur la feuille destination
- tu filtres ta feuille origine sur l'identifiant (filtre Auto)
- tu copies et tu colles sur la feuille destination
- tu mets en forme les données sur la feuille destination
A+
Edit : encore grillé par l'homme qui répond plus vite que son ombre

[ouskel'n'or]

Edit : encore grillé par l'homme qui répond plus vite que son ombre

Eh non, j'en suis encore à me poser des questions... donc je suis mort !

[alunama]

Mon tableau initial est de la forme

Code unique Commentaire Valeur
1 hello 1
1 Salut 2
2 bonjour 1
2 hi 3

et je veux obtenir sur une autre feuille 2 tableaux

Code unique Commentaire Valeur
1 hello 1
1 Salut 2
Total 3

Code unique Commentaire Valeur
2 bonjour 1
2 hi 3
Total 4

Voilà, et merci encore

[Gorfael]

Salut
un truc du genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub Test()
Dim X As Long
Sheets("Origine").Copy After:=Sheets("Origine")
ActiveSheet.Name = "destination"
X = 3
Do
    If (Range("A" & X) <> Range("A" & X - 1)) And Range("A" & X) <> "" Then
        Range(Rows(X), Rows(X + 1)).Insert
        X = X + 1
        Rows(1).Copy Rows(X)
        X = X + 2
    End If
    X = X + 1
Loop Until X > [A65536].End(xlUp).Row
End Sub

A+