Une petite fonction exemple concatenant des arguments en les separants pas des ",".
Le Point important étant : <b>ParamArray</b> var()
Le tableau est forcement du type variant donc pensez a 'checker' le type de vos variables.
Source / Exemple :
Public Function ConcatStr(ParamArray vString()) As String
Dim x As variant
Dim TmpStr As String
For Each x In vString
TmpStr = TmpStr & CStr(x) & ","
Next x
If Len(TmpStr) > 0 Then
ConcatStr = Left(TmpStr, Len(TmpStr) - 1)
End If
End Function
Conclusion :
'Appelle de fonction :
msgbox concatstr("super ", 42, "Variable 3","Allez on arrete ...",5)
Voila, c'est très simple et malheureusement peu documenté dans les tuto 'notions de base' alors que c'est si pratique !
Happy coding
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.