Discussion :

[Kinian]

Bonjour, j'ai un probleme de parametre, voila j'ai une petite procédure que je repete plusieurs fois, et donc je voudrais pour améliorer le code, creer une procédure que j'apellerai avec comme parametre la zone de texte qui subira la procédure.

Donc c'est le code que j'ai sur plusieurs AfterUpdate de mes zone de texte

Code :

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

1
2
3
4
5
6
7
 
Private Sub txtReglement_AfterUpdate()
    If Me.txtReglement.Text <> "" Then
        Me.txtReglement.BorderStyle = 0
    Else
        Me.txtReglement.BorderStyle = 1
    End If

J'ai voulu creer une procédure générique avec en parametre le control

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub AfficheContour(ctl As Control)
    If Not ctl.Text <> "" Then
        ctl.BorderStyle = 1
    Else
        ctl.BorderStyle = 0
    End If
    End Sub

mais je n'arrive pas a passer la zone de texte en parametre lorsque que j'apel ma procedure.
j'ai essayé : AfficheContour(Me.ActiveControl) ou otre mais ca ne marche pas.
Merci a vous

[Nohant]

c'est quoi le message d'erreur ?

AfficheContour est déclarée comme private sub ce qui signifie que tu ne peux pas l'appeler en dehors du module dans lequel elle a été créé. Est-ce bien le cas ?

[Kinian]

Oui oui, je ne m'en sert que dans ce module

[pgz]

Bonjour,

Et en quoi cela ne marche pas? Il se passe quoi?

pgz

[Kinian]

Ca me dit : Objet requis, erreur 424

[pgz]

Bonjour,

Et le débugueur s'arrête sur quelle ligne?

pgz

[argyronet]

Bonjour,

Ton code marche bien...
Il suffit d'ajouter un SetFocus.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub cmdTest_Click()
  AfficheContour MyTextBox
End Sub
 
Private Sub AfficheContour(ctl As Control)
  ctl.SetFocus
  If Not ctl.Text <> "" Then
      ctl.BorderStyle = 1
  Else
      ctl.BorderStyle = 0
  End If
End Sub

Argy