Afficher la valeur de la derniere cellule non vide dans textbox [Résolu/Fermé]

Signaler
-
Messages postés
14934
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
-
Bonjour,



je souhaiterais avoir un code vba qui m'affiche le numéro de ma dernière cellule d'une colonne et rajouter +1. pour avoir un nouveau numéro de ma nouvelle saisie a partir de mon formulaire.

Merci par avance

3 réponses

Messages postés
16307
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
24 novembre 2020
3 075
moi, ca m'a pas fait rire du tout

au choix -adapter la colonne de recherche
Option Explicit
'--------
Sub incrementer1()
Dim ligvide As Byte
ligvid = Columns("A").Find(what:="", after:=Range("A1")).Row
Cells(ligvid, "A") = Cells(ligvid - 1, "A") + 1
End Sub

'OU

Sub incrementer2()
Dim derlig As Byte
derlig = Columns("A").Find(what:="", searchdirection:=xlPrevious).Row
Cells(derlig + 1, "A") = Cells(ligvid, "A") + 1
End Sub

1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 76687 internautes nous ont dit merci ce mois-ci

Messages postés
14934
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 241
Bonjour,

@alberkrimo : Si ta feuille est susceptible d'être triée sur une autre colonne que la "A" tu peux utiliser :
numéro = Application.WorksheetFunction.Max(Range("A:A")) + 1


@Michel : bonne année 2017 à toi et tes proches.
Messages postés
16307
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
24 novembre 2020
3 075 >
Messages postés
14934
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020

bonjour gb
bonne année aussi ;o)

j'avais au coup du max mais...

au passage
tu peux réduire
Application.WorksheetFunction.Max(...
à
Application.Max(...
c'est moins fatiguant à écrire!
Messages postés
14934
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 241
Bonjour Michel,

Merci de l'info qui gagne une vingtaine de frappes.
L'inconvénient c'est que l'on n'a pas l'affichage guide pour la saisie.
Messages postés
16307
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
24 novembre 2020
3 075
Bonjour

numero, c'est la valeur dans la cellule ou la ligne?
 Michel
Oui Michel. exactement
Messages postés
16307
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
24 novembre 2020
3 075 > alberkrimo
J'hallucine ou...

ET "EXACTEMENT", C'EST QUOI ?
Messages postés
20
Date d'inscription
samedi 3 janvier 2015
Statut
Membre
Dernière intervention
31 mai 2017

Dsl, j'ai pas bien lu ta question. mdr

C'est la valeur de la cellule.
Messages postés
20
Date d'inscription
samedi 3 janvier 2015
Statut
Membre
Dernière intervention
31 mai 2017

Merci pour votre aide précieuse :)