Discussion :

[modus57]

Bonjour à tous.

Je souhaiterai vérifier si une image existe dans la feuille active, le code ci-dessous ne fonctionne pas, pourriez-vous m'aider à le corriger.

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub TestImage()
Dim Ma_Forme As Shape
For Each Ma_Forme In ActiveSheet.Shapes
If Ma_Forme Is Nothing Then
MsgBox "aucunes images"
Else
MsgBox "images présentes"
End If
Next Ma_Forme
End Sub

Merçi d'avance.

[mercatog]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim Ma_Forme As Shape
Dim Cpt As Integer
 
For Each Ma_Forme In ActiveSheet.Shapes
    If Ma_Forme.Type = 13 Then Cpt = Cpt + 1
Next Ma_Forme
 
If Cpt = 0 Then
    MsgBox "Aucune image"
Else
    MsgBox Cpt & " image(s) présente(s)"
End If

[modus57]

Bonjour mercatog

Encore une réponse précise et rapide et encore une fois merci.

Cordialement modus57.