Macro reprenant une valeur

[hasardeux]

Bonjour la communauté,

Je fais appel à vous car j'ai un petit souci dans un tableau excel.

Vous trouverez ci-joint un bout de ce tableau à titre d'exemple.

Je voudrais concevoir une macro VB qui me permettrait de contrôler la colonne C (compte), et à chaque fois qu'il trouve un compte commençant par 1, elle remplace la valeur Date par la date juste au dessus.

Exemple:

Date Journal Compte
06/10/2009 VE 70600000
06/10/2009 VE 44573000
05/11/2009 VE 10000002


Le résultat doit être:

Date Journal Compte
06/10/2009 VE 70600000
06/10/2009 VE 44573000
06/10/2009 VE 10000002

-----------------

NB: La longueur du tableau peut contenir plusieurs centaines de lignes.


Merci pour votre aide

 

[youky(BJ)]

Re : Macro reprenant une valeur

Bonjour hasardeux,
Voici une façon de faire en vba
A+

For Each c In Range("A2:A" & [A65000].End(3).Row)
If Left(Cells(c.Row, 3), 1) = 1 Then
Cells(c.Row, 1) = Cells(c.Row - 1, 1)
End If
Next

 

[Paritec]

Re : Macro reprenant une valeur

Bonjour Hasardeux le forum
voilà en retour ton fichier clique sur le bouton traiter et dis moi si c'est ce que tu veux
a+
papou

EDIT : bonjour Youky oui tu as raison avec left(cells etc c'est mieux que ce que j'avais fait j'ai modifié mon fichier joint merci