Récupération données d'un tableau avec listing

[eduraiss]

Bonjour le forum

Voila j'ai un tableau qui me sert a cartographier les postes, j'aimerais avoir une synthèse sous forme de listing de ce tableau

Voici un dossier exemple

merci

 

[Paf]

Re : Récupération données d'un tableau avec listing

Bonjour

Peut-être ce code convient-il .

Sub eduraiss()
 Dim WS1 As Worksheet, WS2 As Worksheet
 Dim DerLig As Integer, i As Integer, j As Byte, Lign As Long

 Set WS1 = Worksheets("Feuil1")
 Set WS2 = Worksheets("Feuil3")

 DerLig = WS1.Range("L" & Rows.Count).End(xlUp).Row
 Lign = 0

 For i = 2 To DerLig
    Lign = Lign + 1
    WS2.Cells(Lign, 1) = WS1.Cells(i, 12)
    For j = 21 To 29
        If WS1.Cells(i, j) <> "" Then
            Lign = Lign + 1
            WS2.Cells(Lign, 1) = WS1.Cells(1, j)
            WS2.Cells(Lign, 1).HorizontalAlignment = xlCenter
            WS2.Cells(Lign, 2) = WS1.Cells(i, j)
        End If
    Next
 Next
                       
End Sub

A+

 

[eduraiss]

Re : Récupération données d'un tableau avec listing

Bonjour le forum

Merci Paf c'est exactement ce qu'il me fallait, il me manque juste un truc si possible, avoir les postes sur la feuil3 avec un format, font jaune, en gras et en police 16

merci encore

 

[gosselien]

Re : Récupération données d'un tableau avec listing

avec ceci, ça a l'air de fonctionner (le code est de Paf, j'ai juste ajouté qq lignes)

Sub eduraiss()
Application.ScreenUpdating = False
Dim WS1 As Worksheet, WS2 As Worksheet
Dim DerLig As Integer, i As Integer, j As Byte, Lign As Long

Set WS1 = Worksheets("Feuil1")
Set WS2 = Worksheets("Feuil3")

DerLig = WS1.Range("L" & Rows.Count).End(xlUp).Row
Lign = 0

For i = 2 To DerLig
Lign = Lign + 1
WS2.Cells(Lign, 1) = WS1.Cells(i, 12)
For j = 21 To 29
If WS1.Cells(i, j) <> "" Then
Lign = Lign + 1
WS2.Cells(Lign, 1) = WS1.Cells(1, j)
WS2.Cells(Lign, 1).HorizontalAlignment = xlCenter
WS2.Cells(Lign, 2) = WS1.Cells(i, j)
WS2.Cells(Lign, 2).Select
With Selection.Interior
.Color = 65535
End With
Selection.Font.Bold = True
With Selection.Font
.Name = "Calibri"
.Size = 16
End With
End If
Next
Next
End Sub

 

[Paf]

Re : Récupération données d'un tableau avec listing

re

juste après WS2.Cells(Lign, 1) = WS1.Cells(i, 12)

rajouter

    With WS2.Cells(Lign, 1)
        .Interior.ColorIndex = 6
        .Interior.PatternColorIndex = xlAutomatic
        .Font.Size = 16
        .Font.Bold = True
    End With

Bonne suite

Edit:

Bonjour gosselien

a priori il y a divergence sur ce qu'est un poste; eduraiss a tous les éléments , il pourra adapter

 

[eduraiss]

Re : Récupération données d'un tableau avec listing

Re

Merci beaucoup, c'est parfait

Cordialement,

 

[gosselien]

Re : Récupération données d'un tableau avec listing

Désolé si je me suis mêlé de la chose , si c'est ça que tu veux dire, je n'ai rien fais d'autre que de tenter - moins bien que toi - d'aider la personne qui posait une autre question.
Patrick

 

[Paf]

Re : Récupération données d'un tableau avec listing

Re à tous

@ gosselien si le post est pour moi, Pas de soucis !!

Quand je parlais de divergence sur ce qu'est un poste c'est par rapport à la demande de eduraiss

avoir les postes sur la feuil3 avec un format.......

tu proposais un code pour la colonne B de la feuille 3
j' en proposais un pour la colonne A de la feuille 3

d'où la divergence...

A+