petit probleme

[egman]

😕
Bonjour à tous,

J'ai un petit problème dans un tableau.
J'ai un usrform avec des txbox que je rempli qui me donne les valeurs d'une fiche avec un n° de fiche associé.Ces valeurs vont alimenter un tableau.
A l'aide d'une liste je peux rechercher la fiche qui m'intéresse par le N° et retrouver les valeurs de la fiche dans mon usrform.
J'incrémente a chaque fois mes N° de fiches.
Ce que je voudrai c'est pouvoir ouvrir ma derniere fiche avec ses valeurs et m'en servir de base pour une nouvelle fiche (pour éviter de retaper les infos identiques dans mon usrform) et récupérer le N° incrémenté dans mon usrform.
J'arrive à dupliquer la derniere ligne de mon tableau et incrémenter son N° = derniere fiche mais lorsque je lance le tri dans ma liste il vient placer ma derniere ligne (que je viens de créer) en tête de la liste. Je ne comprend pas bien pourquoi.
Est ce que quelqu'un a une idée ?
D'avance merci à tous

 

[PascalXLD]

Re : petit probleme

Bonjour

Il faudrait voir ton code pour te répondre

 

[egman]

Re : petit probleme

Merci pour ton aide,
Voici le code qui me permet de recopier et d'incrémenter ma dernière ligne

Sub AffecteNouveauNum()

[A65000].End(xlUp).Offset(1, 0).Select

ActiveCell.Offset(-1, 0).EntireRow.Copy ActiveCell

On Error Resume Next
MsgBox " La fiche est duppliquée . "

Dim DerNum As Integer 'DerNum est le dernier numero créé
DerNum = Range("C8").End(xlDown).Value
NouveauNum = NouveauNumero(DerNum)
DerCell = Range("C8").End(xlDown).Address 'Dercell est la derniere cellule contenant la cellule utilisée
Range(DerCell).Activate
ActiveCell.Value = NouveauNum 'Ecrit le nouveau numero dans la cellule vide
Selection.NumberFormat = "00000"
'comptage nb de fiches
Call calculnombrefiches

End Sub

Celui qui me sert à calculer mes fiches

Sub calculnombrefiches()

Sheets("feuil1").Activate
Sheets("feuil1").Range("f1").Value = Range("a65500", Range("A7").End(xlDown)).Row - 7
If Sheets("feuil1").Range("a8").Value = "" Then
Sheets("feuil1").Range("f1").Value = 0
End If
UserForm8.Label3.Caption = " Il y a actuellement " & Sheets("feuil1").Range("F1").Value & " fiche(s) de créée(s) dans cette base . "

End Sub

Et celui où çà se corse, celui du tri dans ma liste

Sub test()

'ordre alphabetique
Sheets("feuil1").Range("C8").Select
Selection.Sort Key1:=Range("C8"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

Call calculnombrefiches

'redéfini selection
Sheets("feuil1").Range("C8").Resize(rowsize:=Range("F1").Value, columnsize:=1).Select
UserForm5.ListBox1.List = Selection.Value

UserForm5.Show

End Sub