bouton valider

[marleauc]

Bonjour
J'aimerais un petit coup de pouce, lorsque j'appuis surle bouton valider , j'aimerais que les infos puissent se diriger directement dans les colonnes b,c,d,e ! présentement seulement certaines données le font .
Private Sub CommandButton1_Click()
Dim dlt As Integer, Ddate As Date, Vehicule As String, i As Integer

With Sheets("Filtrage")


If .Range("B12") <> "" Then
.ListObjects(1).ListRows.Add.Range(1, 1).Value = CDate(Range("C4").Value)
Else
' .Range("B12") = CDate(Range("C4").Value)
End If
'ajouter les informations dans le tableau
.Range("B" & dlt + 1) = .Range("C4")
.Range("C" & dlt + 1) = .Range("C5")
.Range("D" & dlt + 1) = .Range("C6")
.Range("E" & dlt + 1) = .Range("C7")
'préparation pour une nouvelle entrée
Reset_TdbBtChasse


End With
MAJ_TCD
ActiveWorkbook.Save 'enregistrement fichier
End Sub
.
merci d'avance

 

[job75]

Bonsoir marleauc,

Dans l'état où c'est faut un gros coup de pouce :

Private Sub CommandButton1_Click()
Dim dlt As Long
dlt = Columns("B").Find("", Range("B11"), xlValues).Row
Range("B" & dlt) = Range("C4")
Range("C" & dlt) = Range("C5")
Range("D" & dlt) = Range("C6")
Range("E" & dlt) = Range("C7")
'préparation pour une nouvelle entrée
Reset_TdbBtChasse
MAJ_TCD
ActiveWorkbook.Save  'enregistrement fichier
End Sub

A+

 

[marleauc]

Bonjour
ohhh merci bcp , oui effectivement je vois et constate
encore merci
christian