Discussion :

[yalehaire]

Bonjour à tou(te)s
J'ai trouvé des tas de codes pour passer le contenu d'une cellule en majuscules. Parmi tous ceux qui fonctionnaient celui qui m'a semblé le plus "propre" est celui ci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
    If Intersect(Target, Range("tb_APs[enseignant]")) Is Nothing Or Target.Cells.Count > 1 Then Exit Sub
    Application.EnableEvents = False
    Target.Value = UCase(Target.Value)
    Application.EnableEvents = True

Code insérer dans : Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Ça fonctionne bien à un détail près. Le texte passe en majuscules quand je reviens dans la cellule ce qui semble logique puisque "Target" ça veux dire "cible" mais ce que je veux c'est que la modification se fasse à la sortie. Est-ce possible?
En tout cas merci de votre attention.

[yalehaire]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    Cells(ActiveCell.Row, 3).Value = UCase(Cells(ActiveCell.Row, 3).Value)

Ca doit pouvoir être amélioré mais poour le moment ça fonctionne...
Bonne journée

[eriiic]

Bonjour,

C'est l'événement Change que tu dois utiliser et non SelectionChange.
eric

[jbgood]

Salut le forum,
Moi perso j'utilise ca : (toutes les lettres saisie en colonnes A seront des majuscules une fois la cellule validée)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
If Not Intersect(Target, Range("A:A")) Is Nothing Then
 Dim MaCell As Range
 With Target
 If .Cells.Count > 1 Then
 If .MergeCells = False Or .Areas.Count > 1 Then Exit Sub
 End If
 Set MaCell = .Cells(1, 1)
 End With
 If MaCell.Value <> "" And Not IsNumeric(MaCell.Value) Then
 Application.EnableEvents = False
 MaCell = UCase(MaCell)
 Set MaCell = Nothing
 Application.EnableEvents = True
 End If
End If

Ce code peux vous paraître long mais il fonctionne très bien, vous avez simplement à modifier la cible "A:A" pour l'adapter à votre cas.
Je vous conseillerai de remplacer la cible par un nom du gestionnaire de nom ainsi il s'appliquera uniquement aux cellules souhaitées et s'il y a des modifications de la feuille de calcul les cellules suivront. Je trouve cela très pratique.

Si vous avez des critiques et remarques constructive sur ce code je vous lirai avec plaisir

Bye