Insérer ligne derniere tableau

Bonjour,

ton code modifier

regarde le nom de la feuille à trier

Sub Triage()
   With ActiveSheet.Sort'' variante 
        .SortFields.Clear

Range("A1:F200").Select
    ActiveWorkbook.Worksheets("Feuil5").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Feuil5").Sort.SortFields.Add Key:=ActiveCell.Range _
        ("A1:A200"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Feuil5").Sort
        .SetRange ActiveCell.Range("A1:F200")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A1").Select
End Sub

Si tu souhaites trier d'autres feuilles avec le même code, tu dois chaque fois changer le nom de la feuille dans le code

la variante pourrait être valable pour toutes les feuilles, A tester

Pierrot

Merci mais le code indique une erreur de compilation

end with attendu

Merci

Bonjour,

Sub Triage()

Range("A1:F200").Select

ActiveWorkbook.Worksheets("Feuil5").Sort.SortFields.Clear

ActiveWorkbook.Worksheets("Feuil5").Sort.SortFields.Add Key:=ActiveCell.Range _

("A1:A200"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _

xlSortNormal

With ActiveWorkbook.Worksheets("Feuil5").Sort

.SetRange ActiveCell.Range("A1:F200")

.Header = xlYes

.MatchCase = False

.Orientation = xlTopToBottom

.SortMethod = xlPinYin

.Apply

End With

Range("A1").Select

End Sub

'End With est pourtant dans le code voir surligner

'Pierrot

bonjour, désolé pour le dérangement, je te joint le fichier. car mon but en fait c'est que l'userform que j'ouvre en feuil1, je puisse l'ouvrir en feuille 2 par exemple.

j'ai refait un userform et j'essaye d'adapter le code.

Ca bloque au triage

Si tu peux regarder? Merci

Bonjour

ton fichier à tester

un double-clic 1ère ligne de n'importe quelle feuille ouvre l'UserForm1 le 2 est à supprimer

Vérifier les données paramètres qui ne s'affichent pas dans une nouvelle entrée

Le tri fonctionne bien

Pierrot

Bonjour, merci j'ai réussi a faire quelque chose de propre pour le triage, demain je verrai pour le reste

Merci

Bonsoir,

Bien reçu

Pierrot

bonjour, voila ce que ça donne, j'ai un problème de syntaxe pour faire fonctionner correctement userform.

Quelqu'un a une idée?

Merci*

Bonsoir,

Ton fichier fonctionne correctement, j'ai néanmoins modifié

le code d'ouverture de UserForm1

Bonsoir

Pierrot

merci pour la réponse, j'esqye de configurer le bouton "configurer" sur la feuil2, et la je bloque

Bonjour,

Le bouton fonctionne sur la feuille 2, mais le code du bouton valider renvoie vers la feuille 1,donc le tableau feuille 2 ne se remplit pas pour remplir le 2ème tableau il faut changer le code

Je ne vois pas ou tu veux en venir ?

Pierrot

<bonjour, en fait je veux que l'Userform en feuille 2 vienne remplir le tableau en feuille 1, Le tableau de la feuille 2 est juste une recopie de la feuille1 avec un peu plus de mise en forme. le code est pas loin d'etre bon puisque les deux premier ligne du tableau fonctionnent à peu près.

Désolé de n pas avoir été clair

Merci

Tu te compliques l’existence

pourquoi remplir la feuille 1 depuis la feuille 2 ?

maintenant, tu peux le faire

Pierrot

Bonjour, oui je me complique la vie, ça me fait comprendre les code et me fait progresser.

Il me reste plus que la couleur est la mise en forme des cellules, ça avance bien!!!

Tu sais comment je peux l'écrire puisque je dois tjrs le lancer depuis la feuil2 pour qu'il se fasse sur la feuil1

merci

Bonsoir

Je ne comprends toujours pas pourquoi tu ouvres l'Userform depuis la feuille2

J'ai modifié le code pour la dernière fois

si tu le souhaites, j'ai un programme tout fait qui ressemble au tien.

Pierrot

bonjour, la mise en forme se fait toujours sur la feuil2, j'aimerai qu'elle se fasse sur la feuil1. je n'arrive pas a bien modifier la macro "couleur"

Merci

A tester

Pierrot