cafejohn1967
XLDnaute Nouveau
Bonjour,
J'ai un code qui me mène ultimement à une array et j'aimerais que l'utilisateur puisse la retourne en faisant ctrl+maj+enter
Je suis mêlé à la fin et je ne trouve rien qui marche pour moi.
Je tente de faire un exemple tout simple pour éventuellement l'appliquer à mon autre code mais sans succès.
Dans ce code je veux simplement retourner la range (disons un array d'une seule colonne)
Function retourrange(x As Integer, zz As Range) As Variant()
Dim y()
Dim w As Integer
w = zz.Rows.Count
ReDim y(1 To w)
Dim i As Integer
For i = 1 To w
y(i) = zz(1) + x
Next i
retourrange = y(w)
End Function
Merci pour tout aide
J'ai un code qui me mène ultimement à une array et j'aimerais que l'utilisateur puisse la retourne en faisant ctrl+maj+enter
Je suis mêlé à la fin et je ne trouve rien qui marche pour moi.
Je tente de faire un exemple tout simple pour éventuellement l'appliquer à mon autre code mais sans succès.
Dans ce code je veux simplement retourner la range (disons un array d'une seule colonne)
Function retourrange(x As Integer, zz As Range) As Variant()
Dim y()
Dim w As Integer
w = zz.Rows.Count
ReDim y(1 To w)
Dim i As Integer
For i = 1 To w
y(i) = zz(1) + x
Next i
retourrange = y(w)
End Function
Merci pour tout aide