Application gestion de stocks

Bonjour,

Je souhaite faire un système de rangement de pièces.

L'idée c'est que la personne qui saisi une ligne dans mon tableau Excel via un Userform ne puisse pas ranger deux pièces au même emplacement.

Exemple : Il saisit une pièce et crée la ligne dans mon tableau en A1 et donc je ne veux plus proposer dans ma liste le A1.

Si la ligne est supprimé, je veux que le A1 redevienne disponible.

Auriez-vous une idée du comment je peux faire ?

Cordialement,

Tortuel

Bonjour,

pour connaitre la dernière ligne d'un tableau :

Sheets(OngletName).Range("A" & Rows.Count).End(XlUp).Row

si il y a des lignes vides dans ton tableau :

Sheets(OngletName).Range("A1").End(XlDown).Row + 1

te donne la première ligne vide

@+JP

Bonjour,

LigneFin = Sheets(OngletName).Range("A" & Rows.Count).End(XlUp).Row

avec la dernière ligne du tableau , tu peux maintenant faire une boucle sur toutes les lignes ,

For n = 1 To LigneFin

Next n

et tester si la cellules est vide

If Cells(n,1).value = "" Then

End If

ou

If Range("A" & n).Value = "" Then

End If

si elle est vide tu ajoute dans une liste

USF.ListBox.AddItem "A" & n

@+JP