Insérer un nombre de lignes en fonction de la valeur d'une case Résolu/Fermé

Question

Bonjour, J'ai un fichier d'environ 6 000 lignes que je dois mettre en forme pour y ajouter de Vlookup. C'est le résumé de toute ma campagne 2012 (récolte de tournesol). Voila mon problème, avec les numéros de série de chaque lot, je dois effectuer une tracabilité. Le soucis c'est que parfois, pour un lot final j'ai plusieurs lots intermédiares (qui ont été mélangés) je voudrais donc voir toutes les qualités intermediaires pour cela il me faut insérer le nombre de lignes adéquat. J'ai réussi à coder pour que chaque fois que j'ai un nouveau numéro de lot il m'insére une ligne mais je voudrais qu'il se base sur le contenu d'une cellule pour savoir le nombre qu'il doit insérer. Sub AjouteLigne() Dim i As Integer, Déb As Integer Dim F As Long Déb = 1 Worksheets("sheet1").Select For i = 100 To 2 Step -1 If (Cells(i, 1).Value <> Cells(i - 1, 1).Value) And _ Cells(i, 1).Value <> 0 Then Range("A" & i).Select Selection.EntireRow.Insert Déb = i + 1 End If Next i End Sub Voila mon code, il marche mais je suis bloquée pour la suite... Merci de votre aide, j'espère avoir été compréhensible... Configuration: Windows 7 / Internet Explorer 8.0

eriiic · Accepted Answer

Bonjour,

Alors:
Sub insererLig()
    Dim lig As Long
    Application.ScreenUpdating = False
    For lig = Cells(Rows.Count, 2).End(xlUp).Row To 2 Step -1
        If Cells(lig, "A") <> Cells(lig + 1, "A") And Cells(lig, "B") > 0 Then
            Rows(lig + 1).Resize(Cells(lig, "B")).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
            Cells(lig + 1, 1).Resize(Cells(lig, "B"), 1) = Cells(lig, "A")
        End If
    Next lig
    Application.ScreenUpdating = True
End Sub 
eric

eriiic · Answer

Bonjour, 

si tu pouvais déposer un classeur exemple avec les explications dessus tu seras sur que ce sera adapté. 
Déposer le fichier xls (réduit au nécessaire et anonymisé) sur cjoint.com et coller ici le lien fourni. 
  
eric 
Jamais tu ne répondras à un mp non sollicité... 
Bon, ça c'est fait.

lucieaup · Answer

Bonjour Eric,

Merci de ta réponse. Effectivement avec un fichier ca sera plus clair. J'ai tout supprimé et j'en ai refait un autre parcequ'il faut savoir qu'il y a au moins 75 colonnes et plus de 6 000 lignes...
Voici le lien

http://cjoint.com/?CAdqU6Co3m3

Encore une fois merci

lucieaup · Answer

Je suis désolée, j'ai du mal à expliquer apparement, ca fait tellement longtemps que je suis dessus que du coup je m'embrouille. 

En fait, je veux que le nombre de lignes soit ajouté sous le dernier Ordre de fabrication  similaire, mais comme je ne savais pas comment l'écrire, je l'ai recopié en face de chaque Ordre. En gros, la macro doit suivre la colonne A et dès que la valeur change aller voir sur la case d'a coté, combien de lignes elle doit en insérer.

J'ai refait un exemple avec avant aprés, j'espère que ca sera mieux....

http://cjoint.com/?CAdrQH2hfW1

Lucie

eriiic · Answer

Donc la colonne B 'A insérer' sera bien présente ? Elle était absente du 1er fichier...
Si oui ne mettre un nombre que là ou tu veux une insertion de ligne.
Regarde si ça va : https://www.cjoint.com/c/CAdtwybzYeX

eric

lucieaup · Answer

Bonjour,

Oui la colonne B sera présente. Merci beaucoup ca marche. 

Est ce que je peux combiner les deux codes (le votre et le mien) pour que quand le numéro d'ordre change il aille chercher la valeur dans la colonne B? Parceque du coup sur 6 000 lignes, s'il faut que j'efface à la main chaque valeur pour ne la laisser qu'une fois juste avant la place à insérer je ne suis pas arrivée...

En tout cas merci beaucoup pour tout

lucieaup · Answer

SUper ca marche!!!

Merci beaucoup c'est vraimùent génial d'aider les gens comme ca!!

Merci

Un alcoolique · Answer

Merci Eric

Insérer un nombre de lignes en fonction de la valeur d'une case

8 réponses

Discussions similaires