Transformer un tableau en colonne
Résolu/Fermé
A voir également:
- Transformer un tableau en colonne
- Tableau croisé dynamique - Guide
- Déplacer une colonne excel - Guide
- Tableau ascii - Guide
- Tableau word - Guide
- Colonne word - Guide
2 réponses
DjiDji59430
Messages postés
4036
Date d'inscription
samedi 19 avril 2008
Statut
Membre
Dernière intervention
25 avril 2024
646
18 oct. 2017 à 11:49
18 oct. 2017 à 11:49
Bonjour,
Une approche :
https://www.cjoint.com/c/GJsjWLMssJG
Cdlmnt
Une approche :
https://www.cjoint.com/c/GJsjWLMssJG
Cdlmnt
Bonjour Azrog,
Fichier Excel 2007 : https://mon-partage.fr/f/fe0N7g6r/
À l'ouverture du fichier, tu es sur Feuil2 : entièrement vide ;
va sur Feui1, où tu peux voir toutes tes données ; Ctrl e =>
travail effectué (tu peux faire Ctrl e depuis Feuil2 aussi).
Alt F11 pour voir la macro, puis revenir sur Excel
Merci de me donner ton avis.
Cordialement
Fichier Excel 2007 : https://mon-partage.fr/f/fe0N7g6r/
À l'ouverture du fichier, tu es sur Feuil2 : entièrement vide ;
va sur Feui1, où tu peux voir toutes tes données ; Ctrl e =>
travail effectué (tu peux faire Ctrl e depuis Feuil2 aussi).
Alt F11 pour voir la macro, puis revenir sur Excel
Merci de me donner ton avis.
Cordialement
Bonjour Azrog,
Si tu veux essayer aussi une solution VBA :
Option Explicit
Sub Essai()
Dim dlig&, lig1&, lig2&, col%, v1 As Date, v2%
Application.ScreenUpdating = False: Worksheets(1).Select
With Worksheets(2)
.Range("A1:B" & .Cells(Rows.Count, 1).End(xlUp).Row).ClearContents
dlig = Cells(Rows.Count, 1).End(xlUp).Row: lig2 = 1
For lig1 = 1 To dlig
v1 = Cells(lig1, 1): col = 2
Do
v2 = Cells(lig1, col): If v2 = 0 Then Exit Do
.Cells(lig2, 1) = Format(v1, "hh:mm"): .Cells(lig2, 2) = v2
lig2 = lig2 + 1: col = col + 1: v1 = v1 + 0.00694444
Loop
Next lig1
End With
Worksheets(2).Select
End Sub
⚠ Une 2ème feuille (vide) doit déjà exister.
Cordialement
19 oct. 2017 à 11:01
Ca fonctionne en effet !
Bon j'ai pas compris grand chose à la formule mais en m'y penchant je vais peut être y arriver ^^
19 oct. 2017 à 11:09
Exemple ;
Vendredi 01 Janvier 2017 00:00 56 76 78 89 98 76
Vendredi 01 Janvier 2017 01:00 56 76 78 89 98 76
.
.
.
Samedi 02 Janvier 2017 00:00 56 76 78 89 98 76
Samedi 02 Janvier 2017 01:00 56 76 78 89 98 76
Donnerait :
Vendredi 01 Janvier 2017 00:00 56 76 78 89 98 76
Vendredi 01 Janvier 2017 00:10 56 76 78 89 98 76
etc
J'ai étiré les heures en pensant faire un SI(Date=00:00,Date+1;Date) mais je me retrouve des le 2ème jour avec le format suivant :
23:40
23:50
00:00
01/01/1900 00:10:00
01/01/1900 00:20:00
Qui fait buger le SI bien entendu.
Modifié le 19 oct. 2017 à 14:59
en a2 01/01/201/ 00:00
en a3 01/01/201/ 00:10
et tu étires autant tu veux !!
et tu appliques ta formule en B2
PS : il est important de présenter son problème de façon exhaustive, les solutions dépendant aussi du contexte.
Et un fichier test facilite grandement la tache !!
19 oct. 2017 à 13:56