cs_vevel
Messages postés62Date d'inscriptionjeudi 26 mai 2005StatutMembreDernière intervention30 mai 2017
-
6 oct. 2009 à 20:41
Fabasia
Messages postés45Date d'inscriptionmercredi 26 mars 2008StatutMembreDernière intervention17 août 2012
-
8 oct. 2009 à 09:29
Bonjour,
J'ai un soucis avec un tableau dans ma form
J'ai deux colonnes, et je voudrais classer les données par ordre alphabétique (avec accents) de la première colonne.
De plus j'aimerais savoir s'il est possible de redimensionner le tableau en fonction du nombres d'informations qu'on y rentre.
Pour le moment j'utilise une listbox ou j'ai mis nom_du _fichier & " | " & Chemin_du_fichier.
Mais le problème c'est lorsque j'ai plusieurs fichiers avec le même nom a la différence d'accent, il me les classe comme ca:
tete.doc | C:\....\dossier1
tête.doc | C:\....\dossier2
tete.doc | C:\....\dossier3
Par la suite, je lui demande de me lister tous les doc qui s'appelle "tete.doc" en lui disant d'aller trouver la première valeur et de rajouter +1 tant que la valeur est la même. donc pour "tete.doc" il me trouve 1 seul fichier.
Je peux aussi de lui dire d'aller voir sur toutes les valeurs, mais comme la liste est parfois énorme, ce serait pour gagner un peu de temps.
Et donc j'aimerais savoir s'il est possible de dimensionner le tableau en fonction des valeurs que j'ai a y rentrer. Je pourrais y mettre
Dim tableau (1000,2)
mais s'il j'ai 1001 valeurs a rentrer, je suid marron!!
Et du coup ca me sert a rien d'avoir une tableau a 1000 lignes si j'ai qu'une dixaine de valeur.
Comment est-il possible de nettoyer un tableau d'une seule commande.
Fabasia
Messages postés45Date d'inscriptionmercredi 26 mars 2008StatutMembreDernière intervention17 août 2012 8 oct. 2009 à 09:29
Pour le redimensionnement auto de tableau ...
ReDim tableau_themes(0)
tableau_themes(0) = DataGridView_questionnaire(2, 0).Value 'Prise et mémorisation du 1er thème (en ligne 0)
For index = 1 To DataGridView_questionnaire.RowCount - 3
nouvelle_valeur_theme = True
For index_bis = 0 To tableau_themes.Length - 1
If DataGridView_questionnaire(2, index).Value = tableau_themes(index_bis) Then
'Thème déjà existant
nouvelle_valeur_theme = False
Exit For
End If
Next
If nouvelle_valeur_theme Then
ReDim Preserve tableau_themes(tableau_themes.Length)
tableau_themes(tableau_themes.Length - 1) = DataGridView_questionnaire(2, index).Value
End If
Next