XL 2019 saisie sur la première ligne vide depuis un formulaire

[Mimi1952]

Bonjour à tous,

Quand je fais une saisie, depuis mon userform la saisie se décale de 5 lignes en-dessous de la dernière ligne pleine.
Je voudrais que toutes les saisies se suivent.

Je vous joints un fichier pour que se soit plus clair.

Je voudrais aussi savoir il est possible de mettre une cellule flottante sur la dernière colonne (caisse)
c'est à dire que chaque fois que je fais une saisie avec l'user form que la cellule apparaise.
merci pour votre aide.
bonne journée
mimi1952

 

[vgendron]

Bonjour

Ton fichier ne respecte pas les RGPD.. il contient des données perso
supprime le et reposte en replaçant par des données bidons (adresse, date de naissance, tel)

 

[sylvanu]

Bonjour Mimi,
Dans un tableau structuré, [TSource].Rows.Count donne le nombre de lignes du tableau que celles ci soient vides ou remplies.
Soit vous supprimez les lignes vides de votre tableau ( 50 à 60 de votre fichier ) et vous faites un [TSource].ListObject.ListRows.Add pour rajouter une ligne.
Soit vous parcourez chaque ligne et si pas de Nom vous supprimez la ligne, une sorte de nettoyage avant d'entrer les nouvelles données. Avec :

Sub Nettoyage()
    Application.ScreenUpdating = False
    For L = [TSource].Rows.Count To 1 Step -1
        If [TSource[Nom]].Item(L) = "" Then [TSource].ListObject.ListRows(L).Delete
    Next L
End Sub

 

[Mimi1952]

Bonjour

Ton fichier ne respecte pas les RGPD.. il contient des données perso
supprime le et reposte en replaçant par des données bidons (adresse, date de naissance, tel)

Bonjour,
Toutes mes données ne sont pas réelles c'est bidon.

 

[vgendron]

Une question
dans la table TSource, tu calcules quoi dans la dernière colonne??

et une remarque: le code est un peu fouilli.. y en a partout, l'indentation n'est pas très propre et plein de code qui ne sert pas==> un ménage s'impose pour rendre tout ca plus lisible

 

[vgendron]

regarde la PJ

1) j'ai supprimé toutes tes plages nommées inutiles (celles qui reprennent le nom des TS)
2) j'ai nettoyé le code
3) et modifié le codep pour exploiter les strucutres de TS (Listobjects en VBA)

 

[Mimi1952]

regarde la PJ

1) j'ai supprimé toutes tes plages nommées inutiles (celles qui reprennent le nom des TS)
2) j'ai nettoyé le code
3) et modifié le codep pour exploiter les strucutres de TS (Listobjects en VBA

 

[Mimi1952]

Merci Vgendron,

j'ai regarder en vitesse mais sa me paraît correct .Ce soir je vais essayer çà.
je vous tiens au courant en attendant je vous remercie sincèrement .
A plus tard
mimi52

 

[Mimi1952]

Merci Vgendron,

j'ai regarder en vitesse mais sa me paraît correct .Ce soir je vais essayer çà.
je vous tiens au courant en attendant je vous remercie sincèrement .
A plus tard
mimi52

Bonjour,
je vous remercie, de votre aide cela fonctionne vraiment bien .
En effet vous avez bien épuré le code .comme je comprends il faut que je supprime
mes Listes et autres et mettre que des TListes etc dans mon Onglet "Listes".
Merci et à une prochaine fois.
mimi1952