Afficher la valeur de la derniere cellule non vide dans textbox

Résolu/Fermé
alberkrimo - 20 janv. 2017 à 09:54
gbinforme Messages postés 14939 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 - 20 janv. 2017 à 17:44
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

michel_m Messages postés 16589 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 12 janvier 2023 3 289
20 janv. 2017 à 11:41
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
gbinforme Messages postés 14939 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 647
Modifié par gbinforme le 20/01/2017 à 14:16
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.
0
michel_m Messages postés 16589 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 12 janvier 2023 3 289 > gbinforme Messages postés 14939 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020
20 janv. 2017 à 14:45
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!
0
gbinforme Messages postés 14939 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 647
20 janv. 2017 à 17:44
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.
0