L'informatique à votre portée
L'informatique prêt-à-porter

Faites appel à moi pour vos formations
sur les dpts 81, 31, 82, 11 et 67 (Strasbourg)
Confiez moi vos développements Office

FacebookTwitterGoogle BookmarksLinkedin

JOIN

Imprimer E-mail
5 mars 2014

Cette fonction crée un texte en joignant chaque données du tableau, tout en les séparant par un caractère de délimitation

Exemple:

Sub TestJoin()
    Dim sTab(), sResult As String
    
    ' Crée un tableau
    sTab = Array("un", "deux", "trois", "quatre", "cinq")
    sResult = Join(sTab, "-")
    Debug.Print sResult
End Sub

SPLIT

Imprimer E-mail
5 mars 2014

Cette fonction permet de récupérer un tableau de données texte à partir d'un texte dont chaque partie est séparée par un caractère de délimitation.

Exemple :

Sub Test()
    Dim sTab() As String
    
    sTab = Split("un,deux,trois,quatre", ",")
    Debug.Print sTab(0), sTab(1), sTab(2), sTab(3)
End Sub

Une fonction pour récupérer les lettres d'une colonne à partir d'un n° de colonne

Function NoColonne(lNum As Long) As String
    NoColonne = Split(Cells(1, lNum).Address, "$")(1)
End Function