Discussion :

[jocker2807]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mercatog]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[jfontaine]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[poutche]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

[jocker2807]

je vous remercie beaucoup maintenant cela fonctionne