histoire de majuscules

Pierrot93

XLDnaute Barbatruc

• 15 Juin 2012

• #2

Re : histoire de majuscules

Bonjour,

bah.. élargie la plage... enfin si j'ai bien compris...

Code:

If Not Intersect(Target, Range("c4:D33")) Is Nothing Then

bon après midi
@+

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 15 Juin 2012

• #3

Re : histoire de majuscules

Re,

regarde peut être ceci aussi :

Code:

Target.Value = StrConv(Target, vbProperCase)

 

Vote positif 0 Vote négatif

chappyporfaro

XLDnaute Junior

• 15 Juin 2012

• #4

Re : histoire de majuscules

Bonjour,

Je ne suis pas un pro, alors je lance l'idée comme ça.
Pourquoi n'utilise-tu pas la Selection?

Sub PremMajuscule()
Dim plage As Range, Target As Range, uppercase As String, lowercase
' Mise en majuscule du premier caractère des cellules sélectionnées. Par Moi-même - 2012-06-04

Set plage = Selection ' La plage s'étend a la sélection actuelle.

For Each Target In plage
uppercase = Target.Value
lowercase = LCase(uppercase)
Target.Value = lowercase
If Target.Count > 1 Then Exit Sub
If Target.Value = "" Then
GoTo Suivant
End If
Target.Value = UCase(Left(Target.Value, 1)) & Right(Target.Value, Len(Target) - 1)

Suivant:
Next Target

End Sub

Cliquez pour agrandir...

Je l'utilise depuis quelques semaines et ça va bien.

Bonne journée

Pierre

 

Vote positif 0 Vote négatif

K

kinel

XLDnaute Occasionnel

• 15 Juin 2012

• #5

Re : histoire de majuscules

merci pour les réponses

l'élargissement de sélection fonctionne mais ce que je voudrai c'est une colonne avec les NOMS et la colonne voisine avec les Prénoms
histoire que les multiples utilisateurs de la feuille sortent un tableau identique

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 15 Juin 2012

• #6

Re : histoire de majuscules

Re,

et bien rajoute ceci à ton code :

Code:

If Not Intersect(Target, Range("D4:D33")) Is Nothing Then
Application.EnableEvents = False
Target.Value = StrConv(Target, vbProperCase)
End If

 

Vote positif 0 Vote négatif

chappyporfaro

XLDnaute Junior

• 15 Juin 2012

• #7

Re : histoire de majuscules

Bonjour,

Pour ma croissance personnelle, que fait cette ligne:

If Not Intersect(Target ...

Cliquez pour agrandir...

Merci

PS: Pierrot, j'aime bien la citation dans ta signature 😉

Pierre

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 15 Juin 2012

• #8

Re : histoire de majuscules

Re,

cette ligne permet de tester si la cellule modifiée (target) est bien dans la plage que l'on veut contrôler (D4😀33)...

 

Vote positif 0 Vote négatif

K

kinel

XLDnaute Occasionnel

• 15 Juin 2012

• #9

Re : histoire de majuscules

une fois de plus le grand gagnant est ......Pierrot93 🙂))

exactement ce que je voulais
Merci
et bon week end

 

Vote positif 0 Vote négatif