Bonjour à tous,
Je sèche un peu sur une macro et je fais donc appel à vous.
J'ai une liste de date en colonne A qui sont entrecoupées de nombre. Je voudrais que chaque ligne qui contient un nombre, remplace la valeur de la cellule par la date la plus ancienne trouvée dans les lignes suivantes jusqu'au prochain nombre.
Exemple :
Données de base
Colonne A
12
01/01/2013
15/01/2013
17
22/01/2013
10/01/2013
08/01/2013
19/01/2013
22
15/01/2013
01/01/2013
Résultat souhaité
Colonne A
01/01/2013
01/01/2013
15/01/2013
08/01/2013
22/01/2013
10/01/2013
08/01/2013
19/01/2013
01/01/2013
15/01/2013
01/01/2013
Jusque là, j'ai réussi à récupérer la 1ère date en dessous des nombres, mais ce n'est pas toujours la plus ancienne.
Ci-joint un fichier exemple, ce sera plus clair.
Merci pour votre aide.
Je sèche un peu sur une macro et je fais donc appel à vous.
J'ai une liste de date en colonne A qui sont entrecoupées de nombre. Je voudrais que chaque ligne qui contient un nombre, remplace la valeur de la cellule par la date la plus ancienne trouvée dans les lignes suivantes jusqu'au prochain nombre.
Exemple :
Données de base
Colonne A
12
01/01/2013
15/01/2013
17
22/01/2013
10/01/2013
08/01/2013
19/01/2013
22
15/01/2013
01/01/2013
Résultat souhaité
Colonne A
01/01/2013
01/01/2013
15/01/2013
08/01/2013
22/01/2013
10/01/2013
08/01/2013
19/01/2013
01/01/2013
15/01/2013
01/01/2013
Jusque là, j'ai réussi à récupérer la 1ère date en dessous des nombres, mais ce n'est pas toujours la plus ancienne.
Code:
' Rempalcer les constantes par rien sur les cellules texte
Columns("A:A").Select
Selection.SpecialCells(xlCellTypeConstants, 1).Select
Selection.ClearContents
' Remplissage auto des dates manquantes
Columns("A:A").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.FormulaR1C1 = "=R[1]C"
Ci-joint un fichier exemple, ce sera plus clair.
Merci pour votre aide.