Discussion :

[Skangell]

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 !

[rvtoulon]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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,

[Godzestla]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Skangell]

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.

[Godzestla]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[rvtoulon]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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".

[Skangell]

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