Minuscule >>Majuscule

PAD · 11 Février 2006

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 · 11 Février 2006

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. · 11 Février 2006

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é · 12 Février 2006

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 · 12 Février 2006

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 · 12 Février 2006

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 · 23 Février 2006

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

Cliquez pour agrandir...

salut

a · 23 Février 2006

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

Cliquez pour agrandir...

salut

Minuscule >>Majuscule

PAD

Guest

ziopizza

XLDnaute Occasionnel

pat1545.

XLDnaute Accro

Hervé

XLDnaute Barbatruc

PAD

XLDnaute Occasionnel

PAD

XLDnaute Occasionnel

a

Guest

a

Guest

Discussions similaires

Minuscule >>Majuscule

PAD

Guest

ziopizza

XLDnaute Occasionnel

pat1545.

XLDnaute Accro

Hervé

XLDnaute Barbatruc

PAD

XLDnaute Occasionnel

PAD

XLDnaute Occasionnel

a

Guest

a

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency