Est-ce qu'il peut y avoir deux lignes identiques ? Daniel
Et il peux y avoir aussi pour la même date et le même véhicule, 2 lignes sans kilométrage.
Ça se complique, je pense !
DT
Ça arrivera bien un jour, j'en suis sûre mais bon pour éviter trop de changement
On peux toujours supposer (et ça arrive souvent) qu'un chauffeur puisse allez faire le plein du véhicule le matin et le soir avec le même véhicule. ce qui devrait jamais arriver, c'est que ce chauffeur ne marque pas le kilométrage le matin ni le soir mais malheureusement (très trés rarement).
A la limite, je mettrais un kilométrage fictif au cas ou cela arrive.
Merci de ta persévérance
Ça arrivera bien un jour, j'en suis sûre mais bon pour éviter trop de
changement
On peux toujours supposer (et ça arrive souvent) qu'un chauffeur puisse
allez faire le plein du véhicule le matin et le soir avec le même véhicule.
ce qui devrait jamais arriver, c'est que ce chauffeur ne marque pas le
kilométrage le matin ni le soir mais malheureusement (très trés rarement).
A la limite, je mettrais un kilométrage fictif au cas ou cela arrive.
Ça arrivera bien un jour, j'en suis sûre mais bon pour éviter trop de changement
On peux toujours supposer (et ça arrive souvent) qu'un chauffeur puisse allez faire le plein du véhicule le matin et le soir avec le même véhicule. ce qui devrait jamais arriver, c'est que ce chauffeur ne marque pas le kilométrage le matin ni le soir mais malheureusement (très trés rarement).
A la limite, je mettrais un kilométrage fictif au cas ou cela arrive.
Merci de ta persévérance
Daniel.C
Alors le code que je t'ai envoyé doit faire l'affaire. Daniel
Ça arrivera bien un jour, j'en suis sûre mais bon pour éviter trop de changement
On peux toujours supposer (et ça arrive souvent) qu'un chauffeur puisse allez faire le plein du véhicule le matin et le soir avec le même véhicule. ce qui devrait jamais arriver, c'est que ce chauffeur ne marque pas le kilométrage le matin ni le soir mais malheureusement (très trés rarement).
A la limite, je mettrais un kilométrage fictif au cas ou cela arrive.
Merci de ta persévérance
Alors le code que je t'ai envoyé doit faire l'affaire.
Daniel
Ça arrivera bien un jour, j'en suis sûre mais bon pour éviter trop de
changement
On peux toujours supposer (et ça arrive souvent) qu'un chauffeur puisse allez
faire le plein du véhicule le matin et le soir avec le même véhicule. ce qui
devrait jamais arriver, c'est que ce chauffeur ne marque pas le kilométrage
le matin ni le soir mais malheureusement (très trés rarement).
A la limite, je mettrais un kilométrage fictif au cas ou cela arrive.
Alors le code que je t'ai envoyé doit faire l'affaire. Daniel
Ça arrivera bien un jour, j'en suis sûre mais bon pour éviter trop de changement
On peux toujours supposer (et ça arrive souvent) qu'un chauffeur puisse allez faire le plein du véhicule le matin et le soir avec le même véhicule. ce qui devrait jamais arriver, c'est que ce chauffeur ne marque pas le kilométrage le matin ni le soir mais malheureusement (très trés rarement).
A la limite, je mettrais un kilométrage fictif au cas ou cela arrive.
Merci de ta persévérance
DT
Merci beaucoup
Pour la modification cela fonctionne mais pour la suppression avec le même bout de code, non
Merci beaucoup
Pour la modification cela fonctionne mais pour la suppression avec le même
bout de code, non
Pour la modification cela fonctionne mais pour la suppression avec le même bout de code, non
Daniel.C
Utilise :
Private Sub CmbSupprimer_Click() Dim Ligne As Long, Immat As String, Km As Long, l 'Boite Confirmation Dim réponse réponse = MsgBox(" Etes vous sur de vouloir SUPPRIMER cette fiche ? ", vbYesNo + vbQuestion, "Validation") If réponse = vbNo Then Exit Sub
'Trouver le numéro de ligne à partir de l'immatriculation et du kilométrage Set c = Feuil2.Range("A65000").End(xlUp) Ligne = c.Row With LstResultat ndx = .ListIndex Immat = .List(.ListIndex, 1) If .List(.ListIndex, 4) = "" Then Km = 0 Else Km = .List(.ListIndex, 4) End If End With Feuil2.Select l = Evaluate("sumproduct((B2:B" & Ligne & "=""" & Immat & """)*(E2:E" & Ligne & "=" & Km & _ ")*row(2:" & Ligne & "))") 'la 1ère ligne de la BD est 2 qui correspond à LisIndex=0 'donc, décaler d'autant pour retrouver la ligne Feuil2.Rows(l).Delete
UserForm_Initialize End Sub
Private Sub CmdAnnuler_Click() UserForm_Initialize End Sub
Daniel
Merci beaucoup
Pour la modification cela fonctionne mais pour la suppression avec le même bout de code, non
Utilise :
Private Sub CmbSupprimer_Click()
Dim Ligne As Long, Immat As String, Km As Long, l
'Boite Confirmation
Dim réponse
réponse = MsgBox(" Etes vous sur de vouloir SUPPRIMER cette fiche ?
", vbYesNo + vbQuestion, "Validation")
If réponse = vbNo Then Exit Sub
'Trouver le numéro de ligne à partir de l'immatriculation et du
kilométrage
Set c = Feuil2.Range("A65000").End(xlUp)
Ligne = c.Row
With LstResultat
ndx = .ListIndex
Immat = .List(.ListIndex, 1)
If .List(.ListIndex, 4) = "" Then
Km = 0
Else
Km = .List(.ListIndex, 4)
End If
End With
Feuil2.Select
l = Evaluate("sumproduct((B2:B" & Ligne & "=""" & Immat &
""")*(E2:E" & Ligne & "=" & Km & _
")*row(2:" & Ligne & "))")
'la 1ère ligne de la BD est 2 qui correspond à LisIndex=0
'donc, décaler d'autant pour retrouver la ligne
Feuil2.Rows(l).Delete
UserForm_Initialize
End Sub
Private Sub CmdAnnuler_Click()
UserForm_Initialize
End Sub
Daniel
Merci beaucoup
Pour la modification cela fonctionne mais pour la suppression avec le même
bout de code, non
Private Sub CmbSupprimer_Click() Dim Ligne As Long, Immat As String, Km As Long, l 'Boite Confirmation Dim réponse réponse = MsgBox(" Etes vous sur de vouloir SUPPRIMER cette fiche ? ", vbYesNo + vbQuestion, "Validation") If réponse = vbNo Then Exit Sub
'Trouver le numéro de ligne à partir de l'immatriculation et du kilométrage Set c = Feuil2.Range("A65000").End(xlUp) Ligne = c.Row With LstResultat ndx = .ListIndex Immat = .List(.ListIndex, 1) If .List(.ListIndex, 4) = "" Then Km = 0 Else Km = .List(.ListIndex, 4) End If End With Feuil2.Select l = Evaluate("sumproduct((B2:B" & Ligne & "=""" & Immat & """)*(E2:E" & Ligne & "=" & Km & _ ")*row(2:" & Ligne & "))") 'la 1ère ligne de la BD est 2 qui correspond à LisIndex=0 'donc, décaler d'autant pour retrouver la ligne Feuil2.Rows(l).Delete
UserForm_Initialize End Sub
Private Sub CmdAnnuler_Click() UserForm_Initialize End Sub
Daniel
Merci beaucoup
Pour la modification cela fonctionne mais pour la suppression avec le même bout de code, non
