Problème pour passer un tableau en une colonne

Fred -  
Fred11400 Messages postés 53 Statut Membre -
Bonjour,

J'ai récemment utilisé vos formules pour convertir un tableau en formule mais les valeurs ne correspondent pas tout le temps.

Pourquoi ?

Merci

4 réponses

  1.
    Patrice33740 Messages postés 8400 Date d'inscription   Statut Membre Dernière intervention   1 783
     
    Bonjour,

    Essaies de mettre un grand miroir face à ton écran pour
    qu'on puisse voir à quoi ressemble ton fichier.

    Si tu n'as pas de miroir, donnes nous les formules que tu utilises !
    0
    1. Fred11400 Messages postés 53 Statut Membre
       
      =DECALER($A$2;ENT((LIGNES($1:1)-1)/3);(LIGNES($1:1)-1)-ENT((LIGNES($1:1)-1)/3)*3)
      0
    2. Fred11400 Messages postés 53 Statut Membre
       
      En fait j'ai un tableau de 6 colonnes et 8636 lignes et j'aimerais le passer en seule colonne
      0
    3. Fred11400 Messages postés 53 Statut Membre
       
      J'ai essayé ces deux formules mais elles donnent le même résultat

      =DECALER($B$1;ENT((LIGNES($1:1)-1)/NBVAL($B$1:$G$1));MOD(LIGNES($1:1)-1;NBVAL($B$1:$G$1)))

      =DECALER($B$1;ENT((LIGNES($1:1)-1)/6);(LIGNES($1:1)-1)-ENT((LIGNES($1:1)-1)/6)*6)
      0
  2. Patrice33740 Messages postés 8400 Date d'inscription   Statut Membre Dernière intervention   1 783
     
    Re,

    Pour un tableau situé en A1:F8636, utiliser la formule (dans une nouvelle colonne, par exemple de H1) :
    =DECALER($A$1;MOD(LIGNE()-1;8636);ENT((LIGNE()-1)/8636))

    0
    1. Fred11400 Messages postés 53 Statut Membre
       
      J'ai essayé mais c'est toujours pas les mêmes valeurs
      0
    2. Fred11400 Messages postés 53 Statut Membre
       
      En fait cette formule permet de mettre les colonnes les unes a la suite de la première mais ce n'est pas ce que j'attends

      Ce que je voudrais c'est une colonne mais qui fasse: A1
      B1
      C1
      D1
      E1
      F1
      A2
      B2
      ....
      F8636
      0
    3. Patrice33740 Messages postés 8400 Date d'inscription   Statut Membre Dernière intervention   1 783
       
      Les mêmes valeurs que quoi ????

      Exemple :
      https://mon-partage.fr/f/gGNEfa2y/
      0
    4. Fred11400 Messages postés 53 Statut Membre
       
      En fait cette formule permet de mettre les colonnes les unes a la suite de la première mais ce n'est pas ce que j'attends

      Ce que je voudrais c'est une colonne mais qui fasse:
      A1
      B1
      C1
      D1
      E1
      F1
      A2
      B2
      ....
      F8636
      0
    5. Patrice33740 Messages postés 8400 Date d'inscription   Statut Membre Dernière intervention   1 783
       
      Bonjour,

      Il suffit d'inverser le sens de lecture du tableau :
      =DECALER($A$1;ENT((LIGNE()-1)/6);MOD(LIGNE()-1;6))
      0
  3. Patrice33740 Messages postés 8400 Date d'inscription   Statut Membre Dernière intervention   1 783
     
    Re,

    Il y a effectivement toutes les lignes, je ne sais pas comment tu fait l'extraction vers Excel.
    Une méthode dans ce fichier :
    https://mon-partage.fr/f/7Eyny0dG/
    0
    1. Fred11400 Messages postés 53 Statut Membre
       
      J'ai utilisé un convertisseur en ligne
      0
    2. Patrice33740 Messages postés 8400 Date d'inscription   Statut Membre Dernière intervention   1 783
       
      Lequel ?
      0
    3. Fred11400 Messages postés 53 Statut Membre
       
      I love PDF il me semble
      0
    4. Patrice33740 Messages postés 8400 Date d'inscription   Statut Membre Dernière intervention   1 783
       
      Effectivement, je viens d'essayer, il manque des lignes !!!!
      Avec https://convertio.co/fr/pdf-xls/ tu as toutes les lignes.
      Il n'y a plus qu'à supprimer celles qui sont superflues avec la méthode que je t'ai donné.
      0
    5. Fred11400 Messages postés 53 Statut Membre
       
      D'accord merci beaucoup
      0
  4. Patrice33740 Messages postés 8400 Date d'inscription   Statut Membre Dernière intervention   1 783
     
    Tu peux automatiser la procédure à partir du fichier converti sur convertio avec cette macro 

    Sub Test()

  Worksheets("Worksheet").Copy Before:=Worksheets(1)
  With Worksheets(1)
    .Rows("1:1").Delete
    .UsedRange.TextToColumns Destination:=.Range("A1"), DataType:=xlDelimited, _
                             TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, _
                             FieldInfo:=Array(Array(1, 4))
    .Range("A1").Sort Key1:=.Range("A1"), Order1:=xlAscending, _
                      Key2:=.Range("B1"), Order2:=xlAscending, Header:=xlNo
    .Rows("8761:9999").Delete
    .Range("K1:K52560").FormulaR1C1 = "=OFFSET(R1C3,INT((ROW()-1)/6),MOD(ROW()-1,6))"
    .Range("J1").Formula = .Range("A1").Text & " 00:00"
    .Range("J2").Formula = .Range("A1").Text & " 00:10"
    .Range("J1:J2").AutoFill Destination:=.Range("J1:J52560")
    .Columns.AutoFit
  End With
    
End Sub
    0
    1. Fred11400 Messages postés 53 Statut Membre
       
      Je n'ai jamais créer de macro sur excel
      0
    2. Patrice33740 Messages postés 8400 Date d'inscription   Statut Membre Dernière intervention   1 783
       
      C'est jamais trop tard pour commencer ...
      ... mais l'apprentissage est assez long.
      Un excellent cours pour débutant :
      ftp://ftp-developpez.com/bidou/Cours/VBA/formationVBA.pdf
      0
    3. Fred11400 Messages postés 53 Statut Membre
       
      D'accord merci
      0
    4. Fred11400 Messages postés 53 Statut Membre
       
      Salut

      Une fois que tu as converti le fichier avec convertio, comment tu fais pour séparer toutes les valeurs de la colonne A ?
      0
    5. Patrice33740 Messages postés 8400 Date d'inscription   Statut Membre Dernière intervention   1 783
       
      Bonjour,

      - Soit tu appliques rigoureusement la procédure manuelle qui est détaillée dans le fichier du post 25
      - Soit tu copies la macro ci-dessus dans un module standard et tu l'exécutes.

      Cdlt
      Patrice
      0