Insertion de cellules suivant résultat de test d'égalité

[binome18]

Bonjour à tous,

J'utilise actuellement Excel 2003, je sais que ce n'est pas le plus récent.
Je souhaiterais insérer des cellules sur une colonne lorsque la valeur d'une cellule est différente de celle d'à côté.
Je ne sais pas trop comment vous expliquer cela, mais voici en pièce jointe un exemple plus parlant.
Dans le premier onglet on trouve la base de données "brute" et dans le deuxième onglet, ce que je veux obtenir, les données avec la "mise en forme".
Dans mon exemple, pour ajouter des cellules lorsque qu'une valeur est différente de celle d'à côté, j'ai fais un clic droit, puis insérer des cellules vers le bas. Cela a été assez rapide parce que je n'ai qu'une dizaine de lignes.
Par contre dans un autre tableau (similaire en tous points par rapport à mon exemple) j'ai plus de 5000 lignes. Avec la technique que je viens de vous décrire ce serait beaucoup trop long et source d'erreur.

Savez-vous quelle macro je pourrais utiliser pour faire ces opérations de manière automatique ?
N'hésitez pas à me demander plus d'informations.

Merci d'avance pour votre aide

 

[don_pets]

Re : Insertion de cellules suivant résultat de test d'égalité

'llo,

première piste :

For i = 1 To Range("A65536").End(xlUp).Row
    If Cells(i, 1).Value <> Cells(i, 2).Value Then
Cells(i, 2).Value = ""
    End If
Next i

don

 

[binome18]

Re : Insertion de cellules suivant résultat de test d'égalité

Merci pour la réponse,

Je ne comprends pas très bien la macro :-/
Je l'ai quand-même essayée et je l'ai exécutée en mode pas à pas.
Elle ne fait pas ce que je veux.
D'après ce que je vois, elle supprime la valeur de certaines cellules. Moi je voudrais décaler mes cellules (soit dans la colonne A, soit dans la colonne B, suivant les valeurs des cellules).
On voit le résultat que je souhaite obtenir dans le deuxième onglet du tableau que j'ai joint dans mon premier message.

Merci d'avance pour votre aide.

 

[don_pets]

Re : Insertion de cellules suivant résultat de test d'égalité

Effectivement je suis parti du principe que c'est la colonne A qui fait foi, aussi dans mon code je dis que si la valeur de la cellule colonne B diffère de la A, alors on supprime cette valeur.
J'ai du mal à conceptualiser la logique qui veut que parfois la colonne A est celle qui prévaut, et parfois la B.

 

[don_pets]

Re : Insertion de cellules suivant résultat de test d'égalité

En fait si je réfléchis un peu plus j'en déduis que tant que la valeur d'une colonne quelle qu'elle soit ne change pas, il faut que celle d'en face soit la même ou "meure".

Isn't it ?

 

[binome18]

Re : Insertion de cellules suivant résultat de test d'égalité

En fait les valeurs des 2 colonnes sont justes. C'est ce qui explique de tantôt il faut prendre la colonne A comme référence et tantôt la colonne B.
Effectivement, tant que la valeur d'une colonne ne change pas, il faut qu'elle soit en face de la même.
Il faut "juste" mettre au même niveau les bâtiments ayant le même numéro.
Ce n'ai pas si facile que ça à expliquer :-/

 

[don_pets]

Re : Insertion de cellules suivant résultat de test d'égalité

En plus d'être relou à expliquer, c'est relou à pondre comme code !

t'es du genre pressé ?^^

 

[binome18]

Re : Insertion de cellules suivant résultat de test d'égalité

Non je ne suis pas tellement pressé.
Je peux avoir un ordre de grandeur au niveau du temps qu'il faut pour faire un tel code ?

Merci

 

[don_pets]

Re : Insertion de cellules suivant résultat de test d'égalité

Le coté difficile dans la réponse est que cela dépend en grande partie de mon temps que je peux y consacrer ^^

Et en ce moment mes pauses "fun forum excel-down" sont minces et rares

 

[don_pets]

Re : Insertion de cellules suivant résultat de test d'égalité

j'essaie de t'apporter une réponse demain, parce que la j'ai la tête comme une pastèque

 

[binome18]

Re : Insertion de cellules suivant résultat de test d'égalité

Merci pour les réponses

J'ai une solution qui fonctionne bien.
Voir pièce jointe.

 

[don_pets]

Re : Insertion de cellules suivant résultat de test d'égalité

Cool, je regarderai le code afin de regarder quel sentier a été utilisé.