Appliquer une variable

[Lone-wolf]

Bonjour à tous,

est-il possible d'appliquer une variable à ceci:

MoveImages.Controls("Image3").Top



A+

 

[Pierrot93]

Re : Appliquer une variable

Bonjour,
pas tout compris, peut être ainsi :

Dim t As Single
t = MoveImages.Controls("Image3").Top

ou cela :

Dim t As Single
t = 32.695
MoveImages.Controls("Image3").Top = t

sans plus de détails..;

bon après midi
@+

 

[Lone-wolf]

Re : Appliquer une variable

Bonjour Pierrot,

voilà, l'userform se nomme MoveImages et 16 images:

(Controls 1 à 4) et (Controls 5 à 16).


J'ai aussi un problème avec le code que voici:

Sub bas()
 Application.ScreenUpdating = False
    For n = 1 To 4
        MoveImages.Controls("Image" & n).Visible = n = 3
    Next n
    If PosT > 0 Then: MoveImages.Message.Visible = False

    With MoveImages.Controls("Image3")
        .Left = PosL
        .Top = PosT
        .Top = .Top + 1
        If .Top < 0 Then .Top = .Top + 1
        PosL = .Left
        PosT = .Top
    End With
    If MoveImages.Controls("Image5").Visible = True Then
   MoveImages.Controls("Image3").Top = MoveImages.Controls("Image5").Top
    MoveImages.Controls("Image5").Visible = False
    Total = Total + 100
    MoveImages.Points.Caption = Total
    End If
    
    If MoveImages.Controls("Image5").Visible = False Then
    Total = Total + 0
    MoveImages.Points.Caption = Total
    Exit Sub
    End If
Application.ScreenUpdating = True

Au deuxième IF, comment dire à Excel que, si l'image n'est plus visible, il ne doit plus faire le total.

Si tu as besoin du fichier, il est sur ce post: faire-le-total-et-arreter-limage-sous-condition-dans-le-formulaire


A +