Arf en fait j´y arrive toujours pas : (
voila ce que je mets :
Private Sub Form_Load()
Dim ok As Boolean
ok = True
Dim a As Integer
Randomize
inta = Int((3 - 1 + 1) * Rd + 1)
If a = 1 And ok = True Then
Load corps(1)
corps(1).Left = 2000
corps(1).Top = 2000
corps(1).Visible = True
ok = False
ElseIf a = 2 And ok = True Then
Load corps2(1)
corps2(1).Left = 2000
corps2(1).Top = 2000
corps2(1).Visible = True
ok = False
ElseIf a = 3 And ok = True Then
Load corps3(1)
corps3(1).Left = 2000
corps3(1).Top = 2000
corps3(1).Visible = True
ok = False
End If
End Sub
( c´est un projet test juste pour essayer le hasard, donc c´est le seul formulaire et les corps 1, 2 et 3 sont définis dans " objet" mais ca ne marche pas, qu´est-ce qu´il faudrait mettre exactement à la place de " Randomize
inta = Int((3 - 1 + 1) * Rd + 1)"
pour que ca marche ? pour avoir un chiffre entre 1 et 3 )
Merci d´avance ( encore une fois lol)