Majuscule et Nompropre en VB

[Olivier]

Bonjour à toutes et à tous,

J'ai récupéré deux valeurs à partir d'une TextBox et j'aimerais les placer dans une cellulle donc je fais:
ActiveCell.Value = Prénom & ' ' & Nom
mais j'aimerais que Prénom s'inscrive en Nompropre et Nom en majuscule, c'est quoi qu'il faut que je rajoute ?
en formule je sais que c'est = majuscule(Nom) ou = nompropre(prénom) mais en VB ???

Merci beaucoup
@+
Olivier

 

[bertrand]

bonjour,

pour vba les fonctions excel sont à écrire en anglais :

majuscule ==> upper( )

nompropre ==> proper ()

j'espère que cela te suffira, sinon je m'y remettrai ..

@+

 

[Olivier]

bah super, cela devrait être bon, je vérifie de suite...
Merci beaucoup
@+

 

[Olivier]

Ah bah non, ça ne marche pas ça:

ActiveCell.Value = proper(Prénom) & ' ' & upper(Nom)

où se trouve l'erreur ?

 

[dg62]

Bonjour Olovier, Bertrand


un code qui te transforme une saisie du type


dupont louis en DUPONT Louis

et cela automatiquement.

 Private Sub Worksheet_Change(ByVal Target As Range)
' Nom en majuscule et première lettre du prénom en maj le reste en min
Dim pos As Integer
Dim nom, prenom As String
    
If Not Intersect(Range('A3:A20'), Target) Is Nothing Then

    cel = Target.Value
    If cel > '' Then
        pos = InStr(1, cel, ' ', 1)
        nom = Left$(cel, pos)
        prenomMaj = Right$(cel, Len(cel) - pos)
        prenomMin = Right$(cel, Len(cel) - pos - 1)
        cel = UCase(nom) & UCase(Left$(prenomMaj, 1)) & prenomMin
        Application.EnableEvents = False
        Target = cel
        Application.EnableEvents = True
        
    End If
End If
       
End Sub

Si tu veux plus simple pour mettre en majuscule la fonction VBA est Ucase(texte)

 

[bertrand]

salut dg92 et olivier,

je suis dsl, je t'ai induit tout plein de l'erreur. j'ai confondu calcul interne et coller une fonction dans la feuille.

pour traduire une chaine texte dans VBA il s'agit bien de Ucase.

Encore dsl, la fin de journée devient difficile.

@+

 

[Olivier]

Pas de problème Bertrand, c'est oublié ;-)
Merci à toi et à Dg62 pour tes solutions, d'ailleurs t'as pas une formule pour changer Olovier en Olivier ;-)

Merci à vous deux
@+
Olivier

 

[_Thierry]

Bonjour Didier, Olivier, Bertrand, le Forum

Moi aussi fut un temps j'ai construit une usine à gaz pour faire ceci, et si je ne m'abuse c'est Jean-Marie (Mac) qui m'avait montré cette astuce :

Sub ProperName()
Dim TextBoxString As String

TextBoxString = InputBox('Tapez n'importe quoi')

MsgBox Application.WorksheetFunction.Proper(TextBoxString)
End Sub


Donc en fait Bertrand n'était pas loin de la solution !

Bonne Fin d'après midi.
@+Thierry

 

[Olivier]

ben voilà au final la formule qui marche nickel (en précisant que Nom et Prénom sont deux variables que j'ai récupéré d'un userform):

ActiveCell.Value = Application.WorksheetFunction.Proper(Prénom) & ' ' & UCase(Nom)

Merci à tous les 3

@+
Olivier

 

[JeanMarie]

Bonsoir tout le monde

Je confirme Thierry, je suis heureux que tu te souviennes de cette fonction. Moi je me souviens encore de ce fil.

@+Jean-Marie

 

[_Thierry]

Bonjour ou plutôt Bonsoir à tous

Alors heureux pour toi Olivier, comme quoi l'Union fait la Force.

Et oui Jean-Marie c'est bien toi le 'papa' de la divulgation de cette astuce sur XLD, voici le Fil pour un moment de nostalgie, plus de 20 mois déjà :

Lien supprimé

D'ailleurs en relisant ce fil on peut apparemment encore plus réduire le code comme ceci :

ActiveCell.Value = Application.Proper(Prenom) & ' ' & UCase(Nom)

(WorksheetFunction devenant un 'tacite sous entendu')

Bonne soirée
@+Thierry

PS on notera que j'écris Prenom sans accent, car bien que VBA laisse passer, les caractères spéciaux font parfois bien des misères dans les codes lors de la circulation du programme sur différentes machines non FR, et compression/décompression crytptage/décryptage etc.... Donc perso, je ne nomme jamais quoique ce soit avec des accents...