Copier des données d'un ancien tableau sur un nouveau

1000 mercis encore :-)))))))))))))))))))))))

Parfait, comme d'habitude :-)))))))))))

Tu crois possible de faire un tri automatique "ascendant" dans le filtre établissement à chaque fois que j'entre un nouvel établissement dans le tableau ?

Ca nous évitera à chaque fois d'y penser ;-)))) Qu'en penses-tu ?

vodoraix a écrit :

Tu crois possible de faire un tri automatique "ascendant" dans le filtre établissement à chaque fois que j'entre un nouvel établissement dans le tableau ?

Ca nous évitera à chaque fois d'y penser ;-)))) Qu'en penses-tu ?

Bonjour,

Dans le code de la feuille contenant le tableau des établissements, ajouter le code ci-dessous et remplacer "Table1" par le nom du tableau

Private Sub Worksheet_Change(ByVal Target As Range)
  With ListObjects("Table1")        ' <- remplacer Table1 par le nom du tableau listant les établissements
    If Not Intersect(Target, .Range.CurrentRegion) Is Nothing Then
      .Resize .Range.CurrentRegion
      .Sort.SortFields.Add .DataBodyRange
      .Sort.Apply
    End If
  End With
End Sub

Bonjour saboh12617 et merci beaucoup pour ton aide :-)))))))))))))))

J'ai passé en revue tous les Modules et autres dans le VBA mais je n'ai pas compris se trouvait la feuille 2 pour les établissements.

La seule c'est peut-être dans le UserForm1 dans laquelle on l'évoque mais pas certain car le nom de la feuille "Concordance Classmt & Points" n'est pas cité une seule fois.

Désolé j'y comprends pas grand chose, même rien du tt à vrai dire, au VBA :-(((

Autant te dire aussi que le nom du tableau, je ne sais pas non plus lequel c'est...

Merci :-)))))))))))))))))))))

à + ;-))))