Sachant que j'ai placé plusieurs images dans un Userform et que je les rend
visibles sous certaines conditions, je cherche le moyen de compter le nombre
des images étant visible à tout moment.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
CAP2
Salut,
en partant du principe que tu as des images sur ton Userform et un textbox qui donnera le nombre d'images visibles : Dans le code de ton Userform, tu mets ça (à adapter au nom de ton userform...) De plus, si tu as d'autres contrôles sur ton formulaire en plus de tes images et du textbox, tu dois remplacer le "TextBox1.Value = i - 1" par "TextBox1.Value = i - **le bon nombre**") Le nombre d'images visibles doit apparaître dès que tu cliqueras quelquepart sur ton UserForm :
Private Sub UserForm_Click() Dim image As Control Dim i As Byte
i = 0
For Each image In UserForm1.Controls
If image.Visible = True Then i = i + 1 End If
Next
TextBox1.Value = i - 1
End Sub
Ca marche ?
CAP2
Salut,
en partant du principe que tu as des images sur ton Userform et un textbox
qui donnera le nombre d'images visibles :
Dans le code de ton Userform, tu mets ça (à adapter au nom de ton
userform...) De plus, si tu as d'autres contrôles sur ton formulaire en plus
de tes images et du textbox, tu dois remplacer le "TextBox1.Value = i - 1"
par "TextBox1.Value = i - **le bon nombre**")
Le nombre d'images visibles doit apparaître dès que tu cliqueras quelquepart
sur ton UserForm :
Private Sub UserForm_Click()
Dim image As Control
Dim i As Byte
en partant du principe que tu as des images sur ton Userform et un textbox qui donnera le nombre d'images visibles : Dans le code de ton Userform, tu mets ça (à adapter au nom de ton userform...) De plus, si tu as d'autres contrôles sur ton formulaire en plus de tes images et du textbox, tu dois remplacer le "TextBox1.Value = i - 1" par "TextBox1.Value = i - **le bon nombre**") Le nombre d'images visibles doit apparaître dès que tu cliqueras quelquepart sur ton UserForm :
Private Sub UserForm_Click() Dim image As Control Dim i As Byte
i = 0
For Each image In UserForm1.Controls
If image.Visible = True Then i = i + 1 End If
Next
TextBox1.Value = i - 1
End Sub
Ca marche ?
CAP2
Sébastien MOTTE
Salut,
ça marche impek ! Merci beaucoup CAP2
"CAP2" a écrit dans le message de news:
Salut,
en partant du principe que tu as des images sur ton Userform et un textbox qui donnera le nombre d'images visibles : Dans le code de ton Userform, tu mets ça (à adapter au nom de ton userform...) De plus, si tu as d'autres contrôles sur ton formulaire en plus de tes images et du textbox, tu dois remplacer le "TextBox1.Value = i - 1" par "TextBox1.Value = i - **le bon nombre**") Le nombre d'images visibles doit apparaître dès que tu cliqueras quelquepart sur ton UserForm :
Private Sub UserForm_Click() Dim image As Control Dim i As Byte
i = 0
For Each image In UserForm1.Controls
If image.Visible = True Then i = i + 1 End If
Next
TextBox1.Value = i - 1
End Sub
Ca marche ?
CAP2
Salut,
ça marche impek !
Merci beaucoup CAP2
"CAP2" <CAP2@azerty.net> a écrit dans le message de news:
uEwfraPsEHA.2668@TK2MSFTNGP12.phx.gbl...
Salut,
en partant du principe que tu as des images sur ton Userform et un textbox
qui donnera le nombre d'images visibles :
Dans le code de ton Userform, tu mets ça (à adapter au nom de ton
userform...) De plus, si tu as d'autres contrôles sur ton formulaire en
plus
de tes images et du textbox, tu dois remplacer le "TextBox1.Value = i - 1"
par "TextBox1.Value = i - **le bon nombre**")
Le nombre d'images visibles doit apparaître dès que tu cliqueras
quelquepart
sur ton UserForm :
Private Sub UserForm_Click()
Dim image As Control
Dim i As Byte
en partant du principe que tu as des images sur ton Userform et un textbox qui donnera le nombre d'images visibles : Dans le code de ton Userform, tu mets ça (à adapter au nom de ton userform...) De plus, si tu as d'autres contrôles sur ton formulaire en plus de tes images et du textbox, tu dois remplacer le "TextBox1.Value = i - 1" par "TextBox1.Value = i - **le bon nombre**") Le nombre d'images visibles doit apparaître dès que tu cliqueras quelquepart sur ton UserForm :
Private Sub UserForm_Click() Dim image As Control Dim i As Byte
