Insertion Ligne à chaque changement

[Orientationis]

Bonjour,

Vous trouverez ci-joint un fichier exemple qui détaille ce que je souhaite faire : Insérer une ligne à chaque changement de produit.



En vous remerciant

 

[Cousinhub]

Re : Insertion Ligne à chaque changement

Bonjour,

essaie ce code :

Sub insert_ligne()
For i = [B65000].End(xlUp).Row To 3 Step -1
    If Cells(i, 2).Value <> Cells(i - 1, 2).Value Then
        Rows(i).Insert
    End If
Next i
End Sub

 

[Orientationis]

Re : Insertion Ligne à chaque changement

Rien ne se passe

 

[Cousinhub]

Re : Insertion Ligne à chaque changement

Re-,

As-tu validé les macros, et lancer le code?

Regarde le fichier joint, et clique sur le bouton jaune....

 

[Orientationis]

Re : Insertion Ligne à chaque changement

J'ai éxécuté le code directement mais il ne se passe rien.

je t'explique : Le fichier que j'ai transmis est un fichier exemple. Le code que tu m'as envoyé doit normalement être exécutable sur mon autre fichier.

Je l'ai copié puis éxecuter mais Nothing.

Que veux tu dire par valider??


En tout cas merci pour ton aide

 

[Cousinhub]

Re : Insertion Ligne à chaque changement

Re-,

est-ce que ça fonctionne avec mon fichier?

 

[Orientationis]

Re : Insertion Ligne à chaque changement

Oui cela marche sans problème.


Mais c'est sur mon fichier que cela cloche.



Une proposition??


Merci encore

 

[Cousinhub]

Re : Insertion Ligne à chaque changement

Re-,

PS, et pense à mettre la version Excel que tu utilises, dans ton profil, en cliquant sur tab de bord, puis "Modifier vos informations..."

C'est beaucoup plus facile, pour adapter la réponse...

Et PS2 :

Le code que tu m'as envoyé doit normalement être exécutable sur mon autre fichier.

Si la structure est identique, oui.....

 

[Cousinhub]

Re : Insertion Ligne à chaque changement

Re-,

Si cela fonctionne sur mon fichier, c'est que ton fichier n'est pas identique....

Dans quelle colonne commencent tes données (quelle est la colonne concernée?)

Dans ton exemple, c'est la colonne B

dans ton fichier réel?

 

[Orientationis]

Re : Insertion Ligne à chaque changement

Effectivement, je complèterais le profil.


Simplement, concernant la structure, c'est un tableau beaucoup plus rempli que mon fichier exemple.

La colonne concernée dans mon fichier exemple est la colonne B tandis que celle concernée dans mon veritable fichier est la C. J'ai changé l'intitulé de la colonne dans la macro.

Je vais essayer de comprendre ce qui cloche.


En tout cas merci beacoup pour ces indications.

 

[Cousinhub]

Re : Insertion Ligne à chaque changement

Re-,

il faut aussi modifier dans le code (remplacer le 2 per 3), qui sont les numéros de colonne

Sub insert_ligne()
For i = [[COLOR="Red"]C[/COLOR]65000].End(xlUp).Row To 3 Step -1
    If Cells(i, [COLOR="Red"]3[/COLOR]).Value <> Cells(i - 1, [COLOR="Red"]3[/COLOR]).Value Then
        Rows(i).Insert
    End If
Next i
End Sub

 

[Orientationis]

Re : Insertion Ligne à chaque changement

Parfait!!!!!

C'est exactement ce qu'il me fallait.


Merci Beaucoup

Have a nice day