Discussion :

[dahu29]

Bonjour,

On m'a donné un fichier excel contenant des images situé à des positions précises sur feuille, ce que je souhaiterai pouvoir faire c'set à chaque image disposé sur la feuille, le numéro 1 soit inscrit dans la cellule correspondante à la position et si aucune image n'est présente on met 0.

Il faudrait trouver le moyen de détecter une image sur la feuille puis son positionnement pour ensuite insérer le chiffre.

j'espère avoir été clair

Je n'ai rien réussi à trouver sur internet et je ne sais même pas si c'set possible?

++

[SilkyRoad]

bonjour

j'ai interprété que "la cellule correspondante à la position ... " est la cellule ou est placée l'image.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim Obj As Shape
 
'Boucle sur les formes contenues dans la feuille
For Each Obj In Worksheets("Feuil1").Shapes
    'Vérifie 'il s'agit d'une image
    If Obj.Type = msoPicture Then
        'inscrit la valeur 1 dans la cellule supérieur gauche,
        'à l'emplacement de l'image.
        Obj.TopLeftCell = 1
    End If
Next Obj

michel

[dahu29]

merci bcp je vais travailler avec ça

[dahu29]

En utilisant ce code, je me suis rendu compte que 2 images sont utilisés. Une image bleu pour la cellule sélectionné et une image transparente toute petite pour la cellule non sélectionné.
Y'aurait-il moyen de faire une différentiation entre les 2 images avec l'objets shape ?

[dahu29]

Salut

J'ai trouvé une solution à mon problème, vu que mon fichier contenait seulement 2 types d'images (1 petite et une grande) j'ai utilisé la taille de mes images pour effectuer la différentiation.

voici le code final.

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
 
Sub image()
 
Dim Obj As Shape
Dim i As Integer
'Boucle sur les formes contenues dans la feuille
For Each Obj In Worksheets("Feuil1").Shapes
    'Vérifie 'il s'agit d'une image
    If Obj.Height = 0.75 Then
        Obj.TopLeftCell = 0
    ElseIf Obj.Type = msoPicture Then
        'inscrit la valeur 1 dans la cellule supérieur gauche,
        'à l'emplacement de l'image.
        Obj.TopLeftCell = 1
    End If
 
Next
 
End Sub

+