J'ai écrit une fonction qui me permet de concaténer plusieurs cellules en
une seule. La fonction a cette tête là:
Function bloc_adresse(adresse, complement, cpost, ville, pays)
tempo = ""
If adresse <> "" Then tempo = tempo & adresse & Chr(10)
If complement <> "" Then tempo = tempo & complement & Chr(10)
cpost = Application.WorksheetFunction.Text(cpost, "00000")
If cpost <> "" Then tempo = tempo & cpost & " - "
If ville <> "" Then tempo = tempo & ville & Chr(10)
If pays <> "" Then tempo = tempo & pays & Chr(10)
bloc_adresse = tempo
End Function
Je voudrais que par exemple, ville puisse être en gras quand elle apparait,
mais je dois reconnaitre que j'ai atteint la limite de ma conpétence. Je me
retourne donc vers vous O excelonautes.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Elliac
Bonjour,
A mon souvenir une fonction ne sert qu'à renvoyer une valeur, donc pas de mise en forme !!!
Camille
"DCQ" wrote:
Bonjour;
J'ai écrit une fonction qui me permet de concaténer plusieurs cellules en une seule. La fonction a cette tête là:
Function bloc_adresse(adresse, complement, cpost, ville, pays) tempo = "" If adresse <> "" Then tempo = tempo & adresse & Chr(10) If complement <> "" Then tempo = tempo & complement & Chr(10) cpost = Application.WorksheetFunction.Text(cpost, "00000") If cpost <> "" Then tempo = tempo & cpost & " - " If ville <> "" Then tempo = tempo & ville & Chr(10) If pays <> "" Then tempo = tempo & pays & Chr(10) bloc_adresse = tempo End Function
Je voudrais que par exemple, ville puisse être en gras quand elle apparait, mais je dois reconnaitre que j'ai atteint la limite de ma conpétence. Je me retourne donc vers vous O excelonautes.
D'avance merci..
Bonjour,
A mon souvenir une fonction ne sert qu'à renvoyer une valeur, donc pas de
mise en forme !!!
Camille
"DCQ" wrote:
Bonjour;
J'ai écrit une fonction qui me permet de concaténer plusieurs cellules en
une seule. La fonction a cette tête là:
Function bloc_adresse(adresse, complement, cpost, ville, pays)
tempo = ""
If adresse <> "" Then tempo = tempo & adresse & Chr(10)
If complement <> "" Then tempo = tempo & complement & Chr(10)
cpost = Application.WorksheetFunction.Text(cpost, "00000")
If cpost <> "" Then tempo = tempo & cpost & " - "
If ville <> "" Then tempo = tempo & ville & Chr(10)
If pays <> "" Then tempo = tempo & pays & Chr(10)
bloc_adresse = tempo
End Function
Je voudrais que par exemple, ville puisse être en gras quand elle apparait,
mais je dois reconnaitre que j'ai atteint la limite de ma conpétence. Je me
retourne donc vers vous O excelonautes.
A mon souvenir une fonction ne sert qu'à renvoyer une valeur, donc pas de mise en forme !!!
Camille
"DCQ" wrote:
Bonjour;
J'ai écrit une fonction qui me permet de concaténer plusieurs cellules en une seule. La fonction a cette tête là:
Function bloc_adresse(adresse, complement, cpost, ville, pays) tempo = "" If adresse <> "" Then tempo = tempo & adresse & Chr(10) If complement <> "" Then tempo = tempo & complement & Chr(10) cpost = Application.WorksheetFunction.Text(cpost, "00000") If cpost <> "" Then tempo = tempo & cpost & " - " If ville <> "" Then tempo = tempo & ville & Chr(10) If pays <> "" Then tempo = tempo & pays & Chr(10) bloc_adresse = tempo End Function
Je voudrais que par exemple, ville puisse être en gras quand elle apparait, mais je dois reconnaitre que j'ai atteint la limite de ma conpétence. Je me retourne donc vers vous O excelonautes.
