[VBA] Boucle & Fonction Fermé

Question

Bonjour à tous !

Néophyte dans la création de macro, je me tourne vers vous pour voir comment résoudre mon problème.

En effet, je cherche à créer une boucle avec une fonction. 
La boucle toute seule, çà va. La fonction toute seule, çà va. Mais réunir les deux dans une seule action, je vous avoue que je bloque.

La fonction en question est : 

Function Range(Delay)

Select Case Delay

Case Is <= 0
Range = "In time"

Case 1 To 30
Range = "<= 30 days"

Case Else
DelayRange = "N/A"

End Select
End Function


Comment puis-je intégrer celle-ci dans une boucle ?


Merci d'avance,
Zitro

Zitroba · Answer

En général, il suffit de poser la question pour trouver la solution.

Pour ceux que ça intéresserait, la fonction était à créer d'une part et à l'appeler d'autre part:

  Sub abRange()
'
' Ceci va appeler la fonction "aRange"
'
Cells(1, 4).Select
ActiveCell.FormulaR1C1 = "=arange(RC[-1])"
Selection.AutoFill Destination:=Range(Selection, Selection.End(xlDown))
           
End Sub

[VBA] Boucle & Fonction

1 réponse

Discussions similaires

Newsletters