Discussion :

[spookyz]

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

Code :

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

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 :

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

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?

[SfJ5Rpw8]

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

[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

[SfJ5Rpw8]

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

[spookyz]

voila un exemple de ce que je cherche a faire.

Code :

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

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

[SfJ5Rpw8]

Bonjour,

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

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
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 :

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

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

ou un appel "ailleurs" ...

Code :

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

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