[XL-2010] Récupération de données et génération checkbox dans UserForm
Bonjour,
J'ai déjà travaillé avec plusieurs langages de programmation (php, perl, ksh, java...) et vous avoue que j'ai du mal avec le Vba et son VBE.
Mon onglet contient un tableau de données source. J'aimerai d'abord filtrer ses informations avant de les traiter.
La partie Filtrage doit s'exécuter comme le filtre standard d'une colonne (combobox avec les données unique à cocher ou à décocher) mais via un bouton avec les champs + cases a cocher dans l'userform.
J'ai pensé à une organisation comme ci-desssous.
1. Module Onglet contient control du bouton +méthode de récupération d'infos
2. Module UserForm contient methode de génération de case a cocher avec un tableau de string en paramètre
Je fais appel à vous parce que je n'arrive pas à transmettre mes valeurs dans mes variables.
Voici un apperçu de mon code :
Module DataIn
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
Private Sub BoutonLancementPretrait_Click()
Call LancementPretraitement
End Sub
Private Sub LancementPretraitement()
Dim DataIn As Worksheet
Set DataIn = ThisWorkbook.Worksheets("DataIn")
Dim TabString() As String
Dim i As Long
TabString = Extractions.Range("R12", Range("A12").End(xlDown)).RemoveDuplicates 'erreur de type !!!
For i = 0 To UBound(TabString)
AffichageCaseCochee(TabString(i))
Next i
End Sub |
Module UserForm
Code:
1
2
3
4
|
Public Sub AffichageCaseCochee (Libelle As String)
???
End Sub |
