Bonjour,
Je souhaite appliquer une fonction personnalisée (module vba) à toute valeur introduite pour chaque cellule d'une colonne précise.
Comment réaliser une boucle pour que le code VBA de la fonction personnalisée soit exécuté à chaque entrée données dans la cellule ?
Voici le code de la fonction :
Merci pour l'aide.
Je souhaite appliquer une fonction personnalisée (module vba) à toute valeur introduite pour chaque cellule d'une colonne précise.
Comment réaliser une boucle pour que le code VBA de la fonction personnalisée soit exécuté à chaque entrée données dans la cellule ?
Voici le code de la fonction :
Code:
Public Function MEF_Iban(Cellule As String) As String
Dim tmp As String
If Cellule = "" Then Exit Function
Dim nbCar As Byte, i As Byte
tmp = ""
nbCar = Len(Cellule)
For i = 1 To nbCar Step 4
tmp = tmp + Mid(Cellule, i, 4) & " "
Next i
MEF_Iban = tmp
End Function
Merci pour l'aide.