VBA Excel 2007 Minuscule -- Majuscule Fermé

Question

Bonjour
existe t il un code pour que si la saisie (NOM) a été faite en minuscule elle soit transformée en majuscule avant d'être exploité par la fonction Recherche

voila ma macrocommande je voudrai la compléter 

Sub Macro1()
'
On Error GoTo monerreur

    NOM = InputBox( _
    Prompt:="Ecrire les 3 Premières Lettres du Nom -- Majuscules -- SVP -- ", _
    Title:="Associés de Travail")
'
'
    Range("D56:Z127").Select
    With Application.ReplaceFormat.Font
        .FontStyle = "Gras"
        .Size = 12
        .Subscript = False
        .Color = 275
      End With
    Selection.Replace What:=NOM, Replacement:=NOM, LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=True
    ActiveWindow.SmallScroll Down:=-36
    Range("B56").Select
Exit Sub
monerreur:
End Sub


merci d'avance de votre aide elle est vraiment précieuse

lami20j · Answer

Salut,

Essai
NOM = UCase(InputBox( _
Prompt:="Ecrire les 3 Premières Lettres du Nom -- Majuscules -- SVP -- ", _
Title:="Associés de Travail"))

VBA Excel 2007 Minuscule -- Majuscule

1 réponse

Discussions similaires