Code client automatique

Bonjour,

J'ai un logiciel sous excel vba pour un bon de prise en charge client mais je voudrais que le logiciel donne un numéro de client automatique que de plutot lui donner un numéro à chaque fois!

Voilà le code que j'ai:

Private Sub ComboBox1_Change()  'Code Client
    If flag = 1 Then Exit Sub '''
    tablo = fc.Range("A2:T" & fc.Range("A" & Rows.Count).End(xlUp).Row)
    'On recherche la ligne du code dans la feuille Clients
    For i = 1 To UBound(tablo, 1)
        If CStr(tablo(i, 1)) = ComboBox1 Then
            Exit For
        End If
    Next i

    'La ligne a été trouvée
    If i <= UBound(tablo, 1) Then
        flag = 1
        For Each ctr In Me.Controls
            If TypeName(ctr) = "TextBox" Or TypeName(ctr) = "ComboBox" Then
                ctr.Value = fc.Cells(i + 1, Val(ctr.Tag))
            End If
        Next ctr
        CheckBox1 = fc.Cells(i + 1, "W")
        flag = 0
    Else
        'Le code n'existe pas dans la feuille Client : on efface tout sauf
        'le code et la situation
        For Each ctr In Me.Controls
            If TypeName(ctr) = "TextBox" Or TypeName(ctr) = "ComboBox" _
                    And ctr.Tag <> 1 And ctr.Tag <> 22 Then
                    flag = 1
                    ctr.Value = fc.Cells(i + 1, Val(ctr.Tag))
            End If
            flag = 0
        Next ctr
        CheckBox1 = fc.Cells(i + 1, "W")
    End If
    TextBox9 = Date

Comment je peux faire?

Merci

bonjour,

Ce petit bout de code n'est pas très parlant...

Un petit bout de fichier et le UserForm me semblent indispensable avec quelques enregistrements permettant de lancer le USF sans buguer...

A+

Bonjour,

Merci vous avez un message privé ou je vous ai envoyé le fichier.

Cordialement

bonsoir Hytere, galopin01

hytere tu ne connais pas la notion de partage car galopin01 n'ouvre peut être pas les fichiers joint en privé tout comme moi

si tu veux plus de participant pour une réponse ce n'est pas comme cela qu'il faut faire