mon problème actuel est de calculer le kilométrage effectué au total. je m'explique:
le dernier kilométrage que j'obtiens facilement est la dernière case apparente de la colonne 3
il faut que je soustrais le premier kilométrage enregistré, pour ma voiture sélectionnée, au dernier relevé... et là le drame!
j'ai essayé .visible, mais sans succès et la comment remplacer le Cells dans : Dim c As Cells
'kilométrage effectué
Dim c As Cells
Dim x As Integer
x = 0
x = x + 1
c = 0
c = 0 + 1
If c.Visible = True Then
If c.Value <> "km" Then
c = Feuil12(x, 3)
' ligne = 0
' ligne = ligne + 1
If Feuil12.Cells(ligne, 3) <> "km" Then
ElseIf Feuil12.Cells(ligne, 3).Visible = True Then
ligne = ligne + 1
End If
End If
End If
onlymusic
Messages postés11Date d'inscriptionlundi 12 novembre 2007StatutMembreDernière intervention11 décembre 2008 11 déc. 2008 à 11:43
Bonjour,
J'ai eu le même problème car le filtrage n'enlève les données que "visuellement" sur le classeur et empêche toute rechercher d'éléments pouvant être aussi bien sur le filtré que sur le nom filtré.
J'ai juste fait un copié des données sur un classeur temporaire et après avoir fait mes opérations, renvoyé les résultats sur le classeur d'origine.
N'hésites pas à donnés des précisions si cela ne réponds pas.