zeltron24
XLDnaute Impliqué
Bonsoir à tous,
J'ai un petit souci de formule, dont voici le code :
(Diminué pour la cause)
Voilà, je souhaiterai trouver un code moins long si cela est faisable. Le but étant de recopié les valeurs de la colonne A22 à A55 dans une autre feuille. Cette formule marche bien mais j'ai 3 colonnes à recopier.
J'ai un petit souci de formule, dont voici le code :
Code:
Dim r As Range
Dim n As Byte
' Les Produits
Set r = su.Columns(2).Find(Me.CmbAfficher.Value, , xlValues, xlWhole)
If Not r Is Nothing Then
test = True
st.Range("A22").Value = r.Offset(0, 1)
st.Range("A23").Value = r.Offset(1, 1)
st.Range("A24").Value = r.Offset(2, 1)
st.Range("A25").Value = r.Offset(3, 1)
st.Range("A26").Value = r.Offset(4, 1)
st.Range("A27").Value = r.Offset(5, 1)
st.Range("A28").Value = r.Offset(6, 1)
st.Range("A29").Value = r.Offset(7, 1)
st.Range("A30").Value = r.Offset(8, 1)
st.Range("A31").Value = r.Offset(9, 1)
st.Range("A32").Value = r.Offset(10, 1)
st.Range("A33").Value = r.Offset(11, 1)
.......
st.Range("A55").Value = r.Offset(22, 1)
End If
Voilà, je souhaiterai trouver un code moins long si cela est faisable. Le but étant de recopié les valeurs de la colonne A22 à A55 dans une autre feuille. Cette formule marche bien mais j'ai 3 colonnes à recopier.