Discussion :

[cecilecedric]

Bonjours, je souhaite générer un texte de manière aléatoire dans le frame d’un user form. Les textes à générer sont dans la feuille 1 de mon classeur. Mais je n’arrive pas à afficher le texte dans l’intitulé. J’ai essayé plein de fonctions mais sans résultat. Merci pour votre aide.

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Label1_Click()
Dim CL As String
Dim lg As String
Dim cellule As Integer
CL = "1"
lg = Int(Rnd * 2) + 1
cellule = Worksheets("Feuil1").Cell(lg, CL)
Label1.Caption = "cellule.Value"
End Sub

[oOVaveOo]

Bonjour,

Une correction du code :

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
Private Sub Label1_Click()

Dim CL As integer
Dim lg As integer
Dim cellule As range

CL = 1 'Ne pas mettre de guillemet car integer
lg = Int(Rnd * 2) + 1

set cellule = Worksheets("Feuil1").Cell(lg, CL)
Label1.Caption = cellule.Value 'pas de guillemets non plus

'ou pour remplacer les 2 lignes du dessus et celle de dessous:
'Label1.Caption = Worksheets("Feuil1").Cell(lg, CL).value

set cellule = nothing
End Sub

[cecilecedric]

merci de m'avoir répondu

j'ai essayé votre code mais ça n'a pas marché mon professeur m'a conseillé d'user la fonction with j'ai un peu du mal je doit l'admettre avec l'informatique C'est cellule qui ne reconnait pas pour le programme il y a un blocage des la fonction sert et il associe cellule=0

[oOVaveOo]

Bonjour,

Il manque un "s" ici :

Code :

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

set cellule = Worksheets("Feuil1").Cells(lg, CL)

Si le prof veut du with :

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
Private Sub Label1_Click()
 
Dim CL As integer
Dim lg As integer
Dim cellule As range
 
CL = 1 
lg = Int(Rnd * 2) + 1
 
set cellule = Worksheets("Feuil1").Cell(lg, CL)
 
with Label1
      .Caption = cellule.Value
end with
 
set cellule = nothing
 
End Sub

@+

[cecilecedric]

Merci beaucoup la fonction marche à merveille En plus j'ai comprit enfin je crois.