Discussion :

[ange_dragon]

Bonjour à tous,

J'ai une UserForm avec une 10aine d'élément dedans. En fonction de l'élément, j'aimerai pouvoir lancer une ligne de code, mais sans pour autant écrire 10 fois

Code :

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

1
2
3
4
5
Private Sub Image1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
 
'Code
 
End Sub

Donc, est il possible quand on clique à un endroit de savoir sur quel élément l'on clique pour pouvoir lancer la bonne ligne de code à ce moment là?

Merci d'avance

[Gorfael]

Salut ange_dragon et le forum
Pour chaque image, tu crées une ligne de commande

Code :

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

Call Mon_Code(X)

avec x définissant ton image (nombre, texte, etc..)
et tu fais une macro unique

Code :

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

1
2
3
4
5
6
7
8
9
10
sub Mon_Code(Arg as integer)
select case arg
     case 1, 3, 5
        'Traitement image1, image3, image5
    case 2, 4, 6
        'Traitement image2, image4, image6
    case else
        'Traitement autres images
end select
end sub

Là, j'ai choisis un argument numérique et trois traitements possibles, mais ce n'est que l'idée générale.
A+

[djib29]

Pour répondre précisément à la question, tu devras effectivement écrire 10 fois cette procédure mais, comme l'a dit Gorfael, tu peux créer la procédure Mon_code(X) et écrire dans les 10 procédures Mon_code(1), Mon_code(2), ...

Avec VB6, il existe les contrôles groupés identifiés par un index qui permet d'avoir qu'une seule procédure pour tous les contrôles du groupe. Ce mécanisme n'existe pas en VBA

[ange_dragon]

Merci beaucoup pour vos réponses.

Je vais donc rester avec mes 10 procédures ^^