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