Discussion :

[kris513]

J'aimerai utiliser les macro pour me simplifier la vie sous excel mais j'ai beaucoup de mal.

Ma première étape est de créer une nouvelle feuille. Ca c'est bon j'ai reussi

Code :

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

1
2
3
4
5
Sub InsereFeuille()
Dim shtest As Worksheet
Set shtest = Sheets.Add (After : sheets.count)
shtest.Name = "test"
End sub

Deuxièmement, j'ai un tableau avec des niveaux comme celui ci

http://www.heberger-image.fr/data/im...23_excel_1.jpg

J'aimerai creer ce style de tableau automatiquement

http://www.heberger-image.fr/images/...cel_2.jpg.html

Je m'explique, j'aimerai que si j'ai par exemple 4 objets, ça me creer un tableau allant d'objet 1 à 4.

Voila je ne sais pas si c'est clair merci pour votre aide

[vanhoa]

Bonjour,

tes liens images ne fonctionnent pas

[casefayere]

Bonjour à tou(te)s,

je suis dans le même cas que vanhoa, pour insérer une image, fais comme si tu insérais un fichier et sélectionnes l'image sur ton PC.

Bonne journée à tou(te)s

[kris513]

Voila ça fonctionne merci

[vanhoa]

Kris, voila un code.
Une fois que tu as ta feuille "test" cree (cette nouvelle feuille est donc vierge), active le code de cette procedure
Attention au noms des feuilles. J'ai utilise l'exemple du tableau que tu as donne: http://www.heberger-image.fr/images/...cel_2.jpg.html
et je l'ai mis dans la 1ere feuille nommee "Sheet1".

Attention aux noms des feuilles, le nom interne de ma feuille est Sheet1 car j'ai Excel anglais. Le code ne marchera pas si tu ne definis pas le nom interne des feuilles comme celui du code!

Note, dans la 2eme image tu as mis une colonne nommee "DESCRIPTION", mais dans le code que je te mets, je ne l'ai pas remise, car selon ton 1er tableau, "DESCRIPTION" correspond aux divers Objet (allant de 1 a 4 dans ton exemple)

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
Public Sub CreationTableau()
Dim VarX As Long, i As Long, NbObjet As Long
Dim tab_entete() As String
 
NbObjet = WorksheetFunction.CountA(Sheet1.Columns(2)) - 1
 
ReDim tab_entete(NbObjet * 3 - 1)
VarX = 0
 
For i = 2 To Sheet1.Cells(Rows.Count, 2).End(xlUp).Row
    If WorksheetFunction.CountIf(Range(Sheet1.Cells(1, 2), Sheet1.Cells(i - 1, 2)), Sheet1.Cells(i, 2).Value) = 0 And Sheet1.Cells(i, 2) <> "" Then
        VarX = VarX + 1
        tab_entete((VarX - 1) * 3) = Sheet1.Cells(i, 2).Value
        tab_entete((VarX - 1) * 3 + 1) = ""
        tab_entete((VarX - 1) * 3 + 2) = ""
    Else
    End If
Next i
 
Worksheets("test").Cells(2, 1) = "ITEM"
For i = 0 To NbObjet * 3 - 1
    Worksheets("test").Cells(1, i + 2) = tab_entete(i)
Next i
 
For i = 0 To NbObjet - 1
    Worksheets("test").Cells(2, i * 3 + 2) = "Quantite"
    Worksheets("test").Cells(2, i * 3 + 2 + 1) = "Prix Unitaire"
    Worksheets("test").Cells(2, i * 3 + 2 + 2) = "Total"
Next i
 
End Sub

[hologram]

Sinon regarde du côté de Cells("A1") = "texte", ou range("A1").value = "texte", où A1 est les coordonnées de ta cellule.