Toutes les lignes en majuscule

gilbert_RGI

XLDnaute Barbatruc

• 31 Décembre 2011

• #2

Re : Toutes les lignes en majuscule

Bonjour

avez- vous tester Ucase() ?

c'est magique

UCase (Target.Value) 🙂🙂

 

Dernière édition: 31 Décembre 2011

Vote positif 0 Vote négatif

E

eliot raymond

XLDnaute Occasionnel

• 31 Décembre 2011

• #3

Re : Toutes les lignes en majuscule

Salut gilbert,

Merci de la réponse,

OUI j'ai essayer mais je n'arrive pas a placer correctement le code pour obtenir le résultat souhaiter.

Raymond

 

Vote positif 0 Vote négatif

H

haonv

XLDnaute Occasionnel

• 31 Décembre 2011

• #4

Re : Toutes les lignes en majuscule

Bonjour Raymond ,Gilbert,

Un essai avec :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C8:C18")) Is Nothing Then
If Target.Count <> 1 Then Exit Sub

Application.EnableEvents = False

With Target
.Font.ColorIndex = 1
.Font.Bold = True
.Characters.Text = UCase(Target.Characters.Text)
End With
With Target.Characters(1, 1)
.Font.ColorIndex = 3
End With

Application.EnableEvents = True
End If
End Sub

Cliquez pour agrandir...

Amicalement

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 31 Décembre 2011

• #5

Re : Toutes les lignes en majuscule

Bonjour Eliot Gilbert😱 le forum
voilà ton fichier en retour à l'ouverture comme tu as demandé tu as la mise à jour des cellule C8 à C18

et Bonne Année 2012
a+
Papou😱

EDIT: j'ai oublié Haonv

 

Pièces jointes

• Eliot V1.xlsm

  18.1 KB · Affichages: 59

Dernière édition: 31 Décembre 2011

Vote positif 0 Vote négatif

E

eliot raymond

XLDnaute Occasionnel

• 31 Décembre 2011

• #6

Re : Toutes les lignes en majuscule

Salut haonv,

merci pour ta réponse et le petit code

ca fonctionne mais ca passe en majuscule qu'après avoir valider par "enter" le texte
je souhaiterai svp que dès l'ouverture du fichier ca passe directement toute la liste en majuscule
la ce ne sont que quelques lignes, la liste va s'allonger bien sur (LOL)

merci a plus tard
Raymond

 

Vote positif 0 Vote négatif

E

eliot raymond

XLDnaute Occasionnel

• 31 Décembre 2011

• #7

Re : Toutes les lignes en majuscule

Merci a vous 3 haonv, gilbert, paritec

c'est bon ca fonctionne comme souhaiter avec la modif de paritec.

encore merci je vous souhaite a tous un excellent réveillon 2011 - 2012

ainsi qu'au forum

Amicalement Raymond meilleurs voeux a tous le monde

 

Vote positif 0 Vote négatif