formule d'incrémentation d'une ligne en vba Fermé

Question

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


Configuration: Windows XP / Internet Explorer 7.0

Vaucluse · Answer

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

ccm81 · Answer

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

Le Pingou · Answer

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

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

3 réponses

Discussions similaires