bonjour a tous
je voulais savoir svp comment peut on recuperer le contenu d'une colonne Excel dans un controle VB6
merci
bonjour a tous
je voulais savoir svp comment peut on recuperer le contenu d'une colonne Excel dans un controle VB6
merci
Un peu plus de précisions nous seraient utiles :
Que veux-tu dire par "dans un controle VB6" ??
Qu'as-tu déja fait ?
Arrives-tu à lire les données d'une base Excel ?
Si ce n'est pas le cas, recherche dans la FAQ ainsi que dans les posts du forum, établie un code, fait des essais, et si tu as des erreurs, ou si tu as une question reviens la poser
t'avais une question comme ça
:la
Ce n'est pas la première fois que tu poses deux fois la même question, franchement ca commence à lasser...
Cordialement
dans mon programme j'ai fait:
1) le ''parcourir''qui cherche un fichier excel et l'ouvre d'une facon invisible.
2) un bouton "suivant" qui me renvoi a une listebox,dans laquelle j'ai mis les titre des colonne du fichier excel(une liste inchangée valabla pour tout fichier excel a ouvrir),
3)ensuite j'ai creé un bouton "Ajouter" que lorsque je clique sur un element de la listebox il l'ajoute dans une autre listebox pour pouvoir traiter cette colonne (faire des statistiques et des graphes dessus),
mon probleme est comment recuperer le contenu de la colonne que j'ai choisi d'une facon invisible pour que je puisse la traiter(graphe......etc)
j'espere que je suis assez claire.
merci pour l'aide
vous pouvez ignorer mes questions c'est un choix a faire
pour ne pas te lasser,je m'adresse a ceux qui veulent vraiment m'aider
desolé je vois pas quand j'ai posé la meme question ,
j'ai un enorme probleme
et je pose des question pour essayer de trouver une solution.
cordialement,
Bonjour,
Les précisions pourraient encore être mieux (avec des screenshot par exemple) mais on dira quand même merci pour l'effort
Comme ça à vue d'oeil, j'essaierais pour voir de faire défiler un recordset sur l'ensemble des élément du champ que tu désire, et de stocker ses valeurs dans un tableau...
Un truc du genre
Qu'en penses-tu ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4 For I=1 to Rst.RecordCount TableauStock(I)=rs!TonChamp rs.MoveNext Next I
Cordialement
merci,
je vais tester et voir ce que ca donne ,
@+
Okay... Désolé d'avance pour ce message qui ne fera pas avancer le Schmilblick.Envoyé par didami
Tu as un énorme problème ?
Ca j'avais deviné mais pas pour les mêmes raisons... Ton gros problème il me semble, c'est que tu refuse d'apprendre J'entends par là qu'il existe des dizaines de tutoriels, de questions dans la faq et de cours concernant tes questions.
Alors que tu ne les lises pas c'est une choses, mais en plus tu nous demande de te faire ton code quasiment.
Tu débarques avec une question d'une ligne en attendant qu'on te sorte le code qui va bien. Nous ne sommes pas un supermaché !
Et pour finir lorsqu'on regarde ton profil, on voit que sur 11 messages, tu as crée 4 nouveau post, qu'aucun n'a reçu de tag alors que des réponses te sont donnés.
Je le dis et le répète, nous ne sommes pas un supermarché.
Le tag est là pour aider les prochains à chercher la même chose que toi et aussi à remercier ceux qui t'ont aidé.
Tu ne respecte pas les autres utilisateurs, developpeurs, tu ne respecte pas non plus le travail fournit à ton égard.
Tu veux seulement que ton projet avance !
Je te renvoi, pour finir, au règles de ce forum, tu pourras constater que ton/tes message(s) ne devraient pas être.
Cordialement et bonne chance pour la suite, ca sera sans moi...
ok,
pour commencer j'ai lu tous les tuto et les faq,
je n'ai jamais demandé de code ou que quelq'un fasse les codes pour moi et que ca soit claire une fois pour toute,
j'ai jamais marqué resolu ca c'est vrai ,parceque je n'ai jamais trouvé des reponses a mes questions et ca n'a rien a voir avec le respect des autres (c'est grave de faire ce genre de reflexion pour les autres);
finalement,je voulais ajouter que je suis entrain de faire mon projet de fin d'etude et ca veut dire que j'ai lu assez de doc et que se forum est une derniere tantative pour resoudre mon probleme
ce qui dit projet de fin d'etude dit un effort personnel et non pas un code pret ok,
l'effort je l'ai fournit et je ne vous doit aucune explication,
merci pour tous ce que vous m'avez ecrit et svp essayez de ne pas juger les gens,ce n'est vraiment pas l'endroit pour le faire.
c'est vraiment un sujet de discussion sur un forum de developpeur?
autre chose j'ai toujour remercié ceux qui ont éssayer de m'aider,juste lit mon message pour toi
je ne te crois pas. Tes questions sont des questions de base. Les tutos les parcourent de fond en comble.Envoyé par didami
Didami => 14 messages, 0 ligne de code, 0 screenshot, 11 messages de réclamation de code et de précisions à ton encontre, 3 message concernant ton chagement de pseudo...Envoyé par didami
Tu abandonne le sujet avant d'avoir une réponse. Les membres te demandent des précisions que tu ne donnes pas.Envoyé par didami
C'est grave mais là, je persiste et signe.
Ton problème n'est pas compliqué, sache-le.Envoyé par didami
nous aurions résolu la chose en une journée si tu nous fournissais ce qu'on te demande.
Tu n'as pas fournis l'effort de mettre ne serait-ce qu'une seule ligne de code...Envoyé par didami
Ce ne sont pas tant des jugements que des constatations...Envoyé par didami
Non en effet, nous sommes d'accord c'est pour cela que ceci sera mon dernier messageEnvoyé par didami
__________________________
Explication à part, l'idée que je t'ai donné fonctionne ???
Cordialement
C'est comme pour une ligne... Objet Range... Voir le message pour comment lire une ligne dans un fichier Excel...
La Praline, si tu veux faire ce genre de message pseudo-modérateur qui utilise la totalité de l'écran... Inscrit toi comme modérateur et fais tes modération sur MP, c'est moins gênant pour l'utilisateur... Tu vois ce que je veux dire?
jai developpé du code et j'ai fai ceci:
dans mon programme j'ai fait:
1) le ''parcourir''qui cherche un fichier excel et l'ouvre d'une facon invisible.
2) un bouton "suivant" qui me renvoi a une listebox,dans laquelle j'ai mis les titre des colonne du fichier excel(une liste inchangée valabla pour tout fichier excel a ouvrir),
3)ensuite j'ai creé un bouton "Ajouter" que lorsque je clique sur un element de la listebox il l'ajoute dans une autre listebox pour pouvoir traiter cette colonne (faire des statistiques et des graphes dessus),
si tout ca marche pourquoi je metterait du code,
mon probleme est comment recuperer le contenu de la colonne que j'ai choisi d'une facon invisible pour que je puisse la traiter(graphe......etc),
avec les suggestion qu'on ma donnés je vais essayer de m'en sortir
merci a tous qui mon proposé des solution
Ouep, je m'en suis excusé avant même de dire ce que j'avais à dire.Envoyé par zazaraignée
Et pis j'ai essayé de faire petit mais ces sales bêtes de citations sont immenses !!!
Et puis, à ma décharge, on est sûr qu'elle lit ses réponses(choses incertaines étant donné que c'est la même réponse qu'on lui donne depuis deux semaines...).
Blague à part, je ne recommencerais pas
Cordialement
Heh!
La Praline, t'as compris que c'étiat à la fois un clin d'oeil amical et une invitation...
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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135 'ouvrir le fichier Dim fichier1 As String Dim DevisExcel As Object Private Sub open_Click() 'test d'existence si un fichier excel a été sélectionner If fichier.ListIndex = -1 Then MsgBox "vous n'avez selectionnié aucun fichier", vbCritical, "Erreur" Else fichier1 = fichier.Path & "\" & fichier.FileName 'ouvrir le fichier excel selectionner Set DevisExcel = CreateObject("excel.Application") DevisExcel.Visible = False Workbooks.open FileName:=fichier1, Editable:=True moteur_de_recherche.Show Form1.Visible = True moteur_de_recherche.Visible = False End If 'manipulation des bouton: Private Sub CmdImporter_Click() Dim n As Integer Dim objXL As Object ' déclaration d'un objet Set objXL = CreateObject("Excel.Application") ' Création de l'objet ' Ouverture de la feuille Excel objXL.Workbooks.open FileName:="C:\Documents and Settings\houda\Bureau\Classeur1.xls" ' Initialisation du tableau MSFlexGrid1 MSFlexGrid1.Col = 1 MSFlexGrid1.Rows = 2 MSFlexGrid1.Row = 1 MSFlexGrid1.Text = "" MSFlexGrid1.Col = 0 ' Copie des valeurs de la colonne A ' A partir de la case A1 et jusqu'a ce qu'il n'y ait plus de texte n = 1 Do While objXL.Range("A" & n) <> "" MSFlexGrid1.Rows = n + 1 MSFlexGrid1.Row = n MSFlexGrid1.Text = objXL.Range("A" & n) n = n + 1 Loop objXL.Workbooks.Close objXL.Application.quit End Sub Private Sub CmdMelanger_Click() Dim Tableau() As String Dim Indice1 As Integer Dim Indice2 As Integer Dim Tmp As String Dim n As Integer Randomize ' Preparation nombre aléatoire ' Redimentionnement de la variable Tableau ReDim Tableau(1 To MSFlexGrid1.Rows) ' Recopie la liste existante dans le tableau MSFlexGrid1.Col = 0 For n = 1 To MSFlexGrid1.Rows - 1 MSFlexGrid1.Row = n Tableau(n) = MSFlexGrid1.Text Next n ' Permute aléatoirement deux cases du tableau 101 fois de suite For n = 0 To 100 Indice1 = Int(Rnd * (MSFlexGrid1.Rows - 1)) + 1 Indice2 = Int(Rnd * (MSFlexGrid1.Rows - 1)) + 1 Tmp = Tableau(Indice1) Tableau(Indice1) = Tableau(Indice2) Tableau(Indice2) = Tmp Next n ' affiche le tableau MSFlexGrid1.Col = 1 For n = 1 To MSFlexGrid1.Rows - 1 MSFlexGrid1.Row = n MSFlexGrid1.Text = Tableau(n) Next n End Sub End Sub Private Sub Command3_Click() List1.AddItem List2.Text End Sub Private Sub Command4_Click() DevisExcel.Visible = True 'DevisExcel.rang("a1").Value = "1" End Sub Private Sub Form_Load() List2.AddItem "tttt" List2.AddItem "aaaa" List2.AddItem "aaaab" List2.AddItem "toto" List2.AddItem "u" List2.AddItem "n" List2.AddItem "b" List2.AddItem "v" List2.AddItem "f" List2.AddItem "f" List2.AddItem "re" List2.AddItem "t" 'Combo4.AddItem "Histogramme 2D" 'Combo4.AddItem "Histogramme 3D" 'Combo4.AddItem "Camenbert" Combo2.AddItem "t" Combo2.AddItem "tu" Combo2.AddItem "fd" Combo2.AddItem "c" Combo2.AddItem "fgde" Combo2.AddItem "rtt" Combo2.AddItem "rez'r" Combo2.AddItem "dzferg" End Sub
Maintenant ouiEnvoyé par zazaraignée
Et je note ton invitation et ton clin d'oeil
___________________________
Didami, merci d'avoir poster ton code...
Une petite question cependant, ce code fonctionne, ne fonctionne pas ??
C'est ce code qui te pose problème ? Ou alors tu as finis par trouver une solution et tu nous la fait partager ???
Cordialement
bonjour a tous,
vous m'avez demandé de vous montrer le code sur lequel je travaille,je vous ai posté le code la ou je suis arivée,
il fonctionne a ce stade,
il reste juste une partie la ou j'ai demandé de l'aide ,je la fini et je vous poste le code entier.
merci a tous
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager