Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Compteur N° automatique

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion ced48
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
C

ced48

Guest
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
 
Trier par date Trier par votes
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
 
Vote positif 0 Vote négatif
Re : Compteur N° automatique

Bonjour à tous,
Salut Manu 🙂

Peux-tu essayer avec :

Code: 
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
 
Dernière édition:
Vote positif 0 Vote négatif
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 :
Code: 
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...
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

E
  • Question Question
Microsoft 365 heure positif ou negatif
Réponses
11
Affichages
426
ebe
E
  • Question Question
Microsoft 365 Petit souci lors de la création de dossier par Excel
Réponses
6
Affichages
158
patricktoulon
M
  • Question Question
XL 2016 formulaire avec des frais de livraisons suivant 3 zones d 'envoi
2
Réponses
23
Affichages
525
sylvanu
F
  • Question Question
XL 2019 Demande aide Fonction recherche
Réponses
6
Affichages
141
goube
F
  • Question Question
Power Query Power Query - Est-il possible d'inscrire des données d'un champ A provenant d'un enregistrement n sur un champ B d'un enregistrement n-1 ?
Réponses
11
Affichages
197
merinos-BernardEtang
  • Question Question
Microsoft 365 Excel VBA: manipuler des fichiers partagés via Teams / Sharepoint
Réponses
2
Affichages
130
Eric 888
  • Résolu(e)
XL 2010 Formulaires interdépendants
2
Réponses
15
Affichages
634
cathodique
P
  • Résolu(e)
XL 2016 Statistiques pour les cotes 1,N,2 paris sportifs
Réponses
9
Affichages
195
Pat972
P
E
  • Question Question
Microsoft 365 agrandir la liste de recherche
Réponses
4
Affichages
566
ebe
E
N
  • Résolu(e)
Microsoft 365 Garder le focus tant que vide
2 3
Réponses
30
Affichages
920
NONO14
N
E
  • Résolu(e)
Microsoft 365 insertions d une ligne
2
Réponses
19
Affichages
708
Piment
P
V
  • Question Question
XL 2019 gestion planing benevole
Réponses
3
Affichages
217
virny
V
S
  • Question Question
XL 2021 liste valeurs d'un combobox (doublons + tri)
2
Réponses
17
Affichages
343
Cousinhub
E
  • Résolu(e)
Autres bouton enregistrement en PDF
2
Réponses
22
Affichages
1 K
ebe
E
B
  • Question Question
Microsoft 365 Protection de zone de cellule selon utilisateur sur un fichier Excel
Réponses
2
Affichages
411
berta8683
B
E
  • Question Question
Microsoft 365 reference ou famille
2 3
Réponses
32
Affichages
766
Piment
P
E
  • Question Question
Microsoft 365 agrandir la liste
2
Réponses
21
Affichages
663
ebe
E
G
  • Question Question
XL 2016 Calcul en boucle de valeurs cibles
Réponses
6
Affichages
405
job75
O
  • Question Question
XL 2021 pas de clic droit
Réponses
4
Affichages
232
orguyrine
O
O
  • Question Question
XL 2016 Formules avec multicritères
Réponses
7
Affichages
508
oscarette
O
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…