Discussion :

[vashh50]

Bonjour à tous,

Voilà j'ai un petit problème à l'intérieur d'un select case.

En effet, mon code me renvoie l'erreur d'execution 91.

Voilà le morceau de code ou ça bloque.

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
22
23
24
25
26
27
28
29
30
31
32
Select Case m
    Case Is = 1
        F = ActiveSheet.Pictures.Insert("C:\Users\lepoittevin_j\Desktop\1.jpg").Select
        Selection.Name = "F"
        Selection.Top = [M10].Top
        Selection.Left = [M10].Left
    Case Is = 2
        F = ActiveSheet.Pictures.Insert("C:\Users\lepoittevin_j\Desktop\2.jpg").Select
        Selection.Name = "F"
        Selection.Top = [M10].Top
        Selection.Left = [M10].Left
    Case Is = 3
        F = ActiveSheet.Pictures.Insert("C:\Users\lepoittevin_j\Desktop\3.jpg").Select
        Selection.Name = "F"
        Selection.Top = [M10].Top
        Selection.Left = [M10].Left
    Case Is = 4
        F = ActiveSheet.Pictures.Insert("C:\Users\lepoittevin_j\Desktop\4.jpg").Select
        Selection.Name = "F"
        Selection.Top = [M10].Top
        Selection.Left = [M10].Left
    Case Is = 5
        F = ActiveSheet.Pictures.Insert("C:\Users\lepoittevin_j\Desktop\5.jpg").Select
        Selection.Name = "F"
        Selection.Top = [M10].Top
        Selection.Left = [M10].Left
    Case Is = 6
        F = ActiveSheet.Pictures.Insert("C:\Users\lepoittevin_j\Desktop\6.jpg").Select
        Selection.Name = "F"
        Selection.Top = [M10].Top
        Selection.Left = [M10].Left
End Select

[balzrog]

Bonjour,

de quels types sont les variables m et F ?

[vashh50]

m est un integer et F un object

[balzrog]

Si nous voulons garder :

Code :

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

Dim F as Object

Il faut ajouter le mot clé "SET", voici un bout de code en exemple :

Code :

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

1
2
3
4
5
6
7
Select Case m
    Case Is = 1
        set F = ActiveSheet.Pictures.Insert("C:\Users\lepoittevin_j\Desktop\1.jpg")
        F.Select
        Selection.Name = "F"
        Selection.Top = [M10].Top
        Selection.Left = [M10].Left

[vashh50]

Merci ça fonctionne. Par contre je ne comprends pas pourquoi, si vous savez me l'expliquer je suis preneur.

[balzrog]

Pour attribuer une valeur à un object, il faut forcément utiliser le mot clé "SET". Je n'ai pas vraiment d'explication à vous donner, peut-être que quelqu'un saura mieux que moi.

Cependant, je me permets de revenir sur votre sujet, j'ai remarqué que le nom de votre fichier jpg est égale à 'm'.

Pourquoi ne pas modifier votre code, et enlevé votre select case ?

Code :

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

1
2
3
4
5
6
7
8
Dim m As Integer
Dim f As Object
 
        Set f = ActiveSheet.Pictures.Insert("C:\Users\lepoittevin_j\Desktop\" & m & ".jpg")
        f.Select
        Selection.Name = "F"
        Selection.Top = [M10].Top
        Selection.Left = [M10].Left

Sachant que 'm' est égale à 1,2,3,4,5 ou 6 et que le nom de vos fichiers est 1.jpg, 2.jpg etc..., ça vous évite un select case !

[Theze]

Bonjour,

Merci ça fonctionne. Par contre je ne comprends pas pourquoi, si vous savez me l'expliquer je suis preneur.

C'est tout simplement une instruction VB pour affecter un objet à une variable, de même que l'instruction Dim pour déclarer une variable (objet ou autre) ou Const pour une constante. VB a été conçu comme ça, il n'y a pas d'autre explication