test si textbox

Version imprimable

05/08/2009, 11h25
the_djjd

test si textbox

Bonjour,

je voudrais creer un if dans une de mes macro :

si il y a une textbox alors ...

sinon ...

Ce qui m'interresse c'est de savoir comment écrire : "si il y a une textbox".

ca serait cool si vous saviez écrire ca en VBA.

Merci,
05/08/2009, 11h29
LeForestier

Bonjour,
TextBox sur une feuille Excel ou un UserForm ?
A+
05/08/2009, 11h34
the_djjd

Sur une feuille excel de type graphique.

Dsl pour l'oublie.

Pas de souci, je demandais cela parce quel la procédure est différente.
Tu colle la fonction ci-dessous dans un module public.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Function IfTextBox(Nom As String) As Boolean
'Sur une feuille excel
Dim Obj As OLEObject
    'boucle sur les objets de la Feuille
    For Each Obj In Sheets(Nom).OLEObjects
        'verifie s'il s'agit d'un TextBox
        If TypeOf Obj.Object Is MSForms.TextBox Then
            'Oui, il y a un TextBox
            IfTextBox = True
            Exit Function
        End If
    Next Obj
End Function

Et dans ta macro tu met

Code:

1
2
3
4
5
    If IfTextBox("LeNomDeLaFeuille") then
        'il y a un Textbox
   else
       'Y en a pas
   End If

A+

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Function IfTextBox(Nom As String) As Boolean
'Sur une feuille excel
Dim Obj As OLEObject
    'boucle sur les objets de la Feuille
    For Each Obj In Sheets(Nom).OLEObjects
        'verifie s'il s'agit d'un TextBox
        If TypeOf Obj.Object Is MSForms.TextBox Then
            'Oui, il y a un TextBox
            IfTextBox = True
            Exit Function
        End If
    Next Obj
End Function

Y a un souci avec cette ligne de code, il me dit :
erreur de compil :Type défini par l'utilisateur non défini

06/08/2009, 07h21
LeForestier

Humm.. oui.. j'aurais peut-être dù préciser.
Tu doit ajouter la référence..
Microsoft MSForms X.X Object Librairy
Dans l'éditeur VBA...
Outils >> Références et tu coche la référence.
A+
10/08/2009, 16h52
the_djjd

Merci.