Compteur N° automatique

[ced48]

bonjour,

Dans ma collonne C j''ai mes N°de dossiers 1,2,3....
Mes dossiers sont remplis par un formulaire
Je voudrais que dans mon formulaire apparaisse une textbox avec le dernier N° de dossier +1

Merci de votre aide

 

[Manu62]

Re : Compteur N° automatique

Bonjour,

Si j'ai bien compris, il faudrait lorsque on lance le formulaire, il note 5 en n ° .

Je bute aussi en ce moment

Merci

Manu62

 

[Manu62]

Re : Compteur N° automatique

Bonjour,

Merci jm

A+

Manu

 

[Manu62]

Re : Compteur N° automatique

Bonjour,

J'ai voulu mettre un format nombre lors de l'ajout, car le chiffre arrive en standart.
donc le calcul + 1 ne fonctionne pas

j'ai mis :
N° = Application.WorksheetFunction.Max(Worksheets("clients").Range("A1:A1000")) + 1 & NumberFormat = "0.00"
et il me donne faux....

pouvez vous m'aider

Manu

 

[Manu62]

Re : Compteur N° automatique

Bonjour,

Qu'elle galère

Ci joint petit fichier pour plus explication

Merci

Manu

 

[JCGL]

Re : Compteur N° automatique

Bonjour à tous,
Salut Manu 🙂

Peux-tu essayer avec :

Private Sub CommandButton1_Click()
'se positionne dans les bases de données
ligne = Sheets("test").[A65000].End(xlUp).Row + 1
'envoi des informations saisie dans la (BD)
Sheets("test").Cells(ligne, 1) = Format(Date, "yyyyddmm") & "_" & Format(Me.TextBox1, "000")
Sheets("test").Cells(ligne, 2) = Me.TextBox3
Sheets("test").Cells(ligne, 3) = CDbl(Me.TextBox2)
Me.TextBox2 = ""
Me.TextBox3 = ""
End Sub
Private Sub UserForm_Initialize()
       TextBox1 = Application.WorksheetFunction.CountA(Worksheets("test").Range("A2:A65000")) + 1
End Sub

A+ à tous

 

[Manu62]

Re : Compteur N° automatique

Bonjour,

Jcgl,

cela marche mais pas de +1 achaque saisie???

Merci

Manu

 

[JCGL]

Re : Compteur N° automatique

Bonjour à tous,

Étonnant !
Peux-tu tester ce fichier ?
J'ai réglé le TableIndex pour un déplacement par Tabulation

A+ à tous

 

[Manu62]

Re : Compteur N° automatique

Bjr,

Cela marche, mais peux t'on avoir le compteur qui avance dans la textbox au fur et a mesure sans sortir

Merci

Manu

 

[JCGL]

Re : Compteur N° automatique

Bonjour à tous,

Il faut refermer l'USF pour avoir l'incrément

Le même code qui ferme l'USF après la saisie :

Private Sub CommandButton1_Click()
'se positionne dans les bases de données
ligne = Sheets("test").[A65000].End(xlUp).Row + 1
'envoi des informations saisie dans la (BD)
Sheets("test").Cells(ligne, 1) = Format(Date, "yyyyddmm") & "_" & Format(Me.TextBox1, "000")
Sheets("test").Cells(ligne, 2) = Me.TextBox3
Sheets("test").Cells(ligne, 3) = CDbl(Me.TextBox2)
Me.TextBox2 = ""
Me.TextBox3 = ""
[COLOR=Blue][B]UserForm1.Hide[/B][/COLOR]
End Sub
Private Sub UserForm_Initialize()
       TextBox1 = Application.WorksheetFunction.CountA(Worksheets("test").Range("A2:A65000")) + 1
End Sub

A+ à tous

Edition : Salut JM : Excellente question...

 

[Manu62]

Re : Compteur N° automatique

Bonjour,

Merci a vous deux, cela fonctionne

A++

Manu