petit probleme

Re : petit probleme

Bonjour

Il faudrait voir ton code pour te répondre

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