Microsoft 365 Décalage de ligne lors de la saisie

Marvin57

XLDnaute Occasionnel
Bonjour à tout le monde,

j'ai un petit soucis lors de la saisie et validation de mes données vers un tableau structuré.

C'est à dire :

Lorsque je saisi les données dans mon userform et que je clique sur valider, il me m'inscrit les données à la suite de mon tableau structuré au lieu de le faire une ligne au dessus.

Voici le code qui sert à valider cela.

J'espère que cela va vous aider à comprendre mon problème car mon fichier est très volumineux et difficile a transmettre.

Le tableau structuré de l'onglet "POINTS" se nomme "Tableau28" si vous avez besoin de cette info.
Le tableau "Tableau28" démarre à la ligne A2 de l'onglet "POINTS".

Private Sub VALIDATION_Click() 'Valider l'enregistrement des points saisis
Dim Wtc As Worksheet
Application.ScreenUpdating = False
Set Wtc = Sheets("POINTS")
If VALIDATION.Caption = "VALIDER" Then
Dl = Wtc.Range("A" & Rows.Count).End(xlUp).Row + 1
If Dl = 2 Then
Wtc.Cells(Dl, 1).Value = 1
Else
Wtc.Cells(Dl, 1).Value = Application.WorksheetFunction.Max(Wtc.Range("A2:A" & Dl).Value) + 1
End If
Wtc.Cells(Dl, 2).Value = CDate(Me.TextBox1.Value)
Wtc.Cells(Dl, 2).NumberFormat = "m/d/yyyy"
Wtc.Cells(Dl, 3).Value = CDate(Me.TextBox2.Value)
Wtc.Cells(Dl, 3).NumberFormat = "m/d/yyyy"
Wtc.Cells(Dl, 4).Value = CDate(Me.TextBox3.Value)
Wtc.Cells(Dl, 4).NumberFormat = "m/d/yyyy"
Wtc.Cells(Dl, 5).Value = Me.ComboBox1.Value
Wtc.Cells(Dl, 6).Value = Me.ComboBox2.Value
Wtc.Cells(Dl, 7).Value = Me.ComboBox3.Value
Wtc.Cells(Dl, 8).Value = Me.TextBox4.Value
If Me.OptionButton1 = True Then Wtc.Cells(Dl, 9).Value = Me.TextBox5.Value
If Me.OptionButton2 = True Then Wtc.Cells(Dl, 10).Value = Me.TextBox5.Value

Actualiser_Affiche
MsgBox " Points enregistrés"
Else
Dl = Wtc.Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To Dl
If Me.lbltc.Caption = Wtc.Cells(i, 1).Value Then
Wtc.Range(Wtc.Cells(i, 2), Wtc.Cells(i, 10)) = ""
Wtc.Cells(i, 2).Value = CDate(Me.TextBox1.Value)
Wtc.Cells(i, 2).NumberFormat = "m/d/yyyy"
Wtc.Cells(i, 3).Value = CDate(Me.TextBox2.Value)
Wtc.Cells(i, 3).NumberFormat = "m/d/yyyy"
Wtc.Cells(i, 4).Value = CDate(Me.TextBox3.Value)
Wtc.Cells(i, 4).NumberFormat = "m/d/yyyy"
Wtc.Cells(i, 5).Value = Me.ComboBox1.Value
Wtc.Cells(i, 6).Value = Me.ComboBox2.Value
Wtc.Cells(i, 7).Value = Me.ComboBox3.Value
Wtc.Cells(i, 8).Value = Me.TextBox4.Value
If Me.OptionButton1 = True Then Wtc.Cells(i, 9).Value = Me.TextBox5.Value
If Me.OptionButton2 = True Then Wtc.Cells(i, 10).Value = Me.TextBox5.Value
Actualiser_Affiche
RAZ
Exit For
End If
Next
Me.LblTypeConge = "Points donnés "
Me.OptionButton1 = True
VALIDATION.Caption = "VALIDER"
VALIDATION.BackColor = &HFF00&
MsgBox " Points donnés modifiés"
End If


End Sub

Merci d'avance à vous pour vos infos et rectifications.

Marvin57
 

Marvin57

XLDnaute Occasionnel
Vous pourriez au moins dire qu'est-ce qui ne va pas, à défaut de déboguer un peu vous même :mad:
Enfin il a un peu évolué, alors je le re-joins …
Re Dranreb,

désolé, vraiment désolé. J'ai aujourd'hui une journée pas comme les autres et j'ai l'impression que j'oublie la moitié !!!
Je refais des essais ce soir pour vous dire. En tout cas Merci aussi à vous d'avoir pris le temps pour m'aider dans ma demande.
C'est très sympa de votre part sur ce site. CHAPEAU
 

Marvin57

XLDnaute Occasionnel
ha bon??? à part, par magie, je ne vois pas comment ca peut fonctionner.... il n'y a aucun code sur la listbox..
ou alors.. nous n'avons pas le fichier complet...
OH LA LA !!!! aujourd'hui n'est pas mon jour je crois. 🙈 🙈 🙈 🙈
Je suis vraiment désolé de vous embêter à ce point.

Voila le fichier avec code de la listbox .
Par contre, si je n'ai pas fais d'erreur, lorsque le tableau est vide et que je veux saisir les premières données, il me fait un bug !

A+ Marvin57
 

Pièces jointes

  • Marvin57-A.xlsm
    75.9 KB · Affichages: 2

Marvin57

XLDnaute Occasionnel
Dans la PJ
1) j'ai renommé les controles avec des noms explicites.. habitude à prendre
2) j'ai testé les codes des différents boutons
Re,

MERCI beaucoup vgendron.👍👍👍

j'ai suivi tes conseils et renommé tous les contrôles. C'est beaucoup plus clair et on comprend mieux.

Dure journée, désolé d'avoir mal exposé mon souhait. La prochaine fois ce sera mieux, promis.
;)

En attendant, bonne soirée et a très bientôt.

Marvin57
 

TooFatBoy

XLDnaute Barbatruc
Je dois vraiment être nul, car je ne comprends pas vos indications !!!! Excusez-moi.
Pas de problème, on est là pour apprendre. ;)



Pourquoi utiliser des références par rapport à la feuille, alors que tu utilises un TS ?

Pourriez-vous m'indiquez avec mon code que j'ai donné, ce que je devrais modifier Sil Vous Plaît ? Sinon je n'y arriverai pas.
Le camarade @vgendron dans son code du message #13 utilise des références par rapport au TS (Tableau Structuré), et non par rapport à la page. C'est ce que voulait dire mon message. ;)
 

Marvin57

XLDnaute Occasionnel
Pas de problème, on est là pour apprendre. ;)




Le camarade @vgendron dans son code du message #13 utilise des références par rapport au TS (Tableau Structuré), et non par rapport à la page. C'est ce que voulait dire mon messA
Pas de problème, on est là pour apprendre. ;)




Le camarade @vgendron dans son code du message #13 utilise des références par rapport au TS (Tableau Structuré), et non par rapport à la page. C'est ce que voulait dire mon message. ;)
Bonjour

Merci en tout cas d'avoir pris le temps de donner des explications par rapport à ma demande.

Bonne journée et a une autre fois.
Marvin57
 

Discussions similaires

Réponses
17
Affichages
526
Réponses
5
Affichages
489
Réponses
4
Affichages
276

Statistiques des forums

Discussions
313 264
Messages
2 096 659
Membres
106 701
dernier inscrit
KOFFI