Usf et tris sur colonnes

[J-c]

Bonjour à tous

Pouvez vous me dir, dans l'exemple joint, (trouvé sur ce Forum) quel est la partie du code qui opère un tris sur les colonnes A et B de la Feuil2,et comment empècher ce tris sans modifier le reste.🙁

Merci Cdlt J-C

 

[jp14]

Re : Usf et tris sur colonnes

Bonjour

On trouve une seul fois le mot sort ( "Rechercher" dans le" projet en cours" )
' Tri des marques en ordre croissant
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Ce code fait le tri dans la feuille1.
Pour empêcher le tri il suffit de mettre l'apostrophe devant la ligne.


JP

 

[J-c]

Re : Usf et tris sur colonnes

Bonjour

Merci pour cette réponse c'est Ok

Mais il y a également un tris Feuil2 qui continu à opérer
Ma réponse pourrait elle être dans ces lignes ?

Private Sub UserForm_Initialize()
For Each C In Sheets("Feuil2").Range("A:A")
If Not C = "" Then ComboBox1.AddItem C
Next C
With ComboBox1
For x = 0 To .ListCount - 1
For y = 0 To .ListCount - 1
If .List(x) < .List(y) Then
temp = .List(x)
.List(x) = .List(y)
.List(y) = temp
End If
Next y
Next x
End With
For Each C In Sheets("Feuil2").Range("B:B")
If Not C = "" Then ComboBox2.AddItem C
Next C
With ComboBox2
For x = 0 To .ListCount - 1
For y = 0 To .ListCount - 1
If .List(x) < .List(y) Then
temp = .List(x)
.List(x) = .List(y)
.List(y) = temp
End If
Next y
Next x
End With
End Sub

Private Sub UserForm_Terminate()
If ComboBox1.ListCount = 0 Then Exit Sub
With Sheets("Feuil2")
For i = 0 To ComboBox1.ListCount - 1
.Cells(i + 1, 1) = ComboBox1.List(i)
Next i
End With
If ComboBox2.ListCount = 0 Then Exit Sub
With Sheets("Feuil2")
For i = 0 To ComboBox2.ListCount - 1
.Cells(i + 1, 2) = ComboBox2.List(i)
Next i
End With
End Sub

Pardonnez mon ignorance, mais je débute, et je tente de comprendre comment fonctionne tous ceci . 🙁
Merci Cdlt J-C

 

[phlaurent55]

Re : Usf et tris sur colonnes

Salut à tous,
@ J C,
c'est tout le code ci-dessous qui effectue un tri dans la feuille2

Private Sub UserForm_Initialize()
For Each C In Sheets("Feuil2").Range("A:A")
If Not C = "" Then ComboBox1.AddItem C
Next C
With ComboBox1
For x = 0 To .ListCount - 1
For y = 0 To .ListCount - 1
If .List(x) < .List(y) Then
temp = .List(x)
.List(x) = .List(y)
.List(y) = temp
End If
Next y
Next x
End With
For Each C In Sheets("Feuil2").Range("B:B")
If Not C = "" Then ComboBox2.AddItem C
Next C
With ComboBox2
For x = 0 To .ListCount - 1
For y = 0 To .ListCount - 1
If .List(x) < .List(y) Then
temp = .List(x)
.List(x) = .List(y)
.List(y) = temp
End If
Next y
Next x
End With
End Sub

 

[jp14]

Re : Usf et tris sur colonnes

Bonjour

Bien vu.

Effectivement dans la procédure
Private Sub UserForm_Initialize()
On alimente les combobox avec une liste triées.

Dans la procédure
Private Sub UserForm_Terminate()
On écrit le contenu des combobox dans les fichier

Si on ajoute une valeur
Private Sub ComboBox1_AfterUpdate()
La nouvelle donnée est mise au début de la liste

Le tri avec la nouvelle données sera réalisé lorsque on lancera l'userform.

Pour supprimer le tri il faut supprimer la procédure
Private Sub UserForm_Terminate()
et modifier Private Sub ComboBox2_AfterUpdate()
pour enregistrer les données
If ComboBox2.Text <> "" And ComboBox2.ListIndex < 0 Then
With Sheets("Feuil2")

dl1 = .Range("b65536").End(xlUp).Row + 1
.Range("b" & dl1) = ComboBox2.Value
End With
End If
et idem pour
Private Sub ComboBox1_AfterUpdate()
If ComboBox1.Text <> "" And ComboBox1.ListIndex < 0 Then
With Sheets("Feuil2")

dl1 = .Range("a65536").End(xlUp).Row + 1
.Range("a" & dl1) = ComboBox1.Value
End With
End If


JP

 

[J-c]

Re : Usf et tris sur colonnes

Merci pour vos réponses et pour les explications .🙂
c'est super !
Merci
Cdlt J-C