Incrémentation référence VBA

[FloFloM]

Bonjour,

Je souhaiterais incrémenter le numéro de référence à la suite d'une autre suite de références déjà existantes que je ne veux pas effacer car il faudrait enregistrer les 1500 lignes précédentes.

Je vous transmets donc un exemple où il est possible de créer une nouvelle référence à partir d'un userform.
Mon problème est que pour un premier enregistrement à partir de l'outil userform, le format référence redémarre à F001 alors qu'il devrait poursuivre la suite logique (F006, F007...).

Merci par avance pour vos propositions !

 

[thebenoit59]

Bonjour Flo.

Tu as oublié de joindre le fichier.

 

[FloFloM]

Le voici 🙂

 

[thebenoit59]

Une première solution :

Private Sub WriteRecord(ByVal RecordNumber As Long)
Dim i&, ref&
 ' Ecriture de l'enregistrement
 Me.cboMember.ListIndex = -1
 RecordNumber = RecordNumber + 1
 'Recherche de la nouvelle valeur de l'enregistrement.
 With Sheets("HISTORIQUE Global")
    i = 2
    Do While .Cells(i, "A").Value <> ""
        If Left(.Cells(i, "A").Value, 1) = "F" Then ref = Replace(.Cells(i, "A").Value, "F", "")
        i = i + 1
    Loop
End With
 With rng
  With .Cells(RecordNumber, 1)
     If Len(.Value) = 0 Then ' ID
      .Value = ref + 1
     End If
    .NumberFormat = "\F000" ' Format
  End With

 

[FloFloM]

Une première solution :

Private Sub WriteRecord(ByVal RecordNumber As Long)
Dim i&, ref&
' Ecriture de l'enregistrement
Me.cboMember.ListIndex = -1
RecordNumber = RecordNumber + 1
'Recherche de la nouvelle valeur de l'enregistrement.
With Sheets("HISTORIQUE Global")
    i = 2
    Do While .Cells(i, "A").Value <> ""
        If Left(.Cells(i, "A").Value, 1) = "F" Then ref = Replace(.Cells(i, "A").Value, "F", "")
        i = i + 1
    Loop
End With
With rng
  With .Cells(RecordNumber, 1)
     If Len(.Value) = 0 Then ' ID
      .Value = ref + 1
     End If
    .NumberFormat = "\F000" ' Format
  End With

Merci beaucoup, ça semble cohérent mais je l'insère où dans mes lignes de code ?

 

[thebenoit59]

J'ai laissé afficher le nom WriteRecord pour que tu puisses t'y retrouver.
Il se trouve dans le code de l'UF.

 

[FloFloM]

J'ai laissé afficher le nom WriteRecord pour que tu puisses t'y retrouver.
Il se trouve dans le code de l'UF.

Merci de ton aide, ça crée bien le premier de la suite mais après ça recrée le même. J'ai F006 après le F005 mais ça crée un autre F006 après puis un autre...

 

[thebenoit59]

En effet, en fait le soucis vient du format.
Les textes sont en bruts sur le fichier et les nouveaux en format de nombre.

If Left(.Cells(i, "A").Text, 1) = "F" Then ref = Replace(.Cells(i, "A").Value, "F", "")

Et ça devrait fonctionner.

 

[FloFloM]

En effet, en fait le soucis vient du format.
Les textes sont en bruts sur le fichier et les nouveaux en format de nombre.

If Left(.Cells(i, "A").Text, 1) = "F" Then ref = Replace(.Cells(i, "A").Value, "F", "")

Et ça devrait fonctionner.

Existe-t'il un moyen de faire une suite en format brut ?

 

[thebenoit59]

Private Sub WriteRecord(ByVal RecordNumber As Long)
Dim i&, ref&
' Ecriture de l'enregistrement
Me.cboMember.ListIndex = -1
RecordNumber = RecordNumber + 1
'Recherche de la nouvelle valeur de l'enregistrement.
With Sheets("HISTORIQUE Global")
    i = 2
   Do While .Cells(i, "A").Value <> ""
       If Left(.Cells(i, "A").Text, 1) = "F" Then ref = Replace(.Cells(i, "A").Value, "F", "")
        i = i + 1
   Loop
End With
With rng
 With .Cells(RecordNumber, 1)
     If Len(.Value) = 0 Then ' ID
      .Value = "F" & Format(ref + 1, "000")
     End If
 End With