Trier et mettre automatiquement en majuscule une colonne...

[libellule85]

Bonjour,
Est il possible de trier et mettre automatiquement en majuscule les données (que l'on rentrent au fur et à mesure) d'une colonne par exemple la colonne B et que celà commence à partir de la cellule B5 ?
merci beaucoup pour vos réponses

 

[Papou-net]

Re : Trier et mettre automatiquement en majuscule une colonne...

Bonjour libellule85,

Bien sûr que c'est possible.

Vois sur le fichier joint.

Cordialement.

 

[libellule85]

Re : Trier et mettre automatiquement en majuscule une colonne...

Bonjour Papou-net,
Merci beaucoup pour ta réponse mais celà ne fonctionne pas !
voici le message qu'il me met :

Et ensuite ferme Excel

 

[Papou-net]

Re : Trier et mettre automatiquement en majuscule une colonne...

Aïe, je n'ai pas vu que tu es sur Excel2007.

Sur Xl2003, ça marche sans erreur mais comme je ne suis pas chez moi, je ne peux pas voir pour le moment.

Tu peux peut-être essayer d'enregistrer le tri avec l'enregistreur de macros, et comparer le code avec le mien (enfin si tu connais un tant soit peu VBA ?).

Cordialement.

 

[libellule85]

Re : Trier et mettre automatiquement en majuscule une colonne...

je suis désolé je ne connais pas le VBA !!

 

[Papou-net]

Re : Trier et mettre automatiquement en majuscule une colonne...

je suis désolé je ne connais pas le VBA !!

Si tu n'as pas d'autre réponse, j'y regarderai chez moi ce soir sous XL2010.

Cordialement.

 

[JNP]

Re : Trier et mettre automatiquement en majuscule une colonne...

Bonjour le fil ,

Aïe, je n'ai pas vu que tu es sur Excel2007.
Sur Xl2003, ça marche sans erreur mais comme je ne suis pas chez moi, je ne peux pas voir pour le moment.

Si le tri 2007 n'est pas supporté par 2003, c'est la première fois que le contraire ne fonctionne pas ...
Pourtant, je viens de tester le fichier, même combat ... J'ai dupliqué le code dans un fichier neuf, idem ...
Et que le code plante, ok, mais de là à planter Excel...
Bon, un code qui fonctionne en 2007

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row < 5 Or Target.Column <> 2 Then Exit Sub
Application.EnableEvents = False
Target = UCase(Target)
Me.Sort.SortFields.Clear
Me.Sort.SortFields.Add Key:=Range("B5:B" & Range("B65000").End(xlUp).Row), _
    SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With Me.Sort
    .SetRange Range("B5:B" & Range("B65000").End(xlUp).Row)
    .Header = xlGuess
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
End With
Application.EnableEvents = True
End Sub

Bonne soirée

 

[Papou-net]

Re : Trier et mettre automatiquement en majuscule une colonne...

RE JNP,

Et pourtant, sur mon portable et XL2003, je t'assure que ça marche parfaitement !

Cordialement.

 

[libellule85]

Re : Trier et mettre automatiquement en majuscule une colonne...

Bonjour JNP,
Merci pour ta réponse celà fonctionne
Merci aussi à Papou-net

 

[JNP]

Re : Trier et mettre automatiquement en majuscule une colonne...

Re ,

Et pourtant, sur mon portable et XL2003, je t'assure que ça marche parfaitement !

Je te crois, surtout que le code parait nickel ...
J'ai souvent utilisé des tri 2003 sous 2007 et ça a toujours marché ...
J'ai l'impression que le problème vient plus du tri dans une événementielle, mais j'ai eu beau ajouter EnableEvent sur ton code, ça plantait quand même. Mais j'ai été obligé de les ajouter avec le tri 2007, alors qu'ils ne paraissent pas obligatoires sous 2003 ...
Bref, à suivre, l'essentiel est que Libellule85 s'en sorte !
Bonne soirée

 

[Papou-net]

Re : Trier et mettre automatiquement en majuscule une colonne...

RE : JNP

J'ai l'impression que le problème vient plus du tri dans une événementielle, mais j'ai eu beau ajouter EnableEvent sur ton code, ça plantait quand même

Tu as raison : j'ai beau savoir qu'il faut être prudent avec l'événement Change, j'oublie toujours de le borner avec EnableEvent.

Par ailleurs, je pense que les sbires de Bill Gates ont modifié l'algorythme de tri dans les dernières versions. Sinon, je ne vois pas pour quelle raison ça ne marche plus.

Quoiqu'il en soit, tu as raison sur ce point :

Bref, à suivre, l'essentiel est que Libellule85 s'en sorte

Bonne soirée à toi également.