Inverser colonnes et lignes dans un tableau ?

Question

Hello,

Je souhaiterais savoir s'il existe des contrôles déjà faits qui permettent de travailler en colonnes et non en lignes dans un tableau.

Par exemple, avec les contrôles de base VB, je crée ma requête SQL, et j'affiche les données dans mon tableau. Le nom des champs s'affiche dans les en-têtes des colonnes et les enregistrements dans les lignes.

J'aimerais en fait afficher le nom des champs dans chaque en-tête de ligne et les données dans chaque colonne.

Ce serait pratique pour afficher 50 camps différents à l'écran (ce qui n'est pas possible en mode normal, hormis en utilisant une scrollbar...).

Merci si vous avez des infos !!! :-)

AnteManoclis · Answer

Salut,

  Je ne sais même pas ce qu'est une requête SQL, mais je sais inverser les lignes et les colonnes, alors j'espère que les lignes qui vont suivre vont t'aider...


  Dim Tampon as String

  For i = 0 to NbreLignes-1
    For j=0 to NbreColonnes-1
      Tampon=Tableau(i,j)
      Tableau(i,j)=Tableau(j,i)
      Tableau(j,i)=Tampon
    Next j
  Next i



  Voilà, je sais pas trop si c'est ce que tu recherchais, mais j'espère au moins que ça te guideras dans ta quête
  Tchô  ;) 
AnteManoclis

sarl_adc · Answer

Hello,

merci pour ta réponse mais en fait ce n'est pas vraiment ça que je cherchais.

En fait, dans un tableau normal on saisi d'abord une ligne. On rempli toutes les colonnes et ensuite, on passe à la ligne suivante.

J'aimerais pouvoir saisir d'abord toutes les valeurs de toutes les lignes de la première colonne et ensuite passer à la colonne d'après.
Comme si je basculais le tableau de 90°.

Si quelqu'un a ma réponse, je suis preneur ;-)

Merci !!

sarl_adc · Answer

Petite précision, quand je parlais de tableau, je voulais dire "grille de saisie", du style les MSFlexGrid ou les SSDBGrid des contrôles Sheridan !!!

Je m'étais mal exprimé :-)

AnteManoclis · Answer

Et tu veux les inverser lors du chargement ? Si tu les inverses juste après ça ne va pas ?

  Tchô  ;) 
AnteManoclis

sarl_adc · Answer

Je veux que la saisie soit inversée mais que l'insertion dans les tables reste la même.

Plus globalement, il me faudrait un tableau orienté à 90°...

sarl_adc · Answer

Toujours pas de solution ?

Pourtant beaucoup de logiciels utilisent des saisies verticales.
En voil&#224; un exemple si &#231;a peut aider :

1- A la base, dans un MsFlexGrid sous VB, on aurait &#231;a :
(--> On a la possibilit&#233; de rajouter autant de ligne que l'on veut)

                            | col1 | col2 | col3 | col4  |
______________|____|____|____ |____ |
enregistrement 1 | val1 | vala | val4 | vale |
enregistrement 2 | val2 | valb | val5 | valf  |
enregistrement 3 | val3 | valc | val6 | valh |
...
enregistrement x | valx | valy | val3z | val4t |

2- Moi ce que je voudrais voir &#224; l'&#233;cran ce serait :
(--> On aurait la possibilit&#233; de rajouter autant de colonnes que l'on veut)

          | enregistrement 1 | enregistrement 2 | enregistrement 3 | ... | enregistrement x
_____|_______________|______________|_______________|__|_______________
col1    |         val1              |         val2             |         val3              |    |         valx
col2    |         vala              |         valb             |         valc               |    |         valy
col3    |         val4              |         val5             |         val6              |    |         valz
col4    |         vale              |         valf              |         valg              |    |         valt

Par contre, il faudrait que ce tableau soit capable d'&#234;tre sauvegard&#233; dans une table Access (donc de mani&#232;re horizontale, comme le point n&#176;1).

Vala, je pense qu'avec &#231;a je devrais &#234;tre clair ;-)
Donc :
- si quelqu'un a une id&#233;e pour g&#233;rer &#231;a
- si quelqu'un connait un programme (m&#234;me assez hon&#233;reux, pas grave, c'est pour un d&#233;veloppement &#224; plusieurs milliers d'euros, donc &#231;a se verra pas)
- si quelqu'un a d&#233;velopp&#233; un contr&#244;le permettant de faire &#231;a
- si quelqu'un connait quelqu'un qui connait quelqu'un qui sait faire

je suis preneur !! :-)

Allez, merci et bonne soir&#233;e !!

AnteManoclis · Answer

Dim i As Integer, j As Integer 'Variables de comptage
Dim Tableau() As String 'Copie du tableau original MSFlexGrid


'Copie du MSFlexGrid1 dans la variable Tableau
ReDim Tableau(MSFlexGrid1.Rows, MSFlexGrid1.Cols)
For i = 0 To MSFlexGrid1.Rows - 1
  For j = 0 To MSFlexGrid1.Cols - 1
    Tableau(i, j) = MSFlexGrid1.TextMatrix(i, j)
  Next j
Next i


'Redimensionnement du MSFlexGrid1 (NbreColonnes=NbreLignes et vice-versa)
MSFlexGrid1.Rows = UBound(Tableau, 2)
MSFlexGrid1.Cols = UBound(Tableau, 1)


'Remplissage du MSFlexGrid1 &#224; partir du Tableau crois&#233;
For i = 0 To MSFlexGrid1.Rows - 1
  For j = 0 To MSFlexGrid1.Cols - 1
    MSFlexGrid1.TextMatrix(i, j) = Tableau(j, i)
  Next j
Next i

Tch&#244; 
AnteManoclis

AnteManoclis · Answer

Bon, &#233;videmment, les  et  ne sont pas &#224; recopier...

Tch&#244; 
AnteManoclis

sarl_adc · Answer

C'est &#224; peu pr&#232;s ce que j'&#233;tais en train de faire, mais j'utilise des SSDBGrid de Sheridan et je g&#232;re mes insertions dans la base.

Ca va &#234;tre long et assez difficile dans le sens o&#249; je doi g&#233;rer des Combobox et Checkbox int&#233;gr&#233;es dans mon tableau.

Mais ton id&#233;e est pas mal, merci de t'&#234;tre tracass&#233; pour moi :-)

sarl_adc · Answer

Ok pour les  et .

Je vais reprendre ton id&#233;e (pas le code) et tester en d&#233;but d'aprem ;-)

Merci !!

sarl_adc · Answer

Finalement, ton code ne fonctionnera pas avec mes SSDBGrid de Sheridan.

J'ai essay&#233; avec une MsFlexGrid, mais c'est pas pratique, pas tr&#232;s chouette et beaucoup moins &#233;volu&#233;...

Quelqu'un connait d'autres grilles qui fonctionnent de la m&#234;me mani&#232;re ?

Merci :-)

Inverser colonnes et lignes dans un tableau ?

11 réponses

Discussions similaires