Génération d'un tableau formaté à partir de données Excel

Version imprimable

27/03/2008, 11h07
alunama

Génération d'un tableau formaté à partir de données Excel

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
27/03/2008, 12h32
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 ?
27/03/2008, 12h40
Gorfael

Salut alunama

Citation:

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 :P
27/03/2008, 13h02
ouskel'n'or

Citation:

Envoyé par Gorfael

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

Eh non, j'en suis encore à me poser des questions... donc je suis mort ! :mouarf:
28/03/2008, 10h11
alunama

Merci de vos réponses

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

Salut
un truc du genre

Code:

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+