histoire de majuscules

[kinel]

bonjour

la commande suivante me permet de forcer la majuscule sur les cellules c4:c33

je voudrait compléter ma feuille en forçant la majuscule sur la première lettre des mots contenus dans les cellules d4:d33

Merci de votre aide



Private Sub Worksheet_Change(ByVal Target As Range)
Dim flag As Boolean

If Target.Count > 1 Then Exit Sub
If Target.Value = "" Then Exit Sub

If Not Intersect(Target, Range("c4:c33")) Is Nothing Then
Application.EnableEvents = False
flag = True
Target.Value = Evaluate("PROPER(""" + Target.Value + """)")
End If

If Not Intersect(Target, Range("c4:c33")) Is Nothing Then
Application.EnableEvents = False
flag = True
Target.Value = UCase(Target.Value)
End If


Application.EnableEvents = True

End Sub

 

[Pierrot93]

Re : histoire de majuscules

Bonjour,

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

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

bon après midi
@+

 

[Pierrot93]

Re : histoire de majuscules

Re,

regarde peut être ceci aussi :

Target.Value = StrConv(Target, vbProperCase)

 

[chappyporfaro]

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

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

Bonne journée

Pierre

 

[kinel]

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

 

[Pierrot93]

Re : histoire de majuscules

Re,

et bien rajoute ceci à ton code :

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

 

[chappyporfaro]

Re : histoire de majuscules

Bonjour,

Pour ma croissance personnelle, que fait cette ligne:

If Not Intersect(Target ...

Merci

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

Pierre

 

[Pierrot93]

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)...

 

[kinel]

Re : histoire de majuscules

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

exactement ce que je voulais
Merci
et bon week end