Discussion :

[Olivgonn]

Bonjour à tous ,

Je suis en trein de créer un fichier de remise en stock . Sur la deuxième feuille de mon classeur ( Add-Stock) , j'aimerai qu'en ouvrant un USF_Remove et en selectionnant le N° de ligne ( Colonne K ) via un comboBox , que la valeur de la colonne C correspondante à la ligne se transfère dans un label , valeur colonne D dans un autre label etc....

Je bloque sur le code que je pourrais mettre ( je pars de zéro sur ce code ... ) .

Si quelqu'un pourrait m'aiguiller ....

[BENNASR]

Bonsoir

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
Private Sub Cb_occurence_Change()
Dim CodeR As String
Tb_remCreated.Value = ""
Tb_infoQty.Value = ""
With Sheets("Add-Stock")
dernLigne = .Range("K" & Rows.Count).End(xlUp).Row
  CodeR = Cb_occurence.Value
  Set rg = .Range("K6:K" & dernLigne)
 For Each cell In rg
  If cell.Value = CodeR Then
   Tb_remCreated.Value = .Range("C" & cell.Row)
   Tb_infoQty.Value = .Range("D" & cell.Row)
  End If
  Next cell
End With
End Sub

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub UserForm_Initialize()
Dim L As Long
Dim derlig As Long
derlig = Sheets("Add-Stock").Range("K" & Rows.Count).End(xlUp).Row
 
For L = 6 To derlig
  Cb_occurence.AddItem Sheets("Add-Stock").Range("K" & L)
Next L
Cb_occurence.Value = ""
End Sub

[MarcelG]

Bonjour olivgonn (bienvenu), Bonjour le Forum,

Bonjour Benassr,

Quelques modestes remarques
- Plutôt que de balayer le Range privilégier la méthode Find?
- Il est opportun de libérer une variable affectée à un objet après utilisation (Set ... = Nothing)
- Pour initialiser une Combobox, mieux vaut affecter la valeur -1 à sa propriété Listindex

[Theze]

Bonjour,

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
 
Private Sub Cb_occurence_Change()
 
    Dim cellu As Range
    Dim plage_part As Range
 
    Set cellu = Range("plage_occurence").Find(Cb_occurence.Text, , xlValues, xlWhole)
 
    If Not cellu Is Nothing Then
 
        Info_part.Caption = cellu.Offset(0, -8).Value
        Info_dc.Caption = cellu.Offset(0, -6).Value
        Info_batch.Caption = cellu.Offset(0, -5).Value
 
    End If
 
End Sub
 
Private Sub UserForm_Initialize()
 
    'Date du jour
    Tb_remCreated.Value = Format(Now, "DD/MM/YYYY")
 
End Sub

Attention, les procédures événementielles de l'UserForm c'est toujours UserForm_l'événement et non "Usf_Remove_Initialize" donc "UserForm_Initialize()"

[Olivgonn]

J'ai essayé les 2 méthodes ( BENNASR ) et Theze .

Pour la 1ere avec 2,3 modifs le code à l'air de fonctionner .

Pour la 2ème ( Theze ) j'ai le message erreur 13 "incompatibilité de type " . J'arrive pas à trouver pour le moment d'où cela viendrait .

[Theze]

Je te retourne ton classeur qui fonctionne bien chez moi :
ReturnToStock.xlsm

[Olivgonn]

C'est ok ca marche :-)

En fait sur l'évènement USF j'avais zappé de changer l'événement USF" et ca tourne nickel maintenant .

En tout cas merci , je vais pouvoir avancer sur le reste