Les majuscules dans une cellule

Le
crolegoogle
Bonjour le groupe,

J'ai lu dans le groupe qu'il était possible d'attribuer une majuscule
à chaque mot d'une cellule par l'action d'une macro.
Je souhaiterais connaître le code vba à insérer dans ma feuille pour:

1) Attribuer une majuscule à chaque mot de la cellule ("b14") lorsque
je passe à la cellule suivante.
2) Tout le mot en majuscule de la cellule ("h16") je me suis penché
sur UCase mais j'ai pas trouvé.

Merci de m'éclairer
Cordialement
Crole
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Ellimac
Le #5440101
Bonjour,
Clic droit sur l'onglet de feuille et coller ceci :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$14" Then Target = Application.Proper(Target)
If Target.Address = "$H$16" Then Target = UCase(Target)
End Sub

Camille


Bonjour le groupe,

J'ai lu dans le groupe qu'il était possible d'attribuer une majuscule
à chaque mot d'une cellule par l'action d'une macro.
Je souhaiterais connaître le code vba à insérer dans ma feuille pour:

1) Attribuer une majuscule à chaque mot de la cellule ("b14") lorsque
je passe à la cellule suivante.
2) Tout le mot en majuscule de la cellule ("h16") je me suis penché
sur UCase mais j'ai pas trouvé.

Merci de m'éclairer
Cordialement
Crole
crolegoogle
Le #5440091
Merci Ellimac
Merci au groupe

C'est exactement ce que je recherchais

Bonne journée à tous
Cordialement
Crole
JB
Le #5440081
Bonjour,

Pour ne pas boucler.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$14" Then
Application.EnableEventsúlse
Target = Application.Proper(Target)
Application.EnableEvents=True
end if
End Sub


JB
http://boisgontierjacques.free.fr/

On 17 avr, 12:02, wrote:
Merci Ellimac
Merci au groupe

C'est exactement ce que je recherchais

Bonne journée à tous
Cordialement
Crole


Publicité
Poster une réponse
Anonyme