Un numéro unique

pour le N° ça fonctionne.

il faut changer Private Sub btnsauvegarde_Click() ? pourquoi ?

Dans le code Initialize que je vous ai donné avant , il y a une petite erreur à corriger

remplacez ces lignes

 If Me.txtn_carte = vbNullString Then
        Me.txtn_carte = WorksheetFunction.Max(.ListColumns(5).DataBodyRange) + 1
    Else: Me.txtn_carte = .DataBodyRange(ligne, 5)
    End If

Par celles-ci

 Me.txtn_carte = .DataBodyRange(ligne, 5)
    If Me.txtn_carte = vbNullString Then
        Me.txtn_carte = WorksheetFunction.Max(.ListColumns(5).DataBodyRange) + 1
    End If

il faut changer Private Sub btnsauvegarde_Click() ? pourquoi ?

De ce que je vois cela peut poser des soucis.

Faites un test peut-être

Ok tout fonctionne très bien.

merci encore de votre aide et de votre patience.

Ok si cela fonctionne mais bon je reste sur l'idée que ce sera à modifier

Si terminé pensez à ferme le fil

Cordialement

bonjour

Sub Test()
MsgBox NouveauGUID()
End Sub

Function NouveauGUID() As String
NouveauGUID = Replace(CreateObject("Scriptlet.TypeLib").GUID, "{", "")
NouveauGUID = Replace(NouveauGUID, "}", "")
End Function

Rebonjour,

Tout fonctionne bien mais j'ai un problème.

Si j'ai oublié renseigner le N° de carte ou si le N° de l'adhérent est déjà dans la base et que je sauvegarde j'ai une erreur. (ou fichier joint)

J'ai mis le classeur excel modifié.

Merci de votre réponse et de votre aide.

Bonjour le fil,

Je me permet de m'immiscer dans la conversation

Il faut sortir de la sub au début si les valeurs ne sont pa sprésente

Private Sub btnsauvegarde_Click()
  If Len(Me.txtn_carte) = 0 Then
    Me.lblmessage_numerocarte = "Veuillez saisir le NUMERO de la CARTE."
    Me.txtn_carte.SetFocus
    Exit Sub
  ElseIf Len(Me.cbocotisation) = 0 Then
    Me.lblmessage_cotisation = "Paiement Cotisation ?"
    Me.cbocotisation.SetFocus
    Exit Sub
  End If
...

Vous n'aurez ainsi plus le message d'erreur qui se produit sur la ligne

ActiveCell.Offset(0, 3) = CInt(Me.txtn_carte)

Transformation du chiffre texte en chiffre entier

A+