XL 2019 Syntax VBA pour fichier tracking de processus

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

sgangbadjo

XLDnaute Nouveau
Bonsoir a tous,

Je développe actuellement une base de données de tracking de transactions avec des formulaires pour le remplir.
La syntaxe ci-dessous est écrite pour le premier formulaire

Mais lorsque je valide les nouvelles données écrasent la ligne existante dans la base de données au lieu de créer une ligne après la dernier ligne.

Please Help
==========================================================

Private Sub CommandButton1_Click()

'declaration des variables
Dim f1 As Worksheet
Dim derlig As Long

'identification de la feuille des donnees
Set f1 = Sheets("TRACKING")
derlig = f1.ListObjects("Table1").DataBodyRange.Rows.Count + 1 'derniere ligne du tableau

If MsgBox("Etes vous sûr de vouloir sauvegarder?", vbYesNo, "confirmation") = vbYes Then
With f1
'verifie si toutes les Textbox sont remplis
For i = 1 To 5
If Controls("Textbox" & i) = "" Then
MsgBox "Veuillez remplir toutes les cellules"
Exit Sub
End If
Next i
'Verifie si tous les comboBox sont remplis
For i = 1 To 3
If Controls("Combobox" & i) = "" Then
MsgBox "Veuillez renseigner toutes les cellules"
Exit Sub
End If

'remplissage

.Cells(derlig, i + 2) = Controls("TextBox" & i)

Next
For c = 1 To 4
.Cells(derlig, c + 5) = Controls("ComboBox" & c)
Next
For d = 4 To 5
.Cells(derlig, d + 6) = Controls("TextBox" & d)
Next

End With
End If
Unload Me
 

Pièces jointes

Probleme resolu avec la syntaxe ci- dessous. Je suis toujours preneur d'une amelioration

Private Sub CommandButton1_Click()

'declaration des variables
Dim f1 As Worksheet
Dim DerLigne As Long

'identification de la feuille des donnees
Set f1 = Sheets("TRACKING")
DerLigne = Sheets("TRACKING").Range("A" & Rows.Count).End(xlUp).Row + 1 'derniere ligne du tableau

If MsgBox("Etes vous sûr de vouloir sauvegarder?", vbYesNo, "confirmation") = vbYes Then
With f1
'verifie si toutes les Textbox sont remplis
For i = 1 To 5
If Controls("Textbox" & i) = "" Then
MsgBox "Veuillez remplir toutes les cellules"
Exit Sub
End If
Next i
'Verifie si tous les comboBox sont remplis
For i = 1 To 3
If Controls("Combobox" & i) = "" Then
MsgBox "Veuillez renseigner toutes les cellules"
Exit Sub
End If
Next
For e = 1 To 3
'remplissage

.Cells(DerLigne, e + 2) = Controls("TextBox" & e)

Next
For c = 1 To 4
.Cells(DerLigne, c + 5) = Controls("ComboBox" & c)
Next
For d = 4 To 5
.Cells(DerLigne, d + 6) = Controls("TextBox" & d)
Next

End With
End If
Unload Me


End Sub
 
Hello a tous,

Puise avoir un coup de main pour corriger la Syntaxe ci dessous?

Le message d'erreur est : Compile error: Object required

Merci pour l'appui

Private Sub CommandButton1_Click()

Dim f1 As Worksheet
Dim ligne As Long
Dim cible As Variant

Set f1 = Sheets("TRACKING")
Set cible = Me.TextBox1.Value
Set ligne = Application.WorksheetFunction.CountIf(Sheets("TRACKING").Range("C1:C" & DerLigne), cible)

If MsgBox("Etes vous sûr de vouloir sauvegarder?", vbYesNo, "confirmation") = vbYes Then
With f1

f1.Cells(ligne, 13).Value = Me.TextBox4.Value
f1.Cells(ligne, 14).Value = Me.TextBox5.Value
f1.Cells(ligne, 12).Value = Me.ComboBox1.Value
f1.Cells(ligne, 18).Value = Me.TextBox6.Value
f1.Cells(ligne, 15).Value = Me.ComboBox2.Value
f1.Cells(ligne, 16).Value = Me.ComboBox3.Value
f1.Cells(ligne, 17).Value = Me.TextBox7.Value
f1.Cells(ligne, 19).Value = Me.TextBox8.Value
f1.Cells(ligne, 21).Value = Me.TextBox9.Value
f1.Cells(ligne, 20).Value = Me.TextBox10.Value
f1.Cells(ligne, 22).Value = Me.TextBox11.Value
f1.Cells(ligne, 23).Value = Me.TextBox12.Value
End With
End If
Unload Me

End Sub
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
XL 2021 VBA excel
Réponses
4
Affichages
72
  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
244
  • Question Question
Microsoft 365 Export données
Réponses
4
Affichages
498
Retour