B
BerJean
Guest
Liste—>cellule
Bonjour à tous,
Les lignes suivantes me permettent grâce à un code 6 chiffres rentré ds une combo, d'aller chercher ds une liste feuille 3 une valeur correspondant au code et de la placer ds une cellule feuille 1.
Je veux remplacer le code 6 chiffres par un nombre 1à200 je n'y arrive pas
quelqu'un peut-il m'aider ?
Option Explicit
Public Const f3 As String = "Feuil3"
Public sa As Worksheet
Public ka As Variant
Public plage As Range
__________________________________________________________
Dim cel As Range
Set sa = Sheets(f3)
Set plage = sa.Range("C3:C" & sa.Range("A65536").End(xlUp).Row)
For Each cel In plage
If cel = MenuLev.TSortGram.Value Then
ka = cel.Offset(0, 1).Value 'définit la variable valeur
Exit For
End If
Next cel
Range("KS").Value = ka
Bonjour à tous,
Les lignes suivantes me permettent grâce à un code 6 chiffres rentré ds une combo, d'aller chercher ds une liste feuille 3 une valeur correspondant au code et de la placer ds une cellule feuille 1.
Je veux remplacer le code 6 chiffres par un nombre 1à200 je n'y arrive pas
quelqu'un peut-il m'aider ?
Option Explicit
Public Const f3 As String = "Feuil3"
Public sa As Worksheet
Public ka As Variant
Public plage As Range
__________________________________________________________
Dim cel As Range
Set sa = Sheets(f3)
Set plage = sa.Range("C3:C" & sa.Range("A65536").End(xlUp).Row)
For Each cel In plage
If cel = MenuLev.TSortGram.Value Then
ka = cel.Offset(0, 1).Value 'définit la variable valeur
Exit For
End If
Next cel
Range("KS").Value = ka