Trie géné par un code....

[Christian0258]

Bonjour à tout le forum,

Je souhaiterais votre aide afin de modifier une macro qui me gène pour effectuer un tri.. voir fichier plus simple

Je vous remercie pour le temps que vous voudrez bien m'accorder.

Bien amicalement,
Christian

 

[Catrice]

Re : Trie géné par un code....

Bonjour,

Ci-joint quelques modifs :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("F5:F104")) Is Nothing And Target.Cells.Count = 1 Then
Cancel = True
If Target.Cells.Value = "oui" Then
Target.Value = ""
Else
Target.Value = "oui"
End If
End If
End Sub

 

[Cousinhub]

Re : Trie géné par un code....

Bonjour christian, Catrice, le forum

Une autre solution, désactiver les évènements au début du tri :

Sub Tri()
Application.EnableEvents = False
Range("E5:G104").Sort Key1:=Range("E5"), Order1:=xlAscending
Application.EnableEvents = True
End Sub

Et réactiver en fin de code

 

[Christian0258]

Re : Trie géné par un code....

Re,

Catrice, je te remercie beaucoup, c'est impec.
Super le tri alpha si repas pris.


Encore merci à toi,

à+
Christian

 

[Christian0258]

Re : Trie géné par un code....

Re,

Bonjour, bhbh je ne t'avais pas vu...


Merci à vous, j'essaye tout ça

à+

Christian