XL 2010 tableau ordre alphabétique

eastwick

XLDnaute Impliqué
Bonjour à toutes et tous, dans le tableau ci-joint, j'aimerais classer la 1ère colonne par ordre alphabétique dès que je rajoute une ligne. Forcément les 4 colonnes à droite doivent suivre leur ville d'origine ! J'aimerais que ceci se fasse automatiquement sans cliquer sur quoi que ce soit.
D'avance merci.
 

Pièces jointes

  • classeur.xlsx
    15 KB · Affichages: 10

job75

XLDnaute Barbatruc
Bonsoir eastwick, JB,

Voyez le fichier joint et cette macro :

VB:
Private Sub Worksheet_Change(ByVal target As Range)
Application.EnableEvents = False
Application.DisplayAlerts = False 'si la feuille "barêmes" n'existe pas
If FilterMode Then ShowAllData 'si la feuille est filtrée
Range("B3:F" & Rows.Count).Sort [B3], xlAscending, Header:=xlNo
With [B2].CurrentRegion
    If .Rows.Count > 1 Then
        .Columns(3).Offset(1).Resize(.Rows.Count - 1) = "=($C3*barêmes!$C$3)"
        .Columns(4).Offset(1).Resize(.Rows.Count - 1) = "=($C3*barêmes!$C$4)"
        .Columns(5).Offset(1).Resize(.Rows.Count - 1) = "=($C3*barêmes!$C$5)"
    End If
    .Resize(.Rows.Count + 1).Borders.Weight = xlThin 'bordures
End With
Application.EnableEvents = True
End Sub
A+
 

Pièces jointes

  • classeur(1).xlsm
    24.1 KB · Affichages: 5

Discussions similaires

Réponses
1
Affichages
976

Statistiques des forums

Discussions
311 708
Messages
2 081 750
Membres
101 812
dernier inscrit
trufu