Majuscule début et . à la fin.

pierre4 · 1 Avril 2011

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 · 1 Avril 2011

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

Bonjour,

Essaye avec ceci :

Code:

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

@+

pierre4 · 1 Avril 2011

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 · 1 Avril 2011

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

Bonsoir,

Code:

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 · 2 Avril 2011

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

Majuscule début et . à la fin.

pierre4

XLDnaute Occasionnel

Tibo

XLDnaute Barbatruc

pierre4

XLDnaute Occasionnel

kjin

XLDnaute Barbatruc

pierre4

XLDnaute Occasionnel

Discussions similaires

Majuscule début et . à la fin.

pierre4

XLDnaute Occasionnel

Tibo

XLDnaute Barbatruc

pierre4

XLDnaute Occasionnel

kjin

XLDnaute Barbatruc

pierre4

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency