Discussion :

[titemireille]

Bonjour à tous

Je me trouve confronté à un petit problème.
J'ai eu beau chercher, je n'ai pas trouvé la réponse dans le forum où alors je n'ai pas cherché au bon endroit ou encore cela ne doit poser problème qu'à moi.
Je remplis un formulaire avec des données. Pour conserver mes données, je crée une nouvelle feuille dans un classeur excel existant.
Dans le formulaire, j'ai une textbox dans laquelle j'entre un nom. Ce nom est celui qui sera donné à la feuille excel. Mon problème c'est que le nom entré dans la textbox est en minuscule et du coup le nom de la feuille est lui aussi en minuscule. J'aimerai pouvoir mettre la première lettre du nom de la feuille en majuscule.
mon bout de code est celui-ci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
'ajout d'une nouvelle feuille
Worksheets.Add Count:=1
'donner un nom à la nouvelle feuille
ActiveSheet.Name = nom

(nom étant le nom entré dans la textbox, genre paul, pierre, etc.... Il est toujours différent)
j'ai essayé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Selection.Characters(1).Case = wdUpperCase

mais cela ne donne rien.
si vous pouviez m'aider, ce n'est pas que ce soit vital, je peux le faire à la main mais je n'aime pas que la machine ait le dernier mot!!!!

merci d'avance

Titemireille

[ouskel'n'or]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.Name = Ucase(Left(Textbox1,1)) & lcase(right(Textbox1, len(Textbox1)-1))

[fring]

Hello,

Autre solution éventuelle avec l'aide de Mr Propre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.Name = Application.WorksheetFunction.Proper(TextBox1)

[Didier Gonard]

Bonsoir,

En fait, attention à Mr Propre qui est l'emploi de la fonction Excel NOMPROPRE et dont il faut se méfier de la définition : "Met en majuscule la première lettre de chaque mot dans une chaîne textuelle et met toutes autres lettres en minuscules."

Un petit code vallant mieux que de longs discours :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Opion Explicit
Dim strNom As String
 
Sub Plop1()
strNom = "TOTO"
ActiveSheet.Name = strNom
End Sub
 
Sub Plop2()
strNom = "TOTO et tata"
ActiveSheet.Name = strNom
End Sub
 
Sub MajUnMot()
ActiveSheet.Name = Application.Proper(ActiveSheet.Name)
End Sub
 
Sub MajPluriMots()
ActiveSheet.Name = UCase(Left(strNom, 1)) & Mid(LCase(strNom), 2)
End Sub

Pour l'exemple, titemireille, tu mets ce code dans un module de base (on raisonne sur une chaîne de caractères, la notion de textbox étant OK )

En lançant :
a) Plop1 puis MajUnMot et MajPluriMots à suivre
b) Plop2 puis MajUnMot et MajPluriMots à suivre

tu regardes le résultat, et tu en déduis les implications

cordialement,

Didier

[ucfoutu]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 toto = Text1.Text
  Mid(toto, 1, 1) = UCase(Mid(toto, 1, 1))
  ActiveSheet.Name  = toto

[titemireille]

Bonsoir à tous
merci à Fring, Ormonth et Ucfoutu pour leur réponses. mais.......
A la solution de Fring, réponse en désignant function "Membre de méthode ou de données introuvable"
A la solution d'Ormouth, réponse identique à celle de Fring
A la solution de Ucfoutu, réponse en désignant Text de Text1 "Qualificateur incorrect"

Ce qui me pose problème c'est de sélectionner la 1ère lettre du nom inscrit dans la textbox pour la mettre en majuscule. Parceque mettre le nom entier en majuscule, ça j'y arrive!

Ce que j'ai omis de dire mais je ne pense pas que ce soit primordial, c'est que mon formulaire est dans word.

Si vous avez d'autres idées.

Merci d'avance
Titemireille

[ucfoutu]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

A la solution de Ucfoutu, réponse en désignant Text de Text1 "Qualificateur incorrect"

Montre-nous cette partie du code que tu as écrit (par copier-coller), s'il te plait ...

[fring]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Ce que j'ai omis de dire mais je ne pense pas que ce soit primordial, c'est que mon formulaire est dans word

...tu as raison c'est juste un détail insignifiant

Si jusque là tu y arrives sans problème

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
'ajout d'une nouvelle feuille
Worksheets.Add Count:=1
'donner un nom à la nouvelle feuille
ActiveSheet.Name = nom

Il suffit de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
'ajout d'une nouvelle feuille
Worksheets.Add Count:=1
'donner un nom à la nouvelle feuille
ActiveSheet.Name = Ucase(Mid(nom, 1, 1)) & Mid(nom, 2)
 
'ou
'ActiveSheet.Name = Application.WorksheetFunction.Proper(nom)

[titemireille]

Merci Fring, ca fonctionne.
Je ne connaissais pas la fonction Mid, j'aurai encore appris quelquechose.
Merci à tous
A plus
titemireille

[Didier Gonard]

Bonsoir,

titemireille, à défaut d'être explicite, expliques moi comment ce code génère une erreur ?:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub MajPluriMots()
ActiveSheet.Name = UCase(Left(strNom, 1)) & Mid(LCase(strNom), 2)
End Sub

Et si l'utilisateur tapes tout en majuscule, tu fais comment ?

bon courage,

Didier

[titemireille]

Bonsoir Didier,
pour répondre à ta question, enfin à une partie, l'utilisateur c'est que moi! et dans le formulaire, j'ai mis des "bulles" pour indiquer comment taper le texte.
Enfin demain, j'essaierai ce que tu m'as proposé. Si j'ai bien compris, cela doit arriver au même résultat que je tape en minuscule ou en majuscule?
Allez bonne nuit
Titemireille