majuscule

[analyseaux]

Bonjour

Y a t il un code vba pour pouvoir mettre une majuscule tout au début de la phrase et apres un point. Le texte est écrit dans une meme cellule.
MERCI

 

[Hulk]

Re : majuscule

Hello,

Si ça t'intéresse, pas besoin de VBA pour ça.

Si les noms sont en colonne A

=CONCATENER(MAJUSCULE(GAUCHE(A1;1)&". ");DROITE(A1;(NBCAR(A1))-1))

A tirer vers le bas.

 

[Dull]

Re : majuscule

Salut analyseaux, Doc banner, le Forum

Moi, j'aurais fait comme ça

=MAJUSCULE(GAUCHE(A1;1))&MINUSCULE(DROITE(A1;(NBCAR(A1))-1))&"."

A tester

Bonne Journée

 

[analyseaux]

Re : majuscule

ci joint un exemple de texte en A1

j'ai acheté.enfant méchant.je vais partir.
en B1 j'aurais J'ai acheté. Enfant méchant.Je vais partir.
Au début du texte la majuscule et après un point une majuscule.
Un code est plus pratique à défaut d'une formule.

merci infiniment.

 

[Staple1600]

Re : majuscule

Bonsoir


Voici une façon de faire
(test ok avec ta phrase de test:
j'ai acheté.enfant méchant.je vais partir. )

en A1 : j'ai acheté.enfant méchant.je vais partir.
en B1: =PMOTENMAJ(A1)

Public Function PMOTENMAJ(chaine$) As String
Dim chTablo() As String, i%, temp$
chTablo = Split(chaine, ".")

For i = 0 To UBound(chTablo)
    If chTablo(i) <> vbNullString Then
    chTablo(i) = _
    UCase(Left$(chTablo(i), 1)) & Right$(chTablo(i), Len(chTablo(i)) - 1)
    End If
    temp = temp & ". " & chTablo(i)
    PMOTENMAJ = Right(temp, Len(temp) - 2)
Next i
    
End Function

 

[analyseaux]

Re : majuscule

Bonjour

Cela ne fonctionne pas. N'existe pas un code sans formule entre autre.
Je vous rappelle que je travaille sur excel 2003

 

[Staple1600]

Re : majuscule

Bonjour analyseaux, le fil, le forum




Cela fonctionne ! (j'ai bien évidemment testé avant de poster ma réponse)

Voir ci-dessous


Tu as évidemment copier le code VBA de la fonction PMOTENMAJ dans un module standard
(dans le classeur où sont stockées tes données à traiter) ?

Si non ,c'est normal que cela ne fonctionne pas ...

 

[analyseaux]

Re : majuscule

C'est bien ça. Ou faut il placer alors le code.Je vous joins fichier POUR EXEMPLE.

MERCI

 

[jeanpierre]

Re : majuscule

Bonjour analyseaux, le fil,

Lorsque l'on parle d'un module standard, il s'agit d'un module que l'on incorpore au fichier, c'est-à-dire :

Sous l'éditeur VBE et sur ton fichier (par Affichage/Explorateur de projet, mais ça tu dois savoir faire), tu fais un clic droit et Insertion Module. C'est là que tu copies le code. Ensuite tu supprimes celui que tu a mis dans ThisWorkbook.

Bonne journée.

Jean-Pierre

 

[analyseaux]

Re : majuscule

Bsr

Mon fichier est à ta disposition.

 

[jeanpierre]

Re : majuscule

Re,

J'ai vu mais ton code est ThisWorkbook et non dans un module...

Je pense avoir été clair dans mon message précédent, peux pas faire mieux.

 

[pierre4]

Re : majuscule

bonjour,
dans cette cellule j'ai: =ConcatPlage(D1132;4;", ")
y a t il possibilité d'ajouter la Majuscule au début et le point à la fin.
je bloque
merci.Pierre4

 

[Denis]

Re : majuscule

Bonjour le fil et le forum
si j'ai bien compris le problème,
dans une cellule tu as la fonction NomPropre : pour ton cas >>> NomPropre (A1) & "."
en VBA, il s'agit de : Application.WorksheetFunction.Proper (Range("A1"))& "."
Bon courage et à +
Denis