Insertion de lignes suivant condition

[Ben-Ten]

Bonjour tout le monde,

Je débute en VBA .....

J'ai un problème que, je suis sur, vous allez résoudre en 2 - 3 mouvements...

Cela concerne des dates....

Disons :

en A2 la valeur 01/01/03
en A3 la valeur 02/01/03
en A4 la valeur 04/01/03
en A5 la valeur 07/01/03

Je voudrais que la macro scanne toutes les lignes les une après les autres et repère les dates correspondantes, afin que s'il y a un écart entre 2 dates, il insère une ligne à l'endroit désiré....

Dans notre exemple, il faut insérer une ligne entre A3 et A4 pour y mettre la date 03/01/03 et entre A4 et A5 deux lignes pour y mettre 05/01/03 et 06/01/03 ......

Merci de vos réponses et vive XLD........

Sylvain

 

[Mytå]

Salut Ben-Ten

Un petit bout de code vite fait qui devrait t'aller comme un gant
Pour les cellules Ax a A2

Sub Insere_ligne()

For rang = Range("a65535").End(xlUp).Row To 3 Step -1
inserer = Cells(rang, 1).Value - Cells(rang - 1, 1).Value - 1
For ajout = 1 To inserer
Rows(rang & ":" & rang).Select
Selection.Insert Shift:=xlDown
Next ajout
Next rang
End Sub

Mytå

 

[Ben-Ten]

Salut Mytä,

Merci infiniment pour ta réponse qui change la vie
Je m'aperçois que ce qui me manque, c'est la syntaxe VBA à utiliser pour faire ce que j'ai en tête et l'emploi de variable.... j'avais à peu près le même schéma mais je n'arrive pas à le traduire.....

Encore merci .... mais je n'ai certainement pas fini, j'aurai encore pleins de choses à demander à XLD....

Ben-Ten