VBA Deplacer ligne en fonction dune condition
Laurent.Brqn
-
ccm81 Messages postés 11033 Statut Membre -
ccm81 Messages postés 11033 Statut Membre -
Bonjour a toutes et a tous,
En partant d'un tableau de données regroupant le cours d'actions (ci-dessous) :
A1=nom , B1=date C1=ouverture, D1='+ haut, E1='+ bas, F1=cours actuel, G1=volume
Je souhaiterai déplacer la totalité d'une ligne en fonction d'une condition
(ex: pour tout nombre >100000 dans la colonne G1, alors copier la ligne Ax:Gx dans Feuil3)
Quelqu'un aurait-il la connaissance pour encoder ceci sous VBA?
Merci beaucoup de votre precieuse aide.
Bien cordialement,
Laurent B
En partant d'un tableau de données regroupant le cours d'actions (ci-dessous) :
A1=nom , B1=date C1=ouverture, D1='+ haut, E1='+ bas, F1=cours actuel, G1=volume
Je souhaiterai déplacer la totalité d'une ligne en fonction d'une condition
(ex: pour tout nombre >100000 dans la colonne G1, alors copier la ligne Ax:Gx dans Feuil3)
Quelqu'un aurait-il la connaissance pour encoder ceci sous VBA?
Merci beaucoup de votre precieuse aide.
Bien cordialement,
Laurent B
2 réponses
-
bonsoir
peut etre comme ça, à placer dans un modulePublic Sub copier() Const lideb = 2 Const lilideb = 2 Const cotest = "G" Const test = 100000 Const F1 = "Feuil1" Const F3 = "Feuil3" Dim li As Long, lifin As Long, cofin As Long lifin = Sheets(F1).Range("A65536").End(xlUp).Row For li = lideb To lifin If Range(cotest & li).Value > test Then cofin = Sheets(F1).Range("IV" & li).End(xlToRight).Column Sheets(F1).Range(Cells(li, 1), Cells(li, cofin)).Copy Sheets(F3).Range("A65536").End(xlUp).Offset(1, 0) End If Next li End Sub
bonne suite -
