XL 2013 résolus trie automatique

[gena]

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

 

[Dranreb]

Bonsoir.
Une proposition :

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.

 

[gena]

merci beaucoup fait un test aucune réaction
merci quand même je dois avoir commis une erreur

 

[Phil69970]

Bonsoir Gena, Dranreb, le forum

Une autre version :

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]

@Phil69970 Dangereux sans Application.EnableEvents = False
Et puis ça ne met pas tous les textes en majuscules comme demandé.
@gena Si vous ne trouvez pas ce qui cloche vous pouvez toujours joindre le classeur. Chez moi ça marche. Mais ça ne met en majuscule que les cellules modifiées

 

[Phil69970]

Gena

La solution de Dranreb marche toutes les colonnes se mettent en majuscule
La mienne ne met que le nom en majuscule

Edit : le post de Dranreb s'est croisé
@Phil69970

 

[gena]

voila feuille exemple aux début cela à l'air de fonctionné après classe pas et reste en minuscule

 

[Dranreb]

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

 

[gena]

désoler effectivement après correction cela change
mais je recherche aussi un trie dans sa ligne alphabétiques
je vous présente tout mes excuses

 

[Dranreb]

Le tri est fait seulement si la colonne B est touchée par les modifications.

 

[gena]

ok merci j 'ai recopier votre code 2 et cela fonctionne très bien