Microsoft 365 Décalage de ligne lors de la saisie

[Marvin57]

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]

Vous pourriez au moins dire qu'est-ce qui ne va pas, à défaut de déboguer un peu vous même
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

 

[vgendron]

Oui, quand je sélectionne des données de la listbox, elles sont chargées. Mais cela fonctionne.
Je vais faire une série de test et je reviendrai ce soir.

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...

 

[Marvin57]

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

 

[vgendron]

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

 

[Marvin57]

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

 

[Marvin57]

Ok, j'en ai encore corrigé deux au poste #27

Re Dranreb,

désolé pour ce sujet mal exposé et ma demande mal exprimée. J'ai finalement trouvé le bon code avec la proposition de vgendron.

Merci en tout cas d'avoir passé tout le temps sur ma demande. On pourra certainement échanger une prochaine fois.

Bonne soirée

Marvin57

 

[TooFatBoy]

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]

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