Compteur dans userform
Fermé
max850
Messages postés
304
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 304 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 304 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
- Comment ralentir un compteur linky forum - Guide
- Compteur communicant - Guide
- Compteur de contractions - Télécharger - Santé & Bien-être
- Compteur électrique - Guide
- Compteur vba - Forum Excel
1 réponse
f894009
Messages postés
17200
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
11 septembre 2024
1 708
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:
Vous 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