Discussion :

[the_djjd]

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,

[LeForestier]

Bonjour,
TextBox sur une feuille Excel ou un UserForm ?
A+

[the_djjd]

Sur une feuille excel de type graphique.

Dsl pour l'oublie.

[LeForestier]

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 :

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

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 :

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

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

A+

[the_djjd]

Code :

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

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

[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+

[the_djjd]

Merci.