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

Résolu/Fermé

Valeur

lucieaup - 3 janv. 2013 à 16:16
Un alcoolique - 25 févr. 2017 à 23:59

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...

A voir également:

Vba insérer une ligne si cellule contient
Si cellule contient texte alors ✓ - Forum Excel
Excel si cellule contient texte alors 1 ✓ - Forum Excel
Aller à la ligne dans une cellule excel - Guide
Excel si cellule contient partie texte ✓ - Forum Excel
Insérer signature word - Guide

8 réponses

Réponse 1 / 8

eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 7 213
4 janv. 2013 à 11:41

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

Réponse 3 / 8

lucieaup
3 janv. 2013 à 16:48

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

eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 7 213
Modifié par eriiic le 3/01/2013 à 17:37

Totalement incompréhensible.
Par exemple ou voit-on qu'il faut ajouter 2 lignes sous la ligne 2 ???
Et est-ce sous la ligne 2 ou la ligne 5 ???

Ligne par ligne il faut qu'on sache combien ajouter de lignes, ou comment le calculer.
Pourquoi insérer 3 pour 10001 et 0 pour 100003 ???

Et on insère des lignes vides ? Aucune valeur à recopier autre que le n° ?

Et fais une feuille avec le avant, et une autre avec le après que ce soit bien clair.

eric

Réponse 6 / 8

lucieaup
4 janv. 2013 à 08:32

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
4 janv. 2013 à 08:35

J'ai essayé ca mais ca ne marche pas ...

Sub AjouteLigne()

Dim i As Integer, Déb As Integer
Dim F As Long
Dim lig As Long

Déb = 1
'selectionner ma feuille

Worksheets("sheet1").Select

'aller jusqu'à 100
For i = 100 To 2 Step -1

'condition sur la cellule qui doit être différente

If (Cells(i, 1).Value <> Cells(i - 1, 1).Value) And _
Cells(i, 1).Value <> 0 Then

'selectionner la cellule différente et y insérer une ligne

Range("A" & i).Select
Application.ScreenUpdating = False
For lig = Cells(Rows.Count, 2).End(xlUp).Row To 2 Step -1
If 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
Déb = i + 1
End If
Next i
End Sub

Discussions similaires

Ajouter nombre de lignes en fonction de la valeur d'une cellule

insérer une ligne ou plus en fonction de la valeur de cellule

Ajouter des lignes en fonction de la valeur d'une cellule.

Ajouter des lignes dans un tableau en fonction de la valeur d'une cellule

Excel : si ma cellule contient tel texte ou tel texte

Calculer le nombre de cellule contenant un texte

Discussions similaires

Newsletters