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