VB6.0 = ajouter une feuille ExcelRésolu

Question

Salut à tous !!

Quelqu'un peut-il me dire quel est l'équivalent du contrôle SpreedSheet (VBA Excel) dans VB6.
Je dois insérer une feuille excel dans ma Form mais je ne trouve pas ce composant.

Merci à tous

Mortalino

michelxld · Accepted Answer

rebonjour

je suis d&#233;sol&#233; mais je ne comprend pas tres bien ce que tu veux r&#233;aliser . Fait des recherches sur le site et tu trouveras de nombreuses d&#233;mos au sujet des MSFlexGrid

&#224; tout hasard , tu peux tester

Dim i As Integer
Dim telValeur As String


telValeur = "test"


For i = 0 To 255
  If telValeur = MSFlexGrid1.TextMatrix(i, 0) Then _
  MsgBox MSFlexGrid1.TextMatrix(i, 1)
Next i

bonne journ&#233;e
michel

mortalino · Answer

Ben en fait j'ai trouvé le contrôle MSFlexGrid qui à l'air de bien correspondre à ce que je cherche, par contre j'y connais que dalle en VB6 (je ne fais que du VBA) donc 
1/ comment fait on pour ajouter X colonnes et X lignes ?
2/ comment met on des valeurs dans ces cellules ?

Merci bien !

Mortalino

mortalino · Answer

Est ce qu'avec 
With MSFlexGrid1
    .Row = 256
    .Col = 2
End With
c'est faisable ?

(Y a du progrès, je m'auto réponds) mais un avis serait le bienvenue

ReMerci

michelxld · Answer

bonjour

j'espere que ce lien pourra t'aider

http://www.vbfrance.com/codes/VBXL-PROGRAMMATION-EFFICACE-EXCEL-VBA-VB6-VB-NET_17783.aspx

bonne journ&#233;e
michel

mortalino · Answer

Merci Michel,
Moi qui me demandait où était passé ce contrôle SpreadSheet !
Par contre, j'ai pas forcément besoin d'utilisé toutes ces fonctionnalités, donc je serai plus attiré par le Contrôle MSFlexGrid.

En gros, c'est pour stocker des données dans la colonne 1, la correspondance de ces données sont dans la 2eme colonne, et c'est juste pour faire une boucle

style :
For i = 1 to 256
  LigneX = i
  If tel valeur = MsFlexGrid1.Coordonnee (i, 1).Value then
    MaNouvelleValeur = MsFlexGrid1.Coordonnee (i, 2).Value 
  end if
next i

Le problème c'est que j'y connais rien en VB6 donc ma syntaxe pour le If est fausse.
Peux tu m'aiguiller sur cet exemple ?

Merci Michel

Mortalino

mortalino · Answer

Merci Michel,

c'est la propriété TextMatrix qui m'interesse, je ne connaissais pas, maintenant c'est fait !

En fait j'élabore un algorithme pour un mot de passe et je suis en train de créer un CrackMe. J'ai donc fait autrement pour placer mes valeurs (en créant un tableau 
=> Dim CodeN (33 to 256) et du coup ça marche).

Maintenant, faut que je balance sur Internet mon CrackMe pour voir s'il tient la route (et surtout voir s'il est facile à déplomber, moi j'y connais pas grand chose donc je le transmet entre les mains d'experts).

Merci encore et bonne journée également !

Mortalino

rvblog · Answer

Salut Mortalino, salut Michelxld, Tu peux toujours le balancer ici ! (si t'as pas peur) à+ rvblogn^{Je veux ton bien... et je l'aurais}

VB6.0 => ajouter une feuille Excel

7 réponses

Discussions similaires