Bonjour,
j'essaie d'automatiser une concaténation, avec le code suivant

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Function concat(col1 As String, col2 As String, cible As String)
    Dim i As Integer
        i = 3
    While Range(col1 & i) <> "" Or Range(col2 & i) <> ""
        Range(cible & i) = Range(col1 & i) & Range(col2 & i)
        i = i + 1
        Wend
 
 
 
End Function
c'est une fonction car je l'appelle dans un main après.

Le problème est que quand je veux concaténer "000002" avec "6", cela me sort un 26 alors que je veux un 0000026 .

Comment faire?
Merci d'avance
guillaume