XL 2013 VBA si une cellule contient OK alors copier/coller les valeurs

JCGL

XLDnaute Barbatruc

• 29 Avril 2017

• #2

Bonjour à tous,

Bienvenue sur XLD

Peux-tu essayer avec ceci :

Code:

Option Explicit

Sub Test()
    Dim Lig&, DerL&
    DerL = Feuil2.Range("B" & Rows.Count).End(3).Row
    For Lig = 1 To 100
        If Feuil1.Cells(Lig, 2) = "OK" Then
            Feuil1.Rows(Lig).Copy Feuil2.Range("A" & DerL)
            DerL = DerL + 1
        End If
    Next
End Sub

A+ à tous

 

Dernière édition: 29 Avril 2017

Vote positif 0 Vote négatif

SimonAbrhm

XLDnaute Nouveau

• 29 Avril 2017

• #3

Bonjour,

Merci beaucoup pour votre réactivité.

La macro marche en partie c'est à dire qu'elle me copie/colle la dernière ligne contenant "OK" dans la colonne B, et je souhaiterai qu'elle me copie/colle l'ensemble des lignes contenant "OK".

Merci d'avance pour votre retour,

Cordialement

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 29 Avril 2017

• #4

Bonjour à tous,

J'ai modifié le code entre temps...
Merci de réessayer.

A+ à tous

 

Vote positif 0 Vote négatif

SimonAbrhm

XLDnaute Nouveau

• 29 Avril 2017

• #5

Ah super, ça fonctionne parfaitement.

Merci beaucoup.

Excellent week-end

 

Vote positif 0 Vote négatif

SimonAbrhm

XLDnaute Nouveau

• 29 Avril 2017

• #6

Dernier petit problème, je viens de me rendre compte quand exécutant la macro 2 fois d'affilés par exemple la macro colle les nouvelles informations au-dessus de la dernière valeur collée dans la feuil2, du coup il me manque une ligne.

Je sais pas si il est possible de corriger ce problème.

Merci d'avance.

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 29 Avril 2017

• #7

Bonjour à tous,

Peux-tu essayer :

VB:

Option Explicit

Sub Test()
    Dim Lig&, DerL&
    DerL = Feuil2.Range("B" & Rows.Count).End(3).Row
    Feuil2.Range("A1:B" & DerL).ClearContents
    For Lig = 2 To Feuil1.Range("A" & Rows.Count).End(3).Row
        If Feuil1.Cells(Lig, 2) = "OK" Then
            Feuil1.Rows(Lig).Copy Feuil2.Range("A" & DerL)
            DerL = DerL + 1
        End If
    Next
End Sub

A+ à tous

 

Vote positif 0 Vote négatif

SimonAbrhm

XLDnaute Nouveau

• 1 Mai 2017

• #8

JCGL,
Malheureusement ça ne marche pas, au lieu de mettre les lignes collées à la suite des anciennes lignes collées dans la feuille 2, la macro colle les lignes dans la feuille 2 en sautant le nombre de lignes qu'il y a coller.
Avez-vous peut-être une autre idée pour pallier à ce problème merci.
Je vous joins mon fichier.

 

Dernière édition: 1 Mai 2017

Vote positif 0 Vote négatif