Croiser deux valeurs numérique

Bonjour,

j'aimerai savoir comment on peut faire en VBA pour croiser deux valeurs :

par exemple j'ai les valeurs suivantes : 12345 et 99999 je voudrais prendre les deux premiers numéros du premier chiffre et le combiner avec les 3 derniers numéros du deuxième chiffre , ce qui donnerai 12999

j'ai réussi à faire ça grâce à des fonctions Excel (voir le fichier joint)

merci beaucoup

Bonjour,

Parles-tu de la création d'une fonction personnalisée avec VBA?

Cdlt

Re,

Une proposition

A te relire plus d'informations.

Option Explicit
Public Function test(x1 As Long, x2 As Long) As Long
    test = Left(x1, 2) & Right(x2, 4)
End Function

merci beaucoup

c'est bon j'ai trouvé le code qui permet de faire cela

Sub toto()

Texte = left(range("D4").value,2) & right(range("F4").value,5)

End Sub

mais peut-on le rendre plus générique :

car nous ne savons pas d'avance le nombre de valeurs qu'il y aura dans les deux colonnes initiales.

je pense qu'il faudra ajouter des bouts de codes comme le suivant mais je ne sais pas trop comment les intégrer

Range("C" & i).Value

Range("D4:D" & Range("D" & Rows.Count).End(xlUp).Row)

Bonjour, Salut Jean-Eric,

Essaye le code suivant :

Sub concatener()
    For i = 3 To Range("D" & Rows.Count).End(xlUp).Row
        Range("H" & i) = Left(Range("D" & i), 2) & Right(Range("F" & i), 5)
    Next i
End Sub

J'ai construit la macro à partir de ton fichier exemple. Il faut l'adapter si besoin est à la réalité.

Remarque : c'est vraiment étonnant que tu demandes une macro pour ce faire !!!