problème avec la commande range ou mauvaise commande

Bonjour

Mon père s'occupe d'un ensemble de terrain (jardin) je lui ai fait une feuille excel avec les diverses colonnes

et sur cette feuille un bouton ajout qui ouvre une fenêtre pour introduire toutes les données sur un jardin et lorsque qu'il clic sur ok les données se mettent sur la feuille excel le seule problème c est qu'il ne trie pas toute les données juste le numéros de jardin qu'il met par ordre

Je ne trouve pas comment faire pour qu'il ajoute et trie toute la ligne insérée

voici la commande que j ai inséré dans le bouton ok

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub CommandButton1_Click() UserForm1.Hide Rows(2).Select Selection.Insert   Selection.Delete Range("A1").Sort Key1:="Jardin", Header:=xlYes     End Sub

---

Code:

---

1 2 3 4 5

Private Sub CommandButton2_Click() UserForm1.Hide Worksheets("liste").Rows(2).Select Selection.Delete End Sub

---

pouvez vous m aider

merci

Bonjour
Exemple (à adapter): avec 3 textbox dans un userform
On insère une ligne vièrge en ligne 2 de Feuil1
On transfère les données vers cette ligne
TextBox1 en A2
TextBox2 en B2
TextBox3 en C2
On trie les données sur la colonne A

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub CommandButton1_Click()   Application.ScreenUpdating = False With Worksheets("Feuil1") .Rows(2).Insert .Range("A2") = Me.TextBox1 .Range("B2") = Me.TextBox2 .Range("C2") = Me.TextBox3 .Range("A1").CurrentRegion.Sort Key1:=.Range("A1"), Order1:=xlAscending, Header:=xlYes End With Unload Me End Sub

---

Bonjour,

Cette ligne de code spécifie de faire le tri uniquement sur la colonne A

Code:

---

Range("A1").Sort Key1:="Jardin", Header:=xlYes

---

Pour que le tri se fasse en liant les autres colonnes, modifie comme suit (ici nous avons un tableau qui contient 4 colonnes A à D)

Code:

---

Range("A:D").Sort Key1:="Jardin", Header:=xlYes

---

Il te faut préciser l'étendue de la zone à trier soit :

Code:

---

range("a1", E1].end(xldown))

---

ou tu devras remplacer E par la colonne de fin de ton tableau.
La métode end avec xldown en paramètre sélectionne jusqu'à la dernière ligne saisie vers le bas du tableau.

J'espère t'avoir aidé sinon n'hésites pas à revenir !:zoubi:

je vous remercie beaucoup maintenant cela fonctionne