Afficher la valeur de la derniere cellule non vide dans textbox
Résolu/Fermé
alberkrimo
-
20 janv. 2017 à 09:54
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 - 20 janv. 2017 à 17:44
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 - 20 janv. 2017 à 17:44
A voir également:
- Récupérer la valeur de la dernière cellule non vide vba
- Coeur vide ✓ - Forum Réseaux sociaux
- Formate pour taxer client frigo vide ✓ - Forum Vos droits sur internet
- Vba récupérer valeur cellule ✓ - Forum VB / VBA
- Recuperer message whatsapp supprimé - Guide
- Aller à la ligne dans une cellule excel - Guide
3 réponses
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 310
20 janv. 2017 à 11:41
20 janv. 2017 à 11:41
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
Modifié par gbinforme le 20/01/2017 à 14:16
@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.
20 janv. 2017 à 14:45
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!
20 janv. 2017 à 17:44
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.