Majuscule début et . à la fin.

[pierre4]

bonjour,
je bloque

dans une cellule "j'ai(le forum!)" fusionné plusieurs textes de # cellules: =ConcatPlage(D1132;4;", ")
y a t il possibilité d'ajouter la Majuscule au début et le point à la fin.merci.🙂

Pierre4

 

[Tibo]

Re : Majuscule début et . à la fin.

Bonjour,

Essaye avec ceci :

 =NOMPROPRE(ConcatPlage(D1132;4;", "))&"."

@+

 

[pierre4]

Re : Majuscule début et . à la fin.

Bonjour Tibo,
cela donne: Lessivage, Traitement Des Fissures, Rebouchage-Ponçage, 2 Couches De Peinture Acrylique Mate.
je souhaite qu'au début la Majuscule!!!voici ce que j'ai en +:
Function ConcatPlage(plage As Range, décalage As Integer, séparateur As String) As String
Application.Volatile
Dim rep As String, c As Range
For Each c In plage
If c.Value <> "" And c.Offset(0, décalage).Value <> 0 Then
rep = rep & c.Value & séparateur
End If
Next c
ConcatPlage = Left(rep, Len(rep) - Len(séparateur))
End Function

voilà !!!
Pierre

 

[kjin]

Re : Majuscule début et . à la fin.

Bonsoir,

Function ConcatPlage(plage As Range, decalage As Integer, separateur As String) As String
Application.Volatile
Dim rep As String, c As Range
For Each c In plage
If c.Value <> "" And c.Offset(0, decalage).Value <> 0 Then
rep = LCase(rep & c.Value & separateur)
End If
Next c
ConcatPlage = Left(rep, Len(rep) - Len(separateur)) & "."
ConcatPlage = UCase(Left(ConcatPlage, 1)) & Mid(ConcatPlage, 2, Len(ConcatPlage))
End Function

A+
kjin

 

[pierre4]

Re : Majuscule début et . à la fin.

Bonjour Kjin,
un grand merci, ça fonctionne très bien.c'est très pratique...
pour mon devis c'est un gain de temps:juste une sélection/désélection par les quantitées,on peu ajouter une ligne avec un texte et le libéllé est tapé...
avec le forum exel ,on fait des merveilles!
belle journée.
Pierre4