Numérotation : Sans doublon et continue

[keepcool183]

Bonjour à tous,

Voila j'ai fais un code qui me permet de générer des numéros automatiquement dans un textbox à chaque click mais il n'est pas tout à fait au point.

Je m'explique : J'aimerais que la numérotation commence à 1 jusqu'à X si aucune saisie n'a été faite, sinon ben qu'elle continue la précédente.

Private Sub NumeroVh()
L = Sheets(UF1.visite.Value).[B65000].End(xlUp).row + 1
If Sheets(UF1.visite.Value).Range("B" & L - 1 ).Value <> "" then
TextBoxNumero.Value = Sheets(UF1.visite.Value).Range("B" & L - 1).value + 1
end if
Sheets(UF1.visite.Value).Range("B" & L).Value = UCase(TextBoxNumero.Value)
End Sub

Merci à tous ceux qui me liront 🙂

 

[keepcool183]

Re : Numérotation : Sans doublon et continue

Re,

Bon ben comme un grand j'ai réussi tous seul 😛

Pour ceux que ça intérresse voici le code corrigé 😉

Private Sub NumeroVh()
L = Sheets(UF1.visite.Value).[B65000].End(xlUp).row + 1
If IsNumeric(Sheets(UF1.visite.Value).Range("B" & L - 1).Value) Then
TextBoxNumero.Value = Sheets(UF1.visite.Value).Range("B" & L - 1).Value + 1
Else
TextBoxNumero.Value = Sheets(UF1.visite.Value).Range("B" & L).Value + 1
End If
End Sub