Re : triage dans une listview
Salut bruno
Oui j'avais deja essayer ce test qui n'avais pas fonctionner je l'avais essayer a 4 zero a 5 zero et il ne triait pas correct, alors j'ai refait un autre dossiers avec mon programme principal avec des entrees au-dessus de 1000 , ce qui me destabilise hier quand j'avais envoyer sur le forum j'avais mis des exemples au-dessus de 1000 et sur le test de votre code il le fait tres bien mais il ne veut pas le faire sur mon programme principal a moi
alors j'ai refait un autre petit programme a partir du mien et je vous l'envoie sur le fil avec le code de bruno qu'auparavant m'avais transmit avec une correction
dans mon programme principal la colonne des fiches est en format numerique et sans decimal et le chiffre dans la colonne des fiches ce genere seul lorsque j'utiliser un userform appeler Ajouter une fiche
les code de cette ajout sont
Private Sub UserForm_Initialize()
Ajouter.TextBox1.SetFocus
TextBox1.SelStart = 0
TextBox1.SelLength = Len(TextBox1.Value)
TextBox12.Value = Format(0, "#,##0.00 $") '****
TextBox1 = Format(Now, "DD MMMM YYYY")
With Sheets("Entree")
Label19.Caption = .Range("A65536").End(xlUp).Value + 1
End With
End Sub
Private Sub CommandButton1_Click()
Dim cellule As Range
Dim dl1 As Long ' dernière ligne
TextBox1.SetFocus
Dim nomfeuille1 As String
nomfeuille1 = "Entree"
With Sheets(nomfeuille1)
dl1 = .Cells(.Rows.Count, 2).End(xlUp).Row + 1
For Each cellule In .Range("a2:a" & dl1)
If TextBox1.Value = cellule Then
Beep
Call MsgBox("Le date : " & TextBox1.Value _
& vbCrLf & "existe déja " _
& vbCrLf & "Ligne n° :" & cellule.Row _
& vbCrLf & "Numéro :" & cellule.Offset(0, 1).Value _
& vbCrLf & "" _
& vbCrLf & "" _
, vbInformation, "Doublons")
Exit Sub
End If
Next cellule
Application.ScreenUpdating = False
X = MsgBox(" ATTENTION Avez-vous des corrections alors je vais sauvergarder cette facture ", vbQuestion + vbOKCancel, "Nouvelle saison")
If X <> vbCancel Then
With TextBox1
.WordWrap = True
.MultiLine = True
End With
With Feuil2
.Range("A1").Value = Val(Label19.Caption) 'Numero de la fiche
.Range("B1").Value = TextBox1 'Date de la randonnee
je ne vous envoie pas toutes la formule juste la partie essentiel du code
alors j'envoie le petit programme qui me cause beaucoup de soucie
bonne journee
dennnisss