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

C

Catrice

XLDnaute Barbatruc

• 1 Septembre 2007

• #2

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

 

Pièces jointes

• Copie de Trier.xls

  41 KB · Affichages: 37
• Copie de Trier.xls

  41 KB · Affichages: 42
• Copie de Trier.xls

  41 KB · Affichages: 41

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 1 Septembre 2007

• #3

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

 

Vote positif 0 Vote négatif

C

Christian0258

XLDnaute Accro

• 1 Septembre 2007

• #4

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

 

Vote positif 0 Vote négatif

C

Christian0258

XLDnaute Accro

• 1 Septembre 2007

• #5

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

Re,

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


Merci à vous, j'essaye tout ça

à+

Christian

 

Vote positif 0 Vote négatif