insérer des lignes en mode dynamiques

Accueil – Le CFO masqué Forums VBA insérer des lignes en mode dynamiques

2 sujets de 1 à 2 (sur un total de 2)
  • Auteur
    Articles
  • #83900
    MLagrange
    Participant

    Bonjour, une série de procédures résulte en un chiffrier de 764 lignes par 14 colonnes, dans lequel une procédure de validation a identifié quatre lignes qui nécessitent correction (131, 273, 402, 411) (colonne(“N:N”).value = “yesC”). La taille de ce fichier peut varier selon les paramètres de date que j’ai donné au tout début, Dans ce cas ci, le fichier représente le mois de mai 2020.

    La correction consiste à ajouter deux lignes au-dessus de la ligne erronée, afin de répartir le contenu de celle-ci sur les deux autres puis éventuellement l’éliminer. J’ai écrit une autre procédure pour copier le contenu et assurer la bonne répartition des valeurs de la ligne fautive sur les deux nouvelles lignes.

    Mon problème c’est justement la création de ces deux nouvelles lignes.

    J’ai essayé les instructions suivantes mais le résultat est désastreux: les 130 premières lignes sont correctes mais le restant des données (lignes 131 à 764) est décalé à la ligne 765 et al.

    Dim Dligne As Long
    Dim lgn As Long

    Dligne = Cells(Rows.Count, “A”).End(xlUp).Row
    For lgn = 2 To Dligne
    If Range(“N” & lgn).Value = “yesC” Then
    Range(“A” & lgn & “:O” & lgn).Select
    Selection.Insert Shift:=xlDown
    End If
    Next lgn
    End Sub

    Comment corriger ?.

    #83914
    MLagrange
    Participant

    J’ai retravaillé le codage et j’ai réglé le problème

2 sujets de 1 à 2 (sur un total de 2)
  • Vous devez être connecté pour répondre à ce sujet.