Discussion :

[sguillst]

Bonjour,

j'ai un fichier Excel avec ds la colonne A des noms et en entête de colonne les dates,pour définir la date de l'événement au croisement de la ligne et de la date j'affecte une valeur à la céllule (0.5 ou 1 ), je souhaiterai à partir de ce fichier , généré une feuille Excel avec le nom,la valeur de la cellule et la date ( voir fichier joint )

Pas facile d'expliquer mon besoin le fichier joint et plus parlant

si vous pouvez m’aider, j'en serai ravi



Merci pour votre aide

[gFZT82]

Bonjour,

Voici une proposition avec une copie transposée dans une autre feuille.

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
Sub Transposer()
Dim DerLig As Long, LigneS As Long, LigneC As Long
Dim DerCol As Integer, ColonneS As Integer
    With Worksheets("Feuil1")
        DerLig = .Range("A" & Rows.Count).End(xlUp).Row
        DerCol = .Cells(1, Columns.Count).End(xlToLeft).Column
        LigneC = 1
        For LigneS = 2 To DerLig
            If Application.CountIf(.Cells(LigneS, 2).Resize(, DerCol - 1), "<>") > 0 Then
                For ColonneS = 2 To DerCol
                    If .Cells(LigneS, ColonneS).Value <> "" Then
                        Worksheets("Feuil2").Range("A" & LigneC) = .Range("A" & LigneS).Value 'Nom
                        Worksheets("Feuil2").Range("B" & LigneC) = .Cells(LigneS, ColonneS).Value 'Valeur
                        Worksheets("Feuil2").Range("C" & LigneC) = .Cells(1, ColonneS).Value 'Date
                        LigneC = LigneC + 1
                    End If
                Next ColonneS
            Else
                Worksheets("Feuil2").Range("A" & LigneC) = .Range("A" & LigneS).Value 'Nom
                LigneC = LigneC + 1
            End If
        Next LigneS
    End With
End Sub

Cordialement.

[clementmarcotte]

Bonjour,

Avant de contrevenir à la politique du forum de ne pas joindre de fichier à la première question, ss-tu juste regardé la fonction Transpose dans tes fonctions d'Excel ?

Onglet Formules du Ruban.

Parce que si tu avais juste fait l'effort d'écrire "transposition de données" dans la fenêtre de recherche de l'aide, oui l'aide, d'Excel, tu l'aurais trouvée tout seul, bien plus vite qu'en venant sur le forum.