objets

[PATPAT]

Bonjour,

Comment être certain que ma feuille excel ne contient aucun objet ?

 

[Staple1600]

Re : objets

Bonjour


Essaie ce code de 2005 d'Hervé

Public Sub vev()
Dim forme As Shape
Dim ws As Worksheet

For Each ws In Worksheets
    For Each forme In ws.Shapes
MsgBox "la forme : " _
& forme.Name _
& " est présente en feuille " & ws.Name
    Next forme
Next ws
End Sub

Ou celui-ci de la maison mère

sub liste_objets()
Set newSheet = Worksheets.Add
i = 2
newSheet.Range("A1").Value = "Nom"
newSheet.Range("B1").Value = "Link Type"
For Each obj In Worksheets("Feuil1").[B]OLEObjects[/B]
    newSheet.Cells(i, 1).Value = obj.Name
    If obj.OLEType = xlOLELink Then
        newSheet.Cells(i, 2) = "Linked"
    Else
        newSheet.Cells(i, 2) = "Embedded"
    End If
    i = i + 1
Next
end sub

et pour finit jette un coup d'oeil dans ce fil
https://www.excel-downloads.com/threads/compter-les-ojets-de-la-feuille-active.65486/

Notamment la solution de JeanMarie (sans VBA) et celle de MichelXLD.

 

[Cousinhub]

Re : objets

Bonjour,

salut JM

pour être certain qu'il n'y a aucun objet, tu fais Edition/Atteindre (ou Ctrl + T)
En bas, tu cliques sur "Cellules", puis tu sélectionnes "Objets"

Tu auras un message d'erreur s'il n'y a aucun objet, sinon, tes objets seront sélectionnés. Appuie sur "Suppr", tu n'auras plus d'objets.....

Bon dimanche

 

[Staple1600]

Re : objets

Bonjour bhbh

Pourquoi faire compliqué quand on peut faire simple.


J'ai honte. 😱

 

[JCGL]

Re : objets

Bonjour à tous,
Salut Staple
Salut BH²

tu fais Edition/Atteindre (ou Ctrl + T)

Encore plus court : F5

A++
A+ à tous