Minuscule >>Majuscule

[PAD]

Bonjour à tous,

Comment je peux faire en VBA pour modifier du texte écrit en minuscule par des majuscules,
en sélectionnant la colonne entiére.

Merci d’avance pour votre aide,

Cordialement,

PAD

 

[ziopizza]

Bonsoir PAD et le Forum,
Essaye ce code
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Isect As Range
Dim maj As Range
'choix de la plage
Set maj = Range('a1:a1500') 'force la majuscule
If Not Application.Intersect(maj, Range(Target.Address)) Is Nothing Then
Target.Value = UCase(Target.Value)
End If
Yves

Message édité par: ziopizza, à: 15/02/2006 14:46

 

[pat1545.]

Salut,
tu colles ceci dans un module et puis tu sélectionnes les cellules et tu lances la macro par F5 en étant dans l'editeur vba:

Sub nom_en_majuscule()
Dim uneCellule As Range
For Each uneCellule In Selection
If uneCellule.Value = '' Then GoTo lasuite 'au cas ou une cellule serait vide dans la sélection
uneCellule.Value = UCase(uneCellule.Value) ' & LCase(Right(uneCellule.Value, Len(uneCellule.Value) - 1))
lasuite:
Next uneCellule
End Sub

 

[Hervé]

bonsoir tout le monde

pat, la structure de l'instruction if then permet de 'sauter' un bloc d'instruction si une condition n'est pas remplie, il est donc inutile de passer par un goto (souvent synonyme de complication dans des longs codes).

Sub Bouton1_QuandClic()

Dim uneCellule As Range

For Each uneCellule In Selection
        If Len(uneCellule.Value) > 0 Then
                uneCellule.Value = UCase(uneCellule.Value)
        End If
Next uneCellule

End Sub

salut

 

[PAD]

Bonjour Hervé, Pat, Yves, le Forum,

Super les deux codes marchent bien,
Celui de Yves fonction à la frappe du clavier, les mots sont écrits obligatoirement en majuscule, celui de Pat et Hervé converti les mots écrits en minuscule en majuscule.

Franchement super, une question 2 solutions, à mettre de coté. B)

Bonne journée à tous,

Merci Hervé, Pat et Yves pour vos responses,

A bientôt,

Pad

 

[PAD]

Re Bonjour à tous,

j'ai une question à Yves,
Que veut dire la variable (je pense que c'est comme ça qu'il faut l'appeler):

Dim Isect As Range

Parce que le mot Isect n'est pas dans le code.

Voila c'est tout, enfin pour l'instant

A+
Et encore merci

PAD

 

[a]

Hervé écrit:

bonsoir tout le monde

pat, la structure de l'instruction if then permet de 'sauter' un bloc d'instruction si une condition n'est pas remplie, il est donc inutile de passer par un goto (souvent synonyme de complication dans des longs codes).

Sub Bouton1_QuandClic()

Dim uneCellule As Range

For Each uneCellule In Selection
If Len(uneCellule.Value) > 0 Then
uneCellule.Value = UCase(uneCellule.Value)
End If
Next uneCellule

End Sub

salut

 

[a]

Hervé écrit:

bonsoir tout le monde

pat, la structure de l'instruction if then permet de 'sauter' un bloc d'instruction si une condition n'est pas remplie, il est donc inutile de passer par un goto (souvent synonyme de complication dans des longs codes).

Sub Bouton1_QuandClic()

Dim uneCellule As Range

For Each uneCellule In Selection
If Len(uneCellule.Value) > 0 Then
uneCellule.Value = UCase(uneCellule.Value)
End If
Next uneCellule

End Sub

salut