VBA Excel 2007 Minuscule -- Majuscule

djca Messages postés 26 Date d'inscription Statut Membre Dernière intervention -
djca - 4 avril 2010 à 19:32

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

A voir également:

VBA Excel 2007 Minuscule -- Majuscule
Majuscule en minuscule - Guide
Save as pdf office 2007 - Télécharger - Bureautique
Liste déroulante excel - Guide
Code ascii de a minuscule - Guide
Word et excel gratuit - Guide

1 réponse

Réponse 1 / 1

lami20j Messages postés 21331 Date d'inscription Statut Modérateur, Contributeur sécurité Dernière intervention 3 569

Salut,

Essai

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

djca

Merci beaucoup bonne soirée

Discussions similaires

Touches majuscule et minuscule inversées sur mon clavier

Inversion des touches Majuscules et Minuscules quand je tape

Pb de clavier - Inversion majuscule/minuscule

Votre réponse

Discussions similaires