Aide : Problème d'incrémentation colonne et listbox..

[Youpsy]

Bonjour à tous !

J'essai de faire une petite application et je peine sur un petit truc... enfin 2...

J'aurai voulu incrémenté automatiquement +1 à la colonne A (ID) quand je clic sur ajouter sur mon userform1
Et ensuite mettre toute les donnée de cette feuille avec les entêtes sur la listbox..
Pourriez vous m'aider svp !?

merci

 

[jp14]

Re : Aide : Problème d'incrémentation colonne et listbox..

Bonjour

Ci dessous un code qui devrait répondre au problème.

Option Explicit
Dim L As Long

Private Sub CommandButton3_Click()
If TextBox2 <> "" And TextBox3 <> "" Then
    With Worksheets("Feuil1")
        L = .Range("A" & .Rows.Count).End(xlUp).Row + 1
        .Range("a" & L) = CLng(TextBox1.Value)
        .Range("B" & L) = TextBox2.Value
        .Range("C" & L) = TextBox3.Value
        efface
    End With
Else
        MsgBox "Remplir toutes les zones SVP !" & vbCrLf & "Par défaut saisir N/A", vbOKOnly + vbCritical, "Zone(s) vide(s) détectée(s)"
End If

End Sub
Private Sub UserForm_Initialize()
efface
End Sub
Private Sub efface()
With Worksheets("Feuil1")
    L = .Range("A" & .Rows.Count).End(xlUp).Row + 1
    TextBox1 = Application.WorksheetFunction.Max(.Range("A:a")) + 1
    TextBox2.Value = ""
    TextBox3.Value = ""
End With
With Me.ListBox1
    .RowSource = "A2:C" & L
End With
End Sub

A tester

JP

 

[Youpsy]

Re : Aide : Problème d'incrémentation colonne et listbox..

Mille merci JP !!!
Ca fonctionne a merveille !!