Vérifier la presence ou non d'une image en cellules

[néné06]

Bonsoir le Forum

Je cherche à savoir si une instruction VBA existe pour certifier qu'une image est présente ou non dans une cellule Excel.
Si image présente passer cellule suivante.

Merci!!!!!

 

[kjin]

Re : Vérifier la presence ou non d'une image en cellules

Bonsoir,

Sub ListeImg()
Dim Txt$, sh As Shape, c%
For Each sh In ActiveSheet.Shapes
    If sh.Type = msoPicture Then
        Txt = Txt & sh.TopLeftCell.Address & " : " & sh.Name & vbCrLf
        c = 1
    End If
Next
If c = 1 Then
    MsgBox "les cellules suivantes contiennent des images" & vbCrLf & Txt
Else
    MsgBox "il n'y a pas d'image"
End If
End Sub

A+
kjin

 

[Gorfael]

Re : Vérifier la presence ou non d'une image en cellules

Salut néné06 et le forum
Je ne sais pas comment vérifier qu'une cellule contient une image, mais je peux trouver les cellules qui sont sous les images :

Sub test()
Dim Sh As Shape, Plage As Range
For Each Sh In ActiveSheet.Shapes
    If Plage Is Nothing Then
        Set Plage = Sh.TopLeftCell
    Else
        Set Plage = Union(Plage, Sh.TopLeftCell)
    End If
Next Sh
MsgBox "Adresses des cellules : " & Plage.Address(0, 0)
End Sub

Soit tu peux l'utiliser directement en cherchant à chaque cellule si elle est en-dessous d'une des images, soit tu charges toutes les cellules en-dessous et tu vérifies celles ou "intersect () is nothing". Ça dépend de l'organisation de ta feuille, si elle ne contient que des images...
A+

 

[néné06]

Re : Vérifier la presence ou non d'une image en cellules

Bonjour Kjin, Gorfael

Je me suis servi de vos modéle pour établir cette petite routine, mais je souhaiterai que les images ne se recopient pas l'une sur l'autre à chaque ouverture.
Je pensai procéder comme suit,mais j'ai du mal:
-Effacer image existante
-Copier nouvelle image (en cas de changement de nom ou image plus ressente).

Par contre la routine de Kjin ne trouve pas d'image dans la feuille?
Cela est dû peut être au paramétrage ("If sh.Type = msoPicture Then") que je ne connais pas.
Si vous pouviez m'apporter des infos.

Pour utiliser ces images, les placer dans un dossier nommé "img"

Merci à tous!!

 

[kjin]

Re : Vérifier la presence ou non d'une image en cellules

Bonsoir,
Il est important de tester le type de la forme, sinon tu listeras aussi les boutons, les boites de texte, les commentaires...contenus dans la feuille;mais dans ta feuille, tu as des images liées (pourquoi ?... seul toi le sais) donc il faut compléter le code comme ceci...

'...
If Sh.Type = msoPicture Or Sh.Type = msoLinkedPicture Then
'...

...à condition que tu ne rajoutes pas des images activeX aussi !
A+
kjin

 

[néné06]

Re : Vérifier la presence ou non d'une image en cellules

Bonsoir Kjin

évidement!
J'aime me compliquer la vie.
Je vais avoir des images activeX,donc je vais encore me retrouver dans l'embarra .
Ton code fonctionne trés bien et je vais poursuivre mon programme et demanderai certainement à nouveau l'aide du Forum.

Merci pour tout.

René

 

[néné06]

Re : Vérifier la presence ou non d'une image en cellules

Bonsoir à tous
J'ai réussi à améliorer ce projet et j'ai placé les explications sur le code pour ceux que cela intéresse .

Des améliorations sont toujours possibles.

A+