Concaténation avec espaces déterminés

Bonjour,

Je cherche à savoir comment faire pour concaténer un nom et une adresse dans une cellule sachant que l'adresse doit toujours commencer à la même position dans la cellule comme ci-après:

Citation:

---

Jean Durand 5 rue Hoche
Jerome Petit 8 avenue Kleber

---

Exemple:

Code:

---

1 2 3 4

Dim NOM,ADRESSE As string Range ("A" & i).Value = NOM & "Nombre d'espaces" & ADRESSE

---

Sachant que l'adresse doit toujours commencer à la position 46 par rapport au 1er caractère de la cellule.

Merci de votre aide. John81

Bonsoir,

Essayez :

Code:

---

1 2	lng = Len(nom) Range("A1") = NOM & Space(45 - lng) & ADRESSE

---

Merci becp jacques_jean ça marche. Bonne journée John81