VBA Deplacer ligne en fonction dune condition
Laurent.Brqn
-
ccm81 Messages postés 10909 Date d'inscription Statut Membre Dernière intervention -
ccm81 Messages postés 10909 Date d'inscription Statut Membre Dernière intervention -
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
A voir également:
- VBA Deplacer ligne en fonction dune condition
- Déplacer colonne excel - Guide
- Fonction si et - Guide
- Partager photos en ligne - Guide
- Mètre en ligne - Guide
- Excel cellule couleur si condition texte - Guide
2 réponses
bonsoir
peut etre comme ça, à placer dans un module
bonne suite
peut etre comme ça, à placer dans un module
Public 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
