Aide Vba

[apdf1]

Re Bonjour,

Voila quand j'enregistre je voudrais ajouté un N° de ligne dans la colonne "A". Donc j'ai ajouté un label " LabelID " et un code sur mon formulaire et quand j'enregistre, le N° s'ajoute sur la première ligne et ne progresse pas, alors qu'il devrais s'ajouté sur la derniére ligne et progresser.

Voici mon code

Private Sub UserForm_Initialize()
    Dim aa As Variant
    aa = Feuil1.Range("B5:E" & Feuil1.Range("B65536").End(xlUp).Row)
    ComboBox1.List = aa

    IniLabelID
    

End Sub
Sub IniLabelID()
With Sheets("Feuil1")
    LabelID = Application.CountA(.Range("A5:A" & .Range("B65000").End(xlDown).Row)) 
End With


End Sub
' Bouton Ajouter
' Affiche les valeurs en premiere ligne
Private Sub CommandButton6_Click()
    Range("B5:E5").Insert shift:=xlDown, CopyOrigin:=xlFormatFromRightOrBelow
    Cells(5, 1) = LabelID
    Cells(5, 2) = TextBox1.Value 'date       le 5 correspond a la 5 éme ligne
    Cells(5, 3) = TextBox2.Value 'num
    Cells(5, 4) = TextBox3.Value 'nom         le 4 correspond à la quatriéme colonne
    Cells(5, 5) = TextBox4.Value 'montant
    TextBox1 = ""
    TextBox2 = ""
    TextBox3 = ""
    TextBox4 = ""
End Sub

Ci quelqu'un peut m'aider depuis ce matin que je cherche je vous remercie d'avance.

Ci joint mon fichier

A+

Max

 

[kjin]

Re : Aide Vba

Bonsoir, salut Jean Marcel,
Pourquoi ne pas être resté sur ce fil
Note que ette manière de faire ne permet pas l'attribution d'un numéro unique
A+
kjin

 

[apdf1]

Re : Aide Vba

Bonsoir jean Marcel

Je te remercie mais comme tu dit il y a toujours des bugs ces vraiment pas évident.
J espere avoir d'autre aide

Bonne soirée

Max

 

[apdf1]

Re : Aide Vba

Re

Ce que je souhaite est d'avoir un N° en partant N°1 et vers l'infini dans la colonne "A" a chaque nouveau enregistrement.
mais peut importe la manière, comme dit Kjin un numéro unique stocké dans un coin du classeur sa me dérange pas, le tous ses d'avoir un nouveau N°.

@+

Max

 

[apdf1]

Re : Aide Vba

Re,

Je te remercie j'ai juste modifier le range et il a pas supporter CDate mais maintenant sa marche Nickel.

 Range("A5:E5").Insert shift:=xlDown, CopyOrigin:=xlFormatFromRightOrBelow
    Cells(5, 1) = CInt(LabelID)
    Cells(5, 2) = CDate(TextBox1)

Merci et bonne soirée

Max