Bonjour,
Je boucle sur une plage et lorsque je trouve la valeur A je copie la ligne et je l'insère en dessous.
Je me suis inspiré d'un code trouvé sur le net.
Je ne sais pas comment passer 2 ligne dans la boucle ci-dessous pour continuer la recherche :
Savez-vous comment ajouter 2 à "cel" pour passer une ligne SVP ?
Merci d'avance pour votre aide
Je boucle sur une plage et lorsque je trouve la valeur A je copie la ligne et je l'insère en dessous.
Je me suis inspiré d'un code trouvé sur le net.
Je ne sais pas comment passer 2 ligne dans la boucle ci-dessous pour continuer la recherche :
Code:
Sub CopieLigne()
Dim plage As Range
Dim cel As Range
Dim Recherche
Recherche = "A"
With Worksheets("Feuil1")
derlig = .Range("L" & Rows.Count).End(xlUp).Row
Set plage = .Range("L2:L" & derlig)
End With
For Each cel In plage
If cel = Recherche Then
prix = cel.Offset(0, 2).Value
cel.Offset(0, 2).Value = 150
prix = prix - 150
cel.EntireRow.Copy
cel.Offset(0, -11).Select
Selection.Insert Shift:=xlDown
Application.CutCopyMode = False
cel.Offset(0, 2).Value = prix
'cel = cel + 2 ???????
End If
Next cel
End Sub
Savez-vous comment ajouter 2 à "cel" pour passer une ligne SVP ?
Merci d'avance pour votre aide