recupérer la valeur d'une cellule dans un textbox et ajouter +1

[reinruof77]

Bonjour a tous et toutes

Je cherche le moyen de faire une numérotation automatique dans une textbox.

si le celulle de la colonne A3 contient 12345678 dans ma textbox je voudrais qu'il soit afficher 12345679.

et ainsi de suite la cellule A4 contiendra 12345679 il faudrait que dans ma textbox soit afficher 12345680 etc..

Merci de votre aide a tous et a toute.

 

[mutzik]

Re : recupérer la valeur d'une cellule dans un textbox et ajouter +1

bonjour

pourquoi utiliser une textbox pour mettre à jour des cells
en A4 : =A3+1
et tu recopies vers le bas

 

[reinruof77]

Re : recupérer la valeur d'une cellule dans un textbox et ajouter +1

bonjour mutzik

Tout simplement car j'ai un userform avec d'autre donner qui sont renvoyer sur cette feuille.
et que l'on me demande de faire une numeroration ( semi automatique ) en reprenant le n° precédant.

Merci

 

[reinruof77]

Re : recupérer la valeur d'une cellule dans un textbox et ajouter +1

Ben alors personne ne peux m'aider?

 

[reinruof77]

Re : recupérer la valeur d'une cellule dans un textbox et ajouter +1

J'ai trouver ce fichier mais je ne comprend pas tout mais c'est exactement ce que je cherche.

 

[mutzik]

Re : recupérer la valeur d'une cellule dans un textbox et ajouter +1

re,

Avec un extrait de ton fichier sans données confidentielles, on pourrait t'aider mieux et plus vite

 

[reinruof77]

Re : recupérer la valeur d'une cellule dans un textbox et ajouter +1

Rebonjour mutzik
voici le fichier sur lesquels je travail.
et merci de ton aide

 

[Dull]

Re : recupérer la valeur d'une cellule dans un textbox et ajouter +1

Salut reinruaf77, Bertrand 🙂, le Forum

A ajouter dans UserForm_Initialize()

Private Sub UserForm_Initialize()
'...
TextBox1 = Format(Evaluate("=MAX(A:A)") + 1, "00#")
End Sub

de plus met la Colonne A au Format "00#" et non au Format Texte

Bonne Journée

 

[mutzik]

Re : recupérer la valeur d'une cellule dans un textbox et ajouter +1

re,

et merci à Dull, j'étais aussi en train de vérifier
deux petits détails:
au lieu d'utiliser textBox1, donne des noms explicites à tes controles, cela te simplifiera la vie lors d'un débogage éventuel
je nomme mes controles tb_NumSaisie dans ce cas là (tb = textbox NumSaisie pour identifier de quoi il s'agit)

aussi, ajouter l'indication : option explicit qui t'oblige à déclarer les variables utilisées dans le code (cela évite des erreurs et quelquefois des heures de recherche

dans le module usf bonjour, tu as une erreur de code
For Each c In Range("AD3:A65000")
je pense que le D est de trop

également, penser à utiliser les boolean (qui ne peuvent prendre que deux valeurs, vrai ou faux)
par ex tu mets x=1 pour spécifier que la valeur cherchée est trouvée
en début de sub, tu mets dim trouvé as boolean
puis au lieu de x=1 tu mets trouvé = true, c'est à dire vrai
plus bas, il suffit de mettre :
if trouvé then msgbox ...
bien entendu, dans ce code il sera facile de comprendre le pourquoi du x, mais pense que tu vas peut-être (certainement même) faire des codes plus complexes et plus long et, dans ce cas, toutes les indications / conseils que je te mets ici te seront très utiles


et sinon, j'aurais mis les deux usf sur un seul, mais bon, cela fonctionne aussi comme cela

 

[reinruof77]

Re : recupérer la valeur d'une cellule dans un textbox et ajouter +1

Merci beaucoup a tous
et a bientot.

 

[dePOI]

Re : recupérer la valeur d'une cellule dans un textbox et ajouter +1

Bonjour,
J'ai testé le fichier "test1 reinruaff77.xls" qui fonctionne parfaitement et que je me suis empressé d'adapter pour mon usage personnel.
Bien sur chez moi, c'était prévisible, c'est choux blanc!

Voici mon code

'------------------------------------------------------------------------------------------------------------------------------
' MODULE POUR AUGMENTER LE COMPTEUR TxtNUMERO : CA MARCHE PAS!
'------------------------------------------------------------------------------------------------------------------------------
Private Sub UserForm_Initialize()
'........
'........
TextNUMÉRO.Value = Range("B" & Cells(Rows.Count, 1).End(xlUp).Row) + 1
'........
'........
'
End sub
'-----------------------------------
J'ai juste modifié le nom de colonne A par B.

Y a t'il un "épisode" oublié dans le code du genre explicit, ou autre?
Merci par avance de l'aide que tu peux m'apporter.