Discussion :

[Yullll]

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

[Thautheme]

Bonjour Yullll, bonjour le forum,

As-tu essayer de définir les variables NumLig et NbrLig avant de faire les copier/coller de lignes ?... À quoi sert la variable Lig déclarée dans la première ligne de ton code ?

[thebenoit59]

N'est-ce pas là ton erreur ?

Code :

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

ComoBox1.Selectedvalue

Il manquerait un B

[joe.levrai]

Bonjour,

il n'existe pas de propriété SelectedValue pour l'objet Combobox
on utilise la propriété .Value pour obtenir la valeur sélectionnée (ou tapée) dans la zone de texte du combobox

La propriété Selected (seul) existe et concerne notamment les ListBox, pour tester si un élément est sélectionné.