Compteur dans userform
Fermé
max850
Messages postés
305
Date d'inscription
dimanche 10 janvier 2016
Statut
Membre
Dernière intervention
4 janvier 2020
-
18 févr. 2017 à 15:25
max850 Messages postés 305 Date d'inscription dimanche 10 janvier 2016 Statut Membre Dernière intervention 4 janvier 2020 - 19 févr. 2017 à 12:01
max850 Messages postés 305 Date d'inscription dimanche 10 janvier 2016 Statut Membre Dernière intervention 4 janvier 2020 - 19 févr. 2017 à 12:01
A voir également:
- Compteur dans userform
- Compteur de contractions - Télécharger - Santé & Bien-être
- Comment ralentir un compteur linky - Guide
- Compteur électrique - Guide
- Compteur kilométrique qui clignote fiat - Forum Autoradio
- Compteur point fléchette excel - Télécharger - Sport
1 réponse
f894009
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
1 701
18 févr. 2017 à 15:43
18 févr. 2017 à 15:43
Bonjour,
A chaque ouverture de l'UF, incrementez une variable declaree en Public si c'est seulement tant que le fichier excel est ouvert ou si ca doit incrementer sur ouverture du fichier excel (apres fermeture évidemment) incrementez une cellules dans une feuille et chargez la textbox avec cette cellule
A chaque ouverture de l'UF, incrementez une variable declaree en Public si c'est seulement tant que le fichier excel est ouvert ou si ca doit incrementer sur ouverture du fichier excel (apres fermeture évidemment) incrementez une cellules dans une feuille et chargez la textbox avec cette cellule
19 févr. 2017 à 01:39
j'ai bien déclaré ma variable en public as integer
comme cela
Public num As Integer
Private Sub UserForm_Initialize()
num = Range("B65536").End(xlUp).Row + 1
num = num + 1
MsgBox num
TextBox12.Value = num
.....
mais aucune incrémentation dans la colonne b de ma feuille
je suis vraiment nul
Modifié par f894009 le 19/02/2017 à 09:13
Pourquoi ceci:
num = Range("B65536").End(xlUp).Row + 1Vous devez prendre une cellule c'est tout, l'incremente :
-lire la cellule
-faire+1
-ecrire la cellule
-mettre cette valeur dans la text box
19 févr. 2017 à 10:50
Voici ce que je viens de faire et ça fonctionne
Private Sub UserForm_Initialize()
num = Format(Feuil4.Range("b7").Value + 1, "00000")
Range("B7").Value = num
TextBox12.Value = num
mais je voudrais que cette valeur s'inscrive sur la dernière ligne de ma feuil4
et non pas remplacer la valeur précédente
dans ma colonne b j'aurais en b7 1, en b8 2 etc
c'est ce que j'avais tenté de faire avec
num = Range("B65536").End(xlUp).Row + 1
Modifié par f894009 le 19/02/2017 à 11:00
Pourquoi: et non pas remplacer la valeur précédente
Ce n'est pas incrémenter une cellule c'est changer de cellule a chaque fois
19 févr. 2017 à 11:13
effectivement je change de cellule à chaque fois
mais en ajoutant + 1 à chaque fois