Récuperer les data d'un Combobox
Bonjour,
j'ai fais un UserForm avec un Combobox dans lequel je récupère une référence. J'essaye de récupérer la valeur sélectionnée mais impossible.
Quelqu'un aurait il une idée ??
Voici le code que j'ai tapé !
Sur mon UserForm j'ai également un bouton Ok qui associe au clique un Userform.Hide qui masque celui ci, je ne penses pas que cela m'empeche de récupérer les données ?
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
| Sub Analyse_pièces()
Dim Lig As Long
Dim Col As String
Dim NbrLig As Long
Dim NumLig As Long
Dim Lavaleur As Variant
'Apparition du Userform pour entrer la référence
Référence.Show vbModeless 'Attente 5 secondes sinon mauvais affichage de l'UF
Sheets("Analyse pièces").Activate ' feuille de destination
'Mise en forme de la feuille de séparation des data pour analayse pièce
Sheets("Analyse").Rows(4).Copy
Sheets("Analyse pièces").Rows(2).Select
ActiveSheet.Paste
Sheets("Analyse").Rows(3).Copy
Sheets("Analyse pièces").Rows(1).Select
ActiveSheet.Paste
Col = 1 ' colonne données non vides à tester'
NumLig = 4 'alors là ca doit etre le N° de la 1er ligne de données en comptant la ligne 1 = 0 .... ? '
With Sheets("Analyse") ' feuille source'
NbrLig = .Cells(4, 1).End(xlDown).Row
Sheets("Analyse pièces").Select
Lavaleur = ComoBox1.Selectedvalue
Lavaleur = Range("A5")
End With
End Sub |
