Bonjour à tous,
Je veux créer un userform qui charge automatiquement & au hasard des images pésentent dans une feuille. Je n'arrive pas à trouver la bonne méthode. Pour l'instant j' ai suivi cette méthode, mais qui ne marche pas:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
 
For i = 1 To 5
 
    MyValue = Int((10 * Rnd) + 1)
 
    Sheets("Cartes").Activate
 
    ActiveSheet.Shapes("Picture " & MyValue).Copy
    UserForm1.Image1.Picture = Shapes("Picture " & MyValue)
    ....
Merci !!

Olivier