Tri prenant en cpte les cell. vides + pb Ucase(Target)

Bonjour le Forum,

Problème sur quelques tri qui prennent en compte les cellules vides .Pourquoi??

Problème sur une copie d'une ligne "à blanc" sur une ligne sur laquelle il y a un contrôle Target = Ucase(Target) . ce qui génère une erreur.

Je vous souhaite une bonne fin de week end à tous.

Annette

Ci joint un exemple de ces pb

https://www.excel-pratique.com/~files/doc/test_copie_cellule_avec_Ucase.xls

Bonsoir,

comme tu tries sur une colonne comportant des formules, la valeur "0" ou "" sera donc avant toute autre valeur

Trie plutôt par nom, puis par prénom

Essaie avec ce code :

        Range("A1:F15").Sort Key1:=Range("B2"), Order1:=xlAscending, Key2:=Range("C2") _
        , Order2:=xlAscending, Header:=xlGuess

Bonoir à tou,

J'ai modifié le tri sur le fichier joint, le résultat du tri est identique.La question reste posée.

Bonne nui a vous

Annette

Bonjour,

Ah bon?

regarde ton fichier, j'y ai juste changé tes lignes par la mienne

https://www.excel-pratique.com/~files/doc/Copie_de_test_copie_cellule_avec_Ucase_v1.xls

Bonsoir à tous,

Merci Félix, en effet lorsque je fais "Effacer le contenu" sur les cellules sur lesquelles une procédure de condition avait placée ""..le tri se fait comme je le désire.Il y a t il une méthode pour que les cellules soient réellement vide?

Pour la deuxième partie de la question "copie d'une ligne de cellules sans donnée" pour réinitialiser rapidement cette ligne. Le fait d'avoir :

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 2 Then

Target = UCase(Target)

ElseIf Target.Column = 3 Then

Target = Application.Proper(Target)

End If

End Sub

provoque une erreur sur la cellule de la colonne 2".incompatibilité de type"

En attendant de vous lire je vous souhaite une bonne nuit

Annette

Re le forum

Macro modifiée

Private Sub Worksheet_Change(ByVal Target As Range)
With Target
  If .Count > 1 Then Exit Sub
    If .Column = 2 Then .Value = UCase(.Value)
    If .Column = 3 Then .Value = Application.Proper(.Value)
End With
End Sub

Mytå

Bonsoir à tous

Merci Mytå, quelle célérité, et précision, j'applique sur le champ le code.

Mrci encore

Annette