Placer une variable dans une propriété image

Bonjour tout le monde,

Alors voila je suis actuellement sur un petit projet de vidéo poker.

Mon problème est sur cette ligne : (Video_Poker est le nom de mon Userform)

Left_Av = Video_Poker.(Une variable désignant une image).Left

J'ai déja essayé : Ma variable est Carte_1

 
Left_Av = Video_Poker.Carte_1 & .Left 

Left_Av = VBA.UserForms.Video_Poker.Add(Carte_1).Left

Et encore plein d'autre choses en rouge... Mais aucun de moyen de placer ma variable correctement..

Ps : J'ai appris par moi même j'ai donc pas forcément une façon de coder digne de ce nom.

Merci !

Cordialement Antoine

Hello et bienvenue sur le forum

Left_Av = Video_Poker.Controls("Carte_1").Left

Par contre où est écrit ce code? Dans le formulaire?

Si c'est dans le formulaire, tu peux remplacer

Left_Av = Video_Poker.Controls("Carte_1").Left

par

Left_Av = Me.Controls("Carte_1").Left

S'il n'est pas placé dans ton formulaire, je ne suis pas sûr que ce code fonctionne ^^

J'ai une erreur : Objet spécifié introuvable.

Mon code est dans un module.

Sub Test()

Dim Carte_2 As String

Dim Left_Av As Integer
Dim Top_Av As Integer

Dim Left As Integer
Dim Top As Integer

Left = 228
Top = 318

Carte_2 = "Car_1"

Left_Av = Video_Poker.Controls("Car_1").Left     ( Pas d'erreur sur cette ligne ! )

Left_Av = Video_Poker.Controls("Carte_2").Left
Top_Av = Video_Poker.Controls("Carte_2").Top

Video_Poker.Controls("Carte_2").Left = Left
Video_Poker.Controls("Carte_2").Top = Top

End Sub

Merci pour ton aide !

PS: A mince j'avais pas vue ta dernière ligne .. Je regarde sa ..

PS de PS : Idem quand je le met dans l'Userform

Peux-tu joindre ton fichier?

Left_Av = Video_Poker.Controls("Car_1").Left ( Pas d'erreur sur cette ligne ! )

Si les autres ne passent pas, c'est que tu as sûrement mal écrit les noms des éléments.

Mon dieux !!

Merci tu ma guidé dans la solution !

 Left_Av = Video_Poker.Controls("" & Carte_2).Left 

Le placement de la variable était mal écrit !

Merci Beaucoup !

Je n'avais pas bien lu ton code, tu ne veux pas plus simplement écrire la ligne suivante?

Left_Av = Video_Poker.Controls(Carte_2).Left

Le fait d'écrire

"" & Carte_2

Le fait de mettre "Carte_2" entre guillemets détruit l'utilisation de ta variable. "Carte_2" est traduit comme une chaîne de caractères sans aucun lien avec la valeur de ta variable.

Si Carte_2 est une chaîne de caractères et vaut "TOTO"

"Carte_2" sera interprété comme "Carte_2", peut importe la valeur de ta variable

Par contre

Carte_2 sera compris/interprété comme "TOTO"

J'espère avoir été clair =)

Alors va savoir pourquoi mais non .. sa reste un mystère pour moi aussi..

Mais sa marche que comme je l'ai écrit ...

La magie d'Excel ...