repeter un nombre de fois

[pat1545.]

Bonsoir;
je suis semble t il fatigué...
j'ai une liste de nom (de longueur variable bien sur) et je voudrais ensuite
répéter le trait '-' n fois pour que la date de naissance (en 8 caractères
de long) tombe toujours au meme endroit après les '-'. La date bien alignée donc...

suis je clair ? j'en doute
voici la partie du code:

longue = nbcar(nom) 'exemple 15 caracères
daten = date de naissance ' 8 caractères

Application.Rept(' - ', (30 - Longue)) & Daten & ' -- ' & Age & ' ans - - '
& Mclub & vbCrLf

ceci dans une boucle bien sur


Merci

 

[pat1545.]

plus clair comme ceci ?

patrick------12/09/76--------paris
jean---------14/12/87--------toulouse
christophe---18/12/78--------bruxelles

le nombre de '-' varie d'après la longueur du prénom


Merci

 

[Mytå]

Salut pat1545,

Les données déjà dans la même cellule,
sous différentes cellules avoir

donne un brouillon de ta base

myta

 

[andré]

Salut Pat et myta,
salut le forum,

Ce n'est réalisable qu'avec des polices dont les caractères ont une largeur constante, comme par exemple WST_fren.
Sous les autres polices, les 'm' et 'w' prennent plus de place que les 'i' et 'l'.

En combinant les fonctions NBCAR et REPT tu peux arriver assez facilement au résultat mais pas dans la même cellule.
Les trois données (nom, date et lieu) sont-elles dans une même cellule, ou dans trois cellules différentes ?

Â+

 

[Qrieux]

nom date ville
12 8 15
patrick 12/09/1976 paris
jean 14/12/1987 toulouse
christophe 18/12/1978 bruxelles

si le prenom est en colonne A la date en B et la ville en C
en ligne 6 la longueur désirée pour chaque champ
pour avoir le resultat attendu en D

=A7&REPT('-';$A$6-NBCAR(A7))&TEXTE(B7;'jj/mm/aa')&REPT('-';$B$6-NBCAR(TEXTE(B7;'jj/mm/aa')))&C7


patrick------12/09/76--------paris
jean---------14/12/87--------toulouse
christophe---18/12/78--------bruxelles

 

[Monique]

Bonjour,

Les noms en A1:A12
Les dates en B1:B12
Les villes en C1:C12

Pour la ligne 1 :
=A1&REPT('-';MAX(NBCAR(A$1:A$12)-NBCAR(A1)+2))&TEXTE(B1;'jj/mm/aa')&'--'&C1
Formule matricielle, à valider par ctrl, maj et entrée

 

[pierrejean]

bonjour pat myta andré Qrieux
mes hommages Monique

une solution macro

malheureusement valable uniquement avec la police Courier [file name=pat1545.zip size=8420]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/pat1545.zip[/file]

 

[pat1545.]

Excusez moi, j'ai oublié de dire que c'est en vba et dans un msgbox
Je joinds le fichier.

http://users.skynet.be/fa401972/MSGBOXavecTirets.zip

A bientot

 

[pierrejean]

hello pat

comme il n'est pas possible de gerer la police des msgbox j'ai opté pour un userform

vois si cela te conviens [file name=MSGBOXavecTirets.zip size=32069]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/MSGBOXavecTirets.zip[/file]

 

[pat1545.]

Salut Pierre Jean,

tout simple !!! et je n'y ai pas pensé !!!

Un grand merci

Patrick (moins fatigué qu'hier soir ; lolll)


Bye