Inserer une ligne sous un doublon

[xoloth]

Bonjour a tous,

Voila je suis debutant (tres debutant ) et je n'arrive pas a faire un truc prbablement tout simple :

Dans une colonne (D) j'ai des valeurs. Je veux comparer lavaleur d'une cellule avec celle de la cellule immediatement dessous et si la valeur est la meme je veux inserer une ligne sous la deuxieme cellule (de facon a avoir les cellule identique separer)

Ma colonne contient environ 4500 ligne...

J'arrive pas a faire la macro pour ca

Une ame charitable peut etre pourra m'aider???

 

[SergiO]

Re : Inserer une ligne sous un doublon

Bonsoir xoloth,

Voici un exemple qui réalise ce que tu veux par une macro.

Teste et dis nous si ça te va.

 

[xoloth]

Re : Inserer une ligne sous un doublon

Salut SergiO,

Merci pour ton aide. Ca marche du tonerre! Super en plus ca me donne un bon petit code a reviser.

J'ai cependant un petit probleme qui est entierementt de ma faute car j'ai mal analyser la chose. C'est que quand j'ai 3 cellules successives identiques, la macro regarde les 2 premieres, insere une ligne ce qui fait que la troisieme cellule se trouve accolee aux cellules suivantes.

par example si j'ai

1
1
2
2
2
3
3

ca donne

1
1

2
2

2
3
3

Je n'ai pas plus de 3 cellules identiques a la suite. Peut etre faut il rajouter une condition : ne pas inserer une ligne si la cellule du dessous est aussi identique?

 

[SergiO]

Re : Inserer une ligne sous un doublon

Re,

En effet, il faut rajouter une condition.

Remplace cette ligne :

If Cel = Cel.Offset(-1, 0) And Cel <> 0 Then

par cette ligne :

If Cel = Cel.Offset(-1, 0) And Cel.Offset(1, 0) <> Cel And Cel <> 0 Then

et refais un test.

@+

 

[xoloth]

Re : Inserer une ligne sous un doublon

Merci ca marche parfaitement.