Sujet Précédent Sujet Suivant

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

Fermé
Bouzy - 24 oct. 2011 à 18:39
Le Pingou Messages postés 12041 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 22 avril 2024 - 24 oct. 2011 à 22:18
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

Réponse 1 / 3
ccm81 Messages postés 10851 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 16 avril 2024 2 404
24 oct. 2011 à 19:08
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
Réponse 2 / 3
Vaucluse Messages postés 26496 Date d'inscription lundi 23 juillet 2007 Statut Contributeur Dernière intervention 1 avril 2022 6 394
24 oct. 2011 à 18:55
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
Réponse 3 / 3
Le Pingou Messages postés 12041 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 22 avril 2024 1 425
24 oct. 2011 à 22:18
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

Discussions similaires

recopier une formule sans décalage
aziz_alg80 -
aziz_alg80 -

2 réponses
Statut « en ligne » alors que non
GgBono -
Slickk -

1 réponse
je veut créer des codes
jonkiller -
Nhhi -

20 réponses
Que veut dire "correspondant occupé" lors d'un appel ?
veroaaa -
mamybigoud68 -

9 réponses