Macro création de ligne suivant colonne

Version imprimable

13/05/2008, 11h37
mik388

Macro création de ligne suivant colonne

Bonjour,

Actuellement j'ai un tableau avec une ligne par nom de salarié et 100 colonnes "intitulé de formation" non vide si le salarié souhaite faire cette formation.

Je souhaiterais n'avoir que 2 colonnes (Nom et Formation) avec donc autant de lignes avec le même nom que le salarié souhaite faire de formation.

Mes connaissances en VBA étant très lointaines, quelqu'un aurait-il l'amabilité de me donner le petit bout de code qui me permettrait de faire ça automatiquement.

Merci d'avance
mik

Tableau actuel:
NOM|FORMATION 1|FORMATION 2|FORMATION 3|etc...
toto|oui...............|-------------|oui..............|

Tableau souhaité:
NOM|FORMATION
toto|formation 1
toto|Formation 3
etc...
13/05/2008, 12h43
ouskel'n'or

Bonjour Mik, bienvenue sur le forum.
Bien que tes "connaissances en VBA sont très lointaines", je suppose que tu as une idée. Alors propose-nous quelque chose et l'on pourra t'aider.
DVP n'est pas un self-service. Ici tu trouveras un grand nombre de bonnes volontés pour t'aider mais le principe du forum n'est pas de faire le travail pour les autres, seulement d'aider.
Propose-nous un début de code.
Déjà tu sais que tu dois parcourir la plage de données de ton premier tableau, ligne par ligne et colonne par colonne.
Ensuite il te faut un espace pour le second tableau. Dans une autre feuille ?
Enfin, il faut recenser et n'ajouter que les oui pour que la donnée du tableau 1 soit reportée sur le tableau 2.
Donc, tu dois incrémenter le N° de ligne de ce tableau en fonction des oui rencontrés.
Tu commences quelque chose et si tu as un pb, tu reviens nous poser une question. ;)
Bon courage.
13/05/2008, 14h32
mik388

Bonjour,

je me suis permis de demander ça comme ça et j'appelle ça "un petit bout de code" car je sais que quelqu'un qui maitrise (pour avoir pas mal développer à l'époque) cela lui prend 3 minutes.
Je n'ai pas pratiqué depuis 2001 mais je suis capable de proposer un algorythme si tu parles de cela.

Bonne journée

Bonjour tlm,

Je me lance dans une proposition
Tableau initial en feuille 1, nouveau tableau en feuille 2

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub test()
Dim i As Integer, j As Integer, r As Integer
Dim L As Integer, C As Byte
 
With Sheets(1)
    L = .Cells(Rows.Count, 1).End(xlUp).Row
    C = .Cells(1, Columns.Count).End(xlToLeft).Column
 
    r = 2
 
    For i = 2 To L
        For j = 1 To C
            If .Cells(i, j) <> "" Then
                Sheets(2).Cells(r, 1) = .Cells(i, 1)
                Sheets(2).Cells(r, 2) = .Cells(1, j)
                r = r + 1
            End If
        Next j
    Next i
End With
 
End Sub

13/05/2008, 20h06
mik388

Merci Fring ca fonctionne nickel.

ouskel'n'or, je comprends tout à fait ton post et j'essayerais de participer "mieux" à ce forum à l'avenir.
Le boulot demande parfois des résultats rapides, c'est surement ce qui m'a fait passer pour un faineant voulant profiter sans rien apporter...

Encore Merci,
a bientôt
mik