Afficher la valeur de la derniere cellule non vide dans textbox
Résolu
alberkrimo
-
gbinforme Messages postés 14930 Date d'inscription Statut Contributeur Dernière intervention -
gbinforme Messages postés 14930 Date d'inscription Statut Contributeur Dernière intervention -
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
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
-
moi, ca m'a pas fait rire du tout
au choix -adapter la colonne de rechercheOption 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
