Formule d'incrémentation d'une ligne en vba

Bouzy -  
Le Pingou Messages postés 12653 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

je m'appelle bouzy et j'ai débuté il y a quelques mois en tant que magasinier dans une PME.
je me suis dans le vba, il y a près de trois mois et j'avance tant bien que mal dans mon apprentissage en autodidacte en allant sur des forums et en lisant des livres.

pour des raisons professionnelles, j'ai crée une fiche de suivi des mouvements du stock sous excel.

pour la saisie des données j'ai crée un userform qui fonctionne très bien jusqu'ici.
mais je suis bloqué debut pas mal de temps et cela m'empèche de mettre mon petit programme en service.

je souhaite trouver une formule simple qui ne nécessite pas de passer par une variable pour qu'à chaque fois que je valide mon Userform, que les données saisies aillent s'incrémenter à la suite de la dernière ligne sans écraser le contenu de la précédente.
De manière à pouvoir suivre l'historique du stock.

je dois avouer que les variables me paraissent assez complexes pour l'instant


je vous remercie tous d'avance pour votre aide que vous m'apporterez et j'espère que vous trouverez une solution à mon problème.

une fois plus Merci


A voir également:

3 réponses

ccm81 Messages postés 11033 Statut Membre 2 433
 
bonsoir

ou bien la première ligne non vide de la colonne A
Sheets(nomFeuille).Range("A" & Rows.Count).End(xlUp).Row + 1

bonne suite
1
Vaucluse Messages postés 27336 Date d'inscription   Statut Contributeur Dernière intervention   6 444
 
Bonsoir
en attendant mieux, trouver la première cellule vide dans un champ (ici E50:E5000)

Dim cellulevide As String
On Error Resume Next
Set celluletrouvé = [E10:E5000].Find(What:=cellulevide)
celluletrouvé.Select

crdlmnt
0
Le Pingou Messages postés 12653 Date d'inscription   Statut Contributeur Dernière intervention   1 465
 
Bonjour tous,
Autre possibilité pour trouver la première cellule vide d'une ligne ou d'une colonne, résultats en H13 et I13
Sub NumeroLiVideCoVide()
'première colonne vide à droite
range("H13") = Cells(3, Rows(3).Cells.Count).End(xlToLeft).Column + 1
'Idem pour la première ligne vide par exemple la colonne [A] et [B]
Range("I13") = Cells(Columns(1).Cells.Count, 1).End(xlUp).Row + 1
Range("J13") = Cells(Columns(2).Cells.Count, ["b"]).End(xlUp).Row + 1
End Sub

0