Nom userform variable

Version imprimable

Bonjour à tous,
j'aimerais arriver a faire ça
Code:

1 2 3 4 5 6 7 8 9 10 'laform est une userform laform = "Form_achats" For Each ct In laform.Controls If ct.Name Like "ListBox*" Then ct.Clear End If Next VBA.UserForms.Add(laform).Repaint
j'ai cherché et trouvé ça mais ça ne fonctionne pas
Code:

1 2 For Each ct In VBA.UserForms.Add(laform).Controls
et aussi avec Callbyname mai c'est encore un échec!

si quelqu'un a une solution, et ben c'est cool?

11/10/2015, 10h05
SfJ5Rpw8

Citation:

Envoyé par spookyz

Bonjour à tous,
j'aimerais arriver a faire ça
...

Bonjour,

et bien si tu exécute ton code il doit bien faire ça .... ! ( la seule description que l'on as de "ça" c'est ton code .. donc la réaction correspond bien à ta description ..)
11/10/2015, 10h34
spookyz

Effectivement c'est pas très clair!
ce que j'essaie de faire avec ce code
c'est de partager une macro qui se trouve dans un module, sur plusieurs userforms qui ont la même architecture
pour éviter de reproduire le même code dans chaque userforms
donc je voudrais pouvoir si c'est possible,agir sur le userforms dont le nom serait passer à la macro par une variable
dans l'exemple que je donne "laform"
j'èspere que c'est plus clair :oops:
11/10/2015, 10h53
SfJ5Rpw8

non, montre nous un exemple de code ... que tu voudrais rendre utilisable avec plusieurs userform..

voila un exemple de ce que je cherche a faire.

Code:

1
2
3
4
5
6
7
8
9
10
11
Sub effaceliste22(laform, lafeuille)
With Sheets(lafeuille)
.Range(.Cells(3, 1), .Cells(100, 22)).ClearContents
End With
For Each ct In VBA.UserForms.Add(laform).Controls
    If ct.Name Like "ListBox*" Then
    ct.Clear
    End If
Next
VBA.UserForms.Add(laform).Repaint
End Sub

Bonjour,

plutôt que passer des chaines en paramètres de ta fonction tu peu passer des références à tes objets :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Option Explicit
'
'
'
Sub effaceliste22(ByRef laform As MSForms.UserForm, ByRef lafeuille As Worksheet)
Dim ct As Control
With lafeuille
    .Range(.Cells(3, 1), .Cells(100, 22)).ClearContents
End With
 
For Each ct In laform.Controls
    If ct.Name Like "ListBox*" Then
    ct.Clear
    End If
Next
laform.Repaint
End Sub

avec dans ton UserForm un bouton pour appeler ta fonction :

Code:

1
2
3
Private Sub CommandButton1_Click()
effaceliste22 Me, ThisWorkbook.Worksheets("Feuil1")
End Sub

ou un appel "ailleurs" ...

Code:

1
2
3
Sub MonTestSpooky()
        effaceliste22 UserForm1, ThisWorkbook.Worksheets("Feuil1")
End Sub

11/10/2015, 16h33
spookyz

Encore une fois un grand merci à bbil et à tous ceux qui
participe a cet excellent site.:D