VBA copier et insérer ligne

Résolu/Fermé

Bstn - 9 mars 2015 à 15:45
Maurice - 9 mars 2015 à 18:51

Bonjour, j'ai un petit soucis de programmation.

J'ai une ligne avec divers paramètre dont un chiffre en colonne H.
Je souhaiterai que si ce chiffre est égal a 6 je copie toute la ligne et je l'insère sur la ligne du dessous en décalant toutes les lignes d'un cran vers le bas.

J'espère avoir été clair et que quelqu'un pourra m'aider.
Cordialement

A voir également:

4 réponses

Réponse 1 / 4

Maurice
9 mars 2015 à 17:37

Bonjour
ou avec un truc comme ca

Sub InsertLigne()
Application.ScreenUpdating = False
Nlig = Range("A" & Rows.Count).End(xlUp).Row
   For L = Nlig To 2 Step -1
      If Cells(L, 8).Value = 6 Then
         Rows(L + 1).Insert Shift:=xlDown
         Rows(L).Copy
         Range("A" & L + 1).PasteSpecial xlPasteAll ' ou xlPasteValues
      End If
   Next
   With Application
      .CutCopyMode = False
      .ScreenUpdating = True
      .Goto [A1], True
   End With
End Sub

A+
Maurice

Bstn
9 mars 2015 à 18:20

Merci, j'ai utilisé ton idée de compter à partir de la dernière ligne et ça marche

Bstn
9 mars 2015 à 18:30

est-ce qu'il serait possible de mettre les lignes copiées en couleur afin qu'elles soient identifiables rapidement?

Discussions similaires

Google sheet, colorier ligne en fonction de cellule

Nombre de lignes d'un tableau en fonction du publipostage

Pourquoi je n'arrive plus à envoyer ni recevoir de SMS avec Free Mobile ?

Logiciel gratuit pour création plans de salle

logiciel pour traduire vidéo en français

Échec d'appel facebook Messenger

Discussions similaires

Newsletters