XL 2013 résolus trie automatique

Dranreb

XLDnaute Barbatruc

• 6 Août 2020

• #2

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: 6 Août 2020

Vote positif 0 Vote négatif

G

gena

XLDnaute Occasionnel

• 6 Août 2020

• #3

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

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 6 Août 2020

• #4

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 6 Août 2020

• #5

@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

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 6 Août 2020

• #6

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

 

Vote positif 0 Vote négatif

G

gena

XLDnaute Occasionnel

• 6 Août 2020

• #7

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

 

Pièces jointes

• Copie de classement01.xlsm

  29.5 KB · Affichages: 2

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 6 Août 2020

• #8

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

 

Vote positif 0 Vote négatif

G

gena

XLDnaute Occasionnel

• 6 Août 2020

• #9

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 6 Août 2020

• #10

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

 

Vote positif 0 Vote négatif

G

gena

XLDnaute Occasionnel

• 6 Août 2020

• #11

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

 

Vote positif 0 Vote négatif