Bonjour,
Sur mon formulaire j'ai plusieurs contrôles qui se nomment:
ImageFrame1
ImageFrame2
ImageFrame3
Etc.........
et à chaque contrôles [Procédure événementielle], j'ai ce code:
Est-ce possible d'avoir ce seul code pour tous les contrôles ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12 Private Sub ImagePath1_AfterUpdate() 'Affiche une photo après l'avoir sélectionnée. On Error Resume Next showErrorMessage1 showImageFrame1 If (IsRelative(Me.Controls(ImagePath1)) = True) Then Me.Controls("ImageFrame1").Picture = path & "\" & Me.Controls("ImagePath1") Else Me.Controls("ImageFrame1").Picture = Me.Controls("ImagePath1") End If End Sub
Si oui ? pouvez-vos me donner une piste ?
Merci pour votre aide.
Salutations
Partager