Nombre de contrôles dans une feuille

[jp14]

Bonjour

Le code suivant permet de trouver le nombre de contrôle dans un USF

Dim £Ctrl As Control
For Each £Ctrl In Me.Controls

Existe-t-il des instructions similaires pour réaliser la même fonctions lorsque l'on utilise des contrôles dans une feuille ?
Dans ce cas qu'elle est la syntaxe au niveau de l'écriture.

Merci d'avance pour la réponse

JP

 

[Guest]

Re : Nombre de contrôles dans une feuille

bonjour JP14,

Pour dénombrer les contrôles d'un userform : Me.Controls.Count

Pour parcourir les contrôles activeX ou formulaire de feuille de calcul

  Dim sh As Object
  For Each sh In Sheets(1).DrawingObjects
 
  Next sh

A+

 

[Pierrot93]

Re : Nombre de contrôles dans une feuille

Bonjour jp, Hasco

une autre solution, peut être :

Dim x As Byte
x = Feuil1.OLEObjects.Count

bon après midi
@+

 

[pierrejean]

Re : Nombre de contrôles dans une feuille

bonjour JP

Vois si ceci peut t'aider:

Sub test()
For n = 1 To ActiveSheet.OLEObjects.Count
  MsgBox (ActiveSheet.OLEObjects(n).Name)
Next
End Sub

Arf Encore a la bourre moi !!
Salut Hasco
Salut Pierrot

 

[jp14]

Re : Nombre de contrôles dans une feuille

Bonsoir Hasco
Bonsoir Pierrot93
Bonsoir pierrejean

Merci pour ces infos.
J'utilise vos réponses pour ce post
https://www.excel-downloads.com/threads/ajouter-une-ligne-et-son-contenu.112111/

JP