Macro Copier/Coller avec Conditions

[sprezzatura]

Bonjour,

J'ai un problème avec une macro. En fait je souhaite copier les valeurs d'un certain nombre de lignes d'une feuille à une autre avec des conditions en gardant le même emplacement des lignes.

Exemple:

copier les valeurs de la ligne 1, 32 et 65 (Avec des conditions du type: si dans la chaine de caractère il y a un "B" alors la copier sinon NON) dans les lignes 1, 32 et 65 d'une autre feuille. J'ai trouvé la fonction pour conditionner le copier/coller (instr) mais je n'arrive pas à copier les lignes dans le bon emplacement dans la nouvelle feuille.

Merci pour votre réponse.

 

[Robert]

Re : Macro Copier/Coller avec Conditions

Bonjour Spezzatura, bonjour le forum,

Tu ne donnes pas beaucoup de détails donc j'ai fait avec les moyens du bord... Je verrai un code de ce style :

Sub Macro1()
Dim cel As Range 'déclare la variable cel (CELulle)
Dim dest As Range 'déclare la variable dest (DESTination)
If ta_condition Then 'si la condition est remplie
    Set dest = Sheets(Onglet_Cible).Cells(cel.Row, 1) 'définit la variable dest
    cel.EntireRow.Copy Destination:=dest 'copy la ligne de la cellue cel et la colle dans la cellule dest
End If 'fin de la condition
End Sub

 

[sprezzatura]

Re : Macro Copier/Coller avec Conditions

Merci beaucoup Robert,

En fait j'ai utilisé ta réponse et j'ai gardé ma instr() avec de if ...

Merci une autre fois,