bonjour , dans un formulaire j'offre la possibilité d'ajouter 4 photos une fois ajouter je verifie leur grosseur afin que si ils sont plus grande que ma zone je change le mode de vue a zoom.

ca marche bien aucune erreur voici le code pour limage 1

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub DisplayPhoto1()
 
' Traitement en fonction de la taille de l'image
 
'PHOTO 1!!!!!!
' regarde si la hauteur de l'image dépasse celle du controle Picture
If Me.Image1.ImageHeight > Me.Image1.Height Then
    ' met le controle en mode zoom
    Me.Image1.SizeMode = 3
Else
    ' met le contrôle en mode respect de la taille originale
    Me.Image1.SizeMode = 0
End If
 
' si la largeur dépasse et qu'on est en mode taille réelle ...
If (Me.Image1.ImageWidth > Me.Image1.Width) And (Me.Image1.SizeMode) = 0 Then
    ' on met en mode zoom
    Me.Image1.SizeMode = 3
End If
 
End Sub
voici ma question, comme jai 4 photos et tous doivent utiliser cette fonction sur le formulaire, y a til un moyen de passer en argument un format image dans la fonction ???? Si oui comment???

afin que je puisse appeler dans mon formulaire la fonction de cette facon

displayphoto ( image1)
displayphoto (image2) etc...

image1 et image 2 sont des objets image