Microsoft 365 Erreur de code

[Marvin57]

Bonjour tout le monde,

Ci-dessous ce trouve un code qui sert à enregistrer des données via un userform, dans un tableau structuré (Tableau35) de l'onglet "TRAVAUX".

Or, j'ai remarqué que lorsque je saisi une seconde entrée de données, via mon userform, il place les données en dehors du tableau, c'est à dire une ligne en dessous.

Pourriez-vous me dire pourquoi il me fait cela SVP.

Merci d'avance à vous.

Marvin57

Private Sub btnValider_Click()

Set Ws = Sheets("TRAVAUX")
Set Wd = Sheets("SEMAINE")
If Me.btnValider.Caption = "VALIDER" Then
If Me.TextBox1 = "" Or Me.TextBox2 = "" Or Me.ComboBox1 = "" Then
MsgBox "Veuillez renseignez toutes les données !", vbInformation, "Données manquantes"
Me.TextBox1.SetFocus
Exit Sub
End If
Dl = Ws.Range("A" & Rows.Count).End(xlUp).Row + 1
Ws.Cells(Dl, 1).Value = CDate(Me.TextBox1.Value)
Ws.Cells(Dl, 1).NumberFormat = "m/d/yyyy"
Ws.Cells(Dl, 2).Value = Me.ComboBox1.Value
Ws.Cells(Dl, 3).Value = Me.TextBox2.Value

ElseIf Me.btnValider.Caption = "MODIFIER" Then
Ws.Cells(Me.LigneRDV, 1).Value = CDate(Me.TextBox1.Value)
Ws.Cells(Me.LigneRDV, 1).NumberFormat = "m/d/yyyy"
Ws.Cells(Me.LigneRDV, 2).Value = Me.ComboBox1.Value
Ws.Cells(Me.LigneRDV, 3).Value = Me.TextBox2.Value

End If
InitListBox
Unload Me
End Sub

 

[vgendron]

Bonjour

déjà.. ton code n'utilise pas la structure de table structurée
et ... mettre un code en vrac sans aucun fichier.. aucune chance qu'on voit ou ca bug...

 

[mapomme]

Bonjour @Marvin57 ,
Bonjour @vgendron ,

Un exemple (parmi d'autres possibles) pour ajouter une ligne dans un tableau structuré de la feuille "Feuil1" (le TS comprenant la cellule A1) :

Option Explicit

Sub AjouterLigne()
   With Worksheets("Feuil1").Range("a1").ListObject.ListRows.Add
      .Range(1, 1) = 98123.4
      .Range(1, 1).NumberFormat = "#,##0.00"
      .Range(1, 2) = "tata"
      .Range(1, 3) = "toto"
      .Range(1, 4) = "tata"
   End With
End Sub

 

[Marvin57]

Bonjour

déjà.. ton code n'utilise pas la structure de table structurée
et ... mettre un code en vrac sans aucun fichier.. aucune chance qu'on voit ou ca bug...

Bonjour vgendron,

Merci d'avoir pris le temps de répondre.
Malheureusement mon fichier est trop compliqué à séparé pour avoir un exemple. Désolé.

Marvin57

 

[Marvin57]

Bonjour @Marvin57 ,
Bonjour @vgendron ,

Un exemple (parmi d'autres possibles) pour ajouter une ligne dans un tableau structuré de la feuille "Feuil1" (le TS comprenant la cellule A1) :

Option Explicit

Sub AjouterLigne()
   With Worksheets("Feuil1").Range("a1").ListObject.ListRows.Add
      .Range(1, 1) = 98123.4
      .Range(1, 1).NumberFormat = "#,##0.00"
      .Range(1, 2) = "tata"
      .Range(1, 3) = "toto"
      .Range(1, 4) = "tata"
   End With
End Sub

Bonjour mapomme,

Merci pour ton aide, je vais mettre cela en place et voir si ça marche dans mon fichier réel.
Je vous tiendrai informé.

A+
Marvin57

 

[Marvin57]

Bonjour @Marvin57 ,
Bonjour @vgendron ,

Un exemple (parmi d'autres possibles) pour ajouter une ligne dans un tableau structuré de la feuille "Feuil1" (le TS comprenant la cellule A1) :

Option Explicit

Sub AjouterLigne()
   With Worksheets("Feuil1").Range("a1").ListObject.ListRows.Add
      .Range(1, 1) = 98123.4
      .Range(1, 1).NumberFormat = "#,##0.00"
      .Range(1, 2) = "tata"
      .Range(1, 3) = "toto"
      .Range(1, 4) = "tata"
   End With
End Sub

Bonjour mapomme,

j'ai mis en place ton code et cela me convient très bien.

Merci pour ton aide et a une prochaine fois.

Marvin57