Copier coller sous conditions (Macro) Résolu/Fermé

Question

Bonjour, 

Je débute totalement sous vba, je souhaiterai faire un copier coller d'une ligne complète si elle contient un terme "xxx" (il est possible qu'il y ait un espace avant ou après) de la "feuil2" dans une autre feuille "feuil3" du même classeur et tout cela pour toute les lignes de la feuille.

Je souhaite lancer la macro depuis une feuille "feuil1" indépendante du même classeur.

la colonne contenant les termes à vérifier est "AC" dans la "feuil2".

Pouvez-vous m'aider?

Merci beaucoup pour votre aide

eriiic · Answer

Bonjour,

Un exemple :
Sub dupliquer()
    Dim derlig As Long, dercol As Long
    Sheets("Feuil3").Cells.ClearContents
    With Sheets("Feuil2")
        derlig = .Cells(Rows.Count, "A").End(xlUp).Row
        dercol = .Cells(1, Columns.Count).End(xlToLeft).Column
        .Range("A1").AutoFilter
        .Range("A1").AutoFilter Field:=29, Criteria1:="=*" & [B3] & "*", Operator:=xlAnd
        .Range("A1").Resize(derlig, dercol).Rows.Copy Sheets("Feuil3").[A1]
        .Range("A1").AutoFilter
    End With
End Sub 
La macro suppose que tu as une ligne de titre et tu n'as pas de filtre automatique dessus. Sinon enlever les 2 lignes de code le mettant et l'enlevant.
https://www.cjoint.com/?DFtw4m9dLFo

eric

kcrom · Answer

Bonjour eric, merci pour ta réponse.

Je voulais te demander en quoi consiste cette ligne :

Criteria1:="=*" & [B3] & "*"

J'ai aussi un autre souci j'ai adapté ta macro et en fait il ne me copie que l'entête (la première ligne) et non les lignes suivantes...

Merci pour ton aide.

kcrom · Answer

En fait c'est bon j'ai compris.

Tout fonctionne correctement. Merci pour ton aide!

Copier coller sous conditions (Macro)

3 réponses

Discussions similaires