Discussion :

[Theocourant]

Bravo ca ne me met plus d'erreur et ca me le compile bien mais par contre ca ne me compile pas du tout ce que je veux c'est a dire des mot aléatoire :-(

Je ne comprends pas

A chaque fois que tu cliques sur le bouton, tu auras un nouveau mot...

Théo

[zoukidou]

Je dois aller manger, je reviens dans les allant tour de 13h. Je vous réexpliquerais bien mes problemes et ce que je veux faire. Encore MERCI pour ce que vous avez deja fais pour moi. Merci

[ouskel'n'or]

Just un truc :

Tu mets "Text1.text = Txt(Int(Rnd * 5)) "

Essaie avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Text1.text = cstr(Int(Rnd * 5))

Je pense que ça vient de là (?)

A+

[Theocourant]

Just un truc :

Tu mets "Text1.text = Txt(Int(Rnd * 5)) "

Essaie avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Text1.text = cstr(Int(Rnd * 5))

Je pense que ça vient de là (?)

A+

Non ça ne vient pas de là ...

Txt est un tableau de mots...

Théo

[avigeilpro]

Juste comme ca:
tu déclare ton tableau comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim Txt(0 To 4) As String

alors que tu pourrais simplement faire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim Txt(4) As String

ca ne change peut-etre pas grand chose mais ca peut toujours servir

[Theocourant]

Juste comme ca:
tu déclare ton tableau comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim Txt(0 To 4) As String

alors que tu pourrais simplement faire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim Txt(4) As String

ca ne change peut-etre pas grand chose mais ca peut toujours servir

Cela permet de rappeler que le tableau a 5 valeurs indicées de 0 à 4

C'est toujours utile pour les débutants

Théo

[zoukidou]

Ca me compile donc bien mon code, mais kan je lance mon projet1.exe
Il m'affiche une fenetre avec comme titre form1 et avec un fond gris avec rien d'ecrit dessus. :-(

[Theocourant]

Ca me compile donc bien mon code, mais kan je lance mon projet1.exe
Il m'affiche une fenetre avec comme titre form1 et avec un fond gris avec rien d'ecrit dessus. :-(

Tu as mis un bouton sur ta form pour piloter ton morceau de code ?

Si oui va voir les propriétés du bouton et contrôle que la propriété "Visible" ait la valeur "true"

Théo

[zoukidou]

ouinnnn !!! Je crois que je sais plus du tout ce que je fais car je touche bcp de chose que je ne connais pas serait il possible de reprendre depuis le debut sinon tant pis je m y mettrais calement cher moi se soir.

[ouskel'n'or]

Txt est un tableau de mots...

Autant pour moi, j'avais shunté tes déclarations...

Ceci dit, je ne comprends pas pourquoi. En VBA ( ta déclaration : "Dim Txt(0 To 4) As String" serait remplacée par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Public Txt(0 To 4) As String

sinon, ta déclaration, elle parcherait pas...
Juste pour te dire que je cherche...

A+

PS - Si dérange, tu dis...

[Theocourant]

Txt est un tableau de mots...

Autant pour moi, j'avais shunté tes déclarations...

Ceci dit, je ne comprends pas pourquoi. En VBA ( ta déclaration : "Dim Txt(0 To 4) As String" serait remplacée par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Public Txt(0 To 4) As String

sinon, ta déclaration, elle parcherait pas...
Juste pour te dire que je cherche...

A+

PS - Si dérange, tu dis...

Et que tu es à côté de la plaque car on travaille avec VB...


Théo

[ouskel'n'or]

on travaille avec VB

Merci Téo, j'avais compris, pas la peine de te moquer suffisait que tu me dises qu'on peut faire ça en vb... Mais je m'en vais sur la pointe des pieds puisque je n'ai rien à faire ici et qu'on m'aime pas

[Theocourant]

on travaille avec VB

Merci Téo, j'avais compris, pas la peine de te moquer suffisait que tu me dises qu'on peut faire ça en vb... Mais je m'en vais sur la pointe des pieds puisque je n'ai rien à faire ici et qu'on m'aime pas

Mais non au t'aime bien ouskel'n'or mais on dirait qu'aujourd'hui tu n'as pas les yeux en face des trous.

Théo

[ouskel'n'or]

Eh oui, y'a des jours comme ça où tout va mal...

[zoukidou]

Ne me laisser pas tomber :'-( ouinnnnn !!!

[Theocourant]

Ne me laisser pas tomber :'-( ouinnnnn !!!

On ne te laisse pas tomber...

Regarde tes messages privés

Théo

[ouskel'n'or]

Faut pas désespérer, regarde, moi....
J'ai bien une idée mais Théo va encore me tomber sur le râble...
N'empêche... Qu'est-ce que tu obtiens avec la syntaxe citée plus haut :

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
Option Explicit 
Dim Txt(0 To 4) As String 
 
Private Sub Command1_Click() 
     Randomize 
     Text1.text = Txt(Int(Rnd * 5)) 
End Sub 
 
Private Sub Form_Load() 
     Txt(0) = "souris" 
     Txt(1) = "salut" 
     Txt(2) = "Jean" 
     Txt(3) = "Pierre" 
     Txt(4) = "Luc" 
End Sub

Déjà, ça orienterait "ceux qui savent"

A+

[Theocourant]

J'ai bien une idée mais Théo va encore me tomber sur le râble...

[avigeilpro]

lorsque tu ouvre un nouveau projet, une feuille vierge apparait et a pour nom et caption (affiché dans la bare bleue) form1. cet affichaage ce change dans la fenetre propriété et est la propriété Caption comme di ci dessus. Ensuite il te faut placer un controle pour lancer ton code (un bouton par exemple) puis un autre pour aficher le resultat si besoin est (une boite texte par exemple)
Enfin tu double click sur ton bouton et tu tape ton code

[Tofalu]

Pourquoi avoir abandonné l'idée du fichier ini ?

Parce que là tout ajout de mot passera inévitablement par la modification du code