[VBA] Boucle & Fonction
Zitroba
Messages postés
2
Date d'inscription
Statut
Membre
Dernière intervention
-
Zitroba Messages postés 2 Date d'inscription Statut Membre Dernière intervention -
Zitroba Messages postés 2 Date d'inscription Statut Membre Dernière intervention -
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
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
A voir également:
- [VBA] Boucle & Fonction
- Fonction si et - Guide
- Fonction miroir - Guide
- Fonction moyenne excel - Guide
- Excel compter cellule couleur sans vba - Guide
- Excel remplir automatiquement une cellule en fonction d'une autre ✓ - Forum Excel
1 réponse
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
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
