Nombre de contrôles dans une feuille

G

Guest

Guest

• 19 Janvier 2009

• #2

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

Code:

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

A+

 

Dernière modification par un modérateur: 19 Janvier 2009

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 19 Janvier 2009

• #3

Re : Nombre de contrôles dans une feuille

Bonjour jp, Hasco

une autre solution, peut être :

Code:

Dim x As Byte
x = Feuil1.OLEObjects.Count

bon après midi
@+

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 19 Janvier 2009

• #4

Re : Nombre de contrôles dans une feuille

bonjour JP

Vois si ceci peut t'aider:

Code:

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

 

Vote positif 0 Vote négatif

J

jp14

XLDnaute Barbatruc

• 19 Janvier 2009

• #5

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

 

Dernière édition: 19 Janvier 2009

Vote positif 0 Vote négatif