Bonjour Ric,
Forum,
j'ai teste la version 3 mais sans resultat toujours un beug ici:
Sub TrierTableau()
'ActiveWorkbook.Worksheets("CLIENTS").ListObjects("Tableau1").Sort.SortFields.Clear
'ActiveWorkbook.Worksheets("CLIENTS").ListObjects("Tableau1").Sort.SortFields. _
'Add2 Key:=Range("Tableau1[N°client]"), SortOn:=xlSortOnValues, Order:= _
'xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("CLIENTS").ListObjects("Tableau1").Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
Alors j'ai testé en supprimant cette étape et tout fonction nickel (ajout, modif, transfert donnée feuil devis)
puis jai rajouté un bouton réinitialise..
je te joins le fichier complet pour que tu vois .. et si tu veux apporter des modif d’efficacité je suis preneur en particulier sur le module 2 ou je me suis servi de l’éditeur de macro un peu pourri comme macro mais bon ça marche
Un grand merci a toi Ric pour ta perspicacité et a Jim qui est intervenue.