KenDev
XLDnaute Impliqué
Bonjour à tous,
J'écris une fonction de manipulation de string, destinée à un Addin, qui renvoit un string. Je dois vérifier que l'entrée string réponde à certains critères. Comment faire pour que, si ces critères ne sont pas remplis, la fonction me renvoie un err.number (et un err.description) que j'aurai défini ?
Si c'est possible, comment trouver un err.number libre ? J'avais envisagé :
et choisir ainsi parmi les cellules vides, mais ce code s'éxécute sans rien écrire.
Et enfin comment définir une erreur en vba ?
Dans un premier temps, merci de m'avoir lu. Cordialement.
KD
Edit : J'ai trouvé pour les deux premières questions
J'écris une fonction de manipulation de string, destinée à un Addin, qui renvoit un string. Je dois vérifier que l'entrée string réponde à certains critères. Comment faire pour que, si ces critères ne sont pas remplis, la fonction me renvoie un err.number (et un err.description) que j'aurai défini ?
Si c'est possible, comment trouver un err.number libre ? J'avais envisagé :
VB:
For i = 1001 To 10000
Err.Number = i
Cells(i, 1) = Err.Description
Next i
Et enfin comment définir une erreur en vba ?
Dans un premier temps, merci de m'avoir lu. Cordialement.
KD
Edit : J'ai trouvé pour les deux premières questions
VB:
Sub erdsg()
On Error GoTo erRline
For i = 1 To 65536
Err.Raise i
Next i
erRline:
Cells(i, 1) = Err.Number
Cells(i, 2) = Err.Description
Resume Next
End Sub
Dernière édition: