Tester si un TextBox existe sur la feuille Excel

Bonjour à tous !

Je travaille sur l'extraction de données de fiches d'identité d'objet sous EXCEL. Les différentes fiches sont pratiquement identiques et l'extraction de données se passe bien.

Mon problème est que je dois récupérer les infos sur la position GPS de l'objet et que cette information n'est pas insérée de la même manière dans les fiches :

- Soit la position GPS est écrite directement dans la cellule
- Soit elle est insérées dans des TextBox (TextBox insérées via la boite à outil de contrôle)

J'aimerais savoir qu'elle est la condition qui permet de savoir si un TextBox existe dans mon fichier ouvert !

Merci d'avance pour vos réponses ! Et bonne fin de journée !

Bonjour,
un exemple qui parcours chaque feuille du classeur et vérifie les contrôles présent si le contrôle est un textbox alors ....

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Sub test() Dim ws As Object, obj As OLEObject 'pour chaque feuille du classeur For Each ws In Worksheets i = ws.OLEObjects.Count ' compte le nbre de contrôles   If i <> 0 Then 'si il y a un contrôle   'Si textbox control active x de formulaire 'boucle sur chaque objet de la feuille For Each obj In ws.OLEObjects   'si l'objet est un Textbox alors If TypeOf obj.Object Is MSForms.TextBox Then   ' Met ici le code que tu souhaites faire   End If Next obj End If Next ws End Sub

---

ATTENTION ce code fonctionne pour les Contrôles ActiveX

EDIT:
Salut Godzestla, dsl, ;)

Bonjour,

tu peux liste la liste des tes objets Ole comme ci-dessous

(Le code suppose que ton textbox est sur la feuille 3, extrait de l'aide en Ligne )

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sub check_ole() Sub testb() Dim newsheet As Worksheet   Set newsheet = Sheets(3) i = 2 newsheet.Range("A1").Value = "Name" newsheet.Range("B1").Value = "Link Type" For Each obj In newsheet.OLEObjects 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

---

----------Edit

gasp. Coiffé par RvToulon. Salut Rvtoulon.

Merci à vous 2 pour vos réponses !

En fait j'aimerais savoir si un TextBox précis est présent, par exemple TextBox7.
Et non pas savoir si il y a des textbox dans le classeur.

ben c'est presque pareil,

tu testes la propriété .name de l'object qui doit être égale à ce que tu cherches.

Par exemple

Code:

---

1 2 3 4 5

for each obj in sheets(machin).oleobjects if obj.name = "TextBox7" then debug.print "Yesssssssss" endif next

---

Ou bien dans le code que je t'ai donné,tu rajoutes un "AND" en remplaçant:

Code:

---

1 2 3 4 5

If TypeOf obj.Object Is MSForms.TextBox Then ' Met ici le code que tu souhaites faire End If

---

par:

Code:

---

1 2 3

If TypeOf obj.Object Is MSForms.TextBox And obj.Name = "TextBox7" Then 'Ton code Ici End If

---

tu vérifie que l'objet est un textbox et qu'il se nomme "Textbox7".

Merci beaucoup pour votre aide !!

Je vais un peu abuser mais une dernière petite question pour la route : Comment récupère-t-on la valeur d'un TextBox ?

J'ai trouvé cela mais ça ne fonctionne pas : TextBox1.Value

C'est bon j'ai trouvé !! Il fallait préciser la feuille !
Sheets("Feuil1").TextBox1.Value