Compter des objets sur une ligne avec une macro

Bonjour à tous,

je voulais savoir si il était possible de compter des objets qui seraient contenus non pas dans une feuille active mais dans une plage de données.

Aujourd'hui j'utilise la formule n = ActiveSheet.OLEObjects.Count

mais ça ne me va plus, je voudrais compter les objets présents dans la plage E8:I8, j'ai essayé

n = ActiveSheet.Range("E8:I8").OLEObjects.Count

mais ça n'a pas l'air de fonctionner.

Merci d'avance

Salut le forum

Ça devrait mieux fonctionner ainsi

Sub OLEinRange()
 Dim Obj As OLEObject
 Dim Cpt As Byte

    For Each Obj In ActiveSheet.OLEObjects
      If Not Intersect(Range(Obj.TopLeftCell.Address), Range("E8:I8")) Is Nothing Then
        Cpt = Cpt + 1
      End If
    Next Obj
 MsgBox Cpt    
End Sub

Mytå

Bonjour,

ça marche super, merci Myta.