Discussion :

[mouftie]

Bonjour,
J'ai un fichier sous la forme

N°! NOM    ! Prénom ! Activité ! Lieu... 
1 ! Durant ! Marc   ! TC       ! 1er 
2 ! Job    ! Léo    ! TC       ! 19e

Je voudrais avoir mes données

Col1 ! Col2 
N°   ! Nom 
     ! Prénom 
     ! Activité 
     ! Lieu 
1    ! Durant 
     ! Marc 
     ! TC 
     ! 1er 
2    ! Job 
     ! Léo 
      ... 

(!repésente les colonnes)
Les nb de colonnes et de lignes sont aléatoires et le résultat sur une autre feuille
Est-ce que quelqu'un peut m'aider, svp.
Merci

[vinc_bilb]

Bonjour,

Je vous suggère de commencer en mode enregistrement macro + utilisez les fonctions collage + transposition pour Nom, Prénom, .... et de regarder ce que celà donne, ça sera plus enrichissant que de vous fournir en bout de code.
Par curiosité, je suis curieux de savoir pourquoi vous avez besoin d'un tel format de sortie, peut facile à réutiliser par ailleurs ....

Bonne journée

[Daniel.C]

Bonjour,

Les données initiales étant sur "Feuil1" et les résultats sur "Feuil2", essaie :

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
Sub test()
    Dim Plage As Range, C As Range, Ligne As Long, Col As Integer
    With Sheets("Feuil1") 'feuille contenant les données
        Set Plage = .Range("B1", .Cells(.Rows.Count, 2).End(xlUp))
    End With
    With Sheets("Feuil2") 'feuille contenant les données
        For Each C In Plage
            If C.Offset(, -1) <> "" Then
                Ligne = Ligne + 1
                .Cells(Ligne, 1) = C.Offset(, -1).Value
                Col = 1
            Else
                Col = Col + 1
                .Cells(Ligne, Col) = C.Value
            End If
        Next C
    End With
End Sub

Je reste à ta disposition pour tout complément d'information.

[Marc-L]

Bonjour !

Données sur la feuille 1 en bloc à partir de la cellule A1,
une variante somme toute classique à coller dans le module de la feuille résultat :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub Demo1()
    With Feuil1.Cells(1).CurrentRegion
        CC& = .Columns.Count - 1:  If CC = 0 Then Beep: Exit Sub
        NL& = 1:  Application.ScreenUpdating = False:  Cells(1).CurrentRegion.Clear
 
        For R& = 1 To .Rows.Count
                     Cells(NL, 1).Value = .Cells(R, 1).Value
          Cells(NL, 2).Resize(CC).Value = Application.Transpose(.Cells(R, 2).Resize(, CC).Value)
                                     NL = NL + CC
        Next
    End With
End Sub

Plus la source contient de lignes plus une variante utilisant des variables tableaux sera la plus rapide,
démonstration à coller également dans le module de la feuille résultat :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Demo2()
    With Feuil1.Cells(1).CurrentRegion
        CC& = .Columns.Count:   If CC < 3 Then Beep: Exit Sub
        RC& = .Rows.Count:      VA = .Value
    End With
                                ReDim AR(1 To RC * (CC - 1), 1 To 2)
    For R& = 1 To RC
        L& = L& + 1:  AR(L, 1) = VA(R, 1):  AR(L, 2) = VA(R, 2)
        For C& = 3 To CC:    L = L + 1:     AR(L, 2) = VA(R, C):    Next
    Next
 
    Cells(1).CurrentRegion.Clear
    Cells(1).Resize(UBound(AR), UBound(AR, 2)).Value = AR:  Erase AR, VA
End Sub

_________________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[mouftie]

Bonjour Vinc_bilb, Daniel, et Marc
Merci de vos réponses ; j'ai mis un peu de temps à répondre, car j'ai essayé de comprendre et de réutiliser
Vinc_bilb : j'ai créé une procédure pour la planification mensuelle des tâches et des permanences
J'ai créé une table agent, N°! NOM ! Prénom! Activité !Lieu... , facile à remplir et à mettre à jour
Mais dans mes feuilles de planification, j'ai besoin de récupérer ces infos dans le format demandé...
Daniel : ta poposition est à ma portée, j'ai donc pu l'aménager comme j'en avais besoin

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
Sub test()
Dim Plage As Range, C As Range, Ligne As Long, Col As Integer
Dim DerLg As Long, t As Single
t = Timer
DerLg = Sheets("Feuil1").Range("A600").End(xlUp)(1).Row
    Set Plage = Sheets("Feuil1").Range("A2:A" & DerLg)
With Sheets("Feuil4") 'feuille contenant les données
    Cells(1).CurrentRegion.Clear
    For Each C In Plage
            Ligne = Ligne + 1
            .Cells(Ligne, 1) = C.Offset(, 3).Value  'Cells(Lg,1) à remplir N°
            .Cells(Ligne, 2) = C.Offset(, 0).Value 'à coté => Nom
            .Cells(Ligne + 1, 2) = C.Offset(, 1).Value  'Dessous le prénom
            .Cells(Ligne + 2, 2) = C.Offset(, 2).Value  'Dessous le Métier
            Ligne = Ligne + 2
    Next C
End With
    MsgBox Timer - t    '3.288
End Sub

Marc: là j'ai du mal, mais c'est super - ça va vraiment très vite
Pour le Demo1 j'ai pu suivre et adapter ; pour Demo2, là j'ai beaucoup plus de mal ; il faut dire que tu joues beaucoup d'abréviations
Si tu pouvais détailler un peu

Code :

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

1
2
3
       For C& = 3 To CC:    L = L + 1:     AR(L, 2) = VA(R, C):    Next
...
    Cells(1).Resize(UBound(AR), UBound(AR, 2)).Value = AR:  Erase AR, VA

[Marc-L]

Code :

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

1
2
3
       For C& = 3 To CC:    L = L + 1:     AR(L, 2) = VA(R, C):    Next
...
    Cells(1).Resize(UBound(AR), UBound(AR, 2)).Value = AR:  Erase AR, VA

Tout découle du tutoriel, en le lisant cela deviendra donc clair !

• Ligne n°1 : C comme colonne, L comme ligne, R comme Row (ligne), Whou-Ou ‼

Rien qu'en regardant dans le code l'initialisation des variables CC & RC …

• Ligne n°3 : Copie la variable tableau dans la feuille de calculs puis réinitialise les variables (pas obligatoire) …

Rappel du B-A-BA : positionner le curseur texte sur une instruction puis appuyer sur la touche , tout est là !

Et ici ce n'est pas le forum dédié au VBA mais celui des formules de feuilles de calculs !
Si j'y avais prêté attention hier, je n'aurais rien posté …

_________________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[mouftie]

Bonjour Marc,

Merci de tes explications, désolée de t'avoir énervé. je ne sais pas de quel Tutoriel tu fais allusion, il n'y en a pas beaucoup qui traitent les Array et pour moi en tout cas, ce n'est pas évident.
Quant au choix VBA, j'étais partie sur l'idée d'une formule avec Décaler, mais j'ai changé d'avis...

Bonne fin de journée