XL 2013 résolus trie automatique

gena

XLDnaute Occasionnel
bonjour le forum
voila je recherche comment mettre ma base de patient en trie automatique et que tout soit en majuscule quand je rentre de nouvelle données de la colonne A à N
j'ai bien fais un essaie dans le code de la feuille mais bon rien de très bon
pouvez vous m'aidé svp
 

Pièces jointes

  • Copie de classement.xlsm
    29.1 KB · Affichages: 17

Dranreb

XLDnaute Barbatruc
Bonsoir.
Une proposition :
VB:
Private Sub Worksheet_Change(ByVal Target As Range)
   Dim V As Variant, Cel As Range
   Application.EnableEvents = False
   For Each Cel In Target
      V = Cel.Value: If VarType(V) = vbString Then Cel.Value = UCase(V)
      Next Cel
   If Not Intersect([B:B], Target) Is Nothing Then
      V = Cells(Target.Row, 2)
      [A1].CurrentRegion.Sort [B1], xlAscending, Header:=xlYes
      Application.Goto Intersect(Rows(WorksheetFunction _
         .Match(V, [B:B], 0)), Target.EntireColumn)
      End If
   Application.EnableEvents = True
   End Sub
Attention, il y a derrière une procédure sans utilité car réservée au module ThisWorkbook.
 
Dernière édition:

Phil69970

XLDnaute Barbatruc
Bonsoir Gena, Dranreb, le forum

Une autre version :

VB:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim v$, i&, j%
v = Cells(Target.Row, 2)
With [A1].CurrentRegion
    .Sort [B1], xlAscending, Header:=xlYes 'tri
    i = [B:B].Find(v, , xlValues, xlWhole).Row
    j = Rows(i).Find("").Column 'colonne de la 1ère cellule vide de la ligne
    Cells(i, IIf(j > .Columns.Count, Target.Column, j)).Select
   
    'Test si en majuscules
    If v <> UCase(v) Then Cells(Target.Row, 2) = UCase(v)
   
End With
End Sub

@Phil69970
 

Dranreb

XLDnaute Barbatruc
Je ne constate pas le phénomène chez moi, mais ça fait penser à un abandon avant exécution de la Application.EnableEvents = True de sorte qu'il reste à False.
ècrivez une petit Sub dans un module standard qui le remet à True.
De toute façon j'ai un tout petit peu modifié le code du #2
 

Discussions similaires

Réponses
2
Affichages
789
Réponses
3
Affichages
1 K

Statistiques des forums

Discussions
311 725
Messages
2 081 949
Membres
101 852
dernier inscrit
dthi16088