Afficher la valeur de la derniere cellule non vide dans textbox
Résolu
alberkrimo
-
gbinforme Messages postés 14946 Date d'inscription Statut Contributeur Dernière intervention -
gbinforme Messages postés 14946 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
A voir également:
- Récupérer la valeur de la dernière cellule non vide vba
- Récupérer au terminal de fret - Forum Consommation & Internet
- Formate pour taxer client frigo vide ✓ - Forum Vos droits sur internet
- Recuperer message whatsapp supprimé - Guide
- Supprimer dernière page word - Guide
- Formule excel si cellule non vide alors couleur ✓ - Forum Excel
3 réponses
moi, ca m'a pas fait rire du tout
au choix -adapter la colonne de recherche
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
@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.
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!
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.