Copier/coller ligne en fonction d'une valeur cellule

Bonjour à tous,

Après avoir lu plusieurs tutos et exemple je n'arrive pas à réaliser ma macro.

Les conditions :

  • Sélectionner des lignes dans la feuille projet et de les coller dans la feuille extract
  • Seules les lignes contenant les données dont la valeur "P" est présente dans la colonne B de la feuille projet doivent être
copiées.
  • Coller les lignes de la cellule A à Y contenant la valeur P vers la feuille extract à partir de la cellule B3
  • Eviter les doublons.

Sur mon fichier seule la première ligne contenant la valeur "P" est copiée alors que la finalité est de copier toutes les lignes de la feuille projet contenant la valeur P dans toute la colonne B.

Je vous joins mon fichier.

Merci d'avance pour votre aide,

Cordialement

736file-test1.xlsm (29.54 Ko)

Bonjour

A vérifier

2'267tlucmci-filtre-v001.xlsm (35.89 Ko)

Merci pour la rapidité de ta réponse !

Est ce que tu peux détailler tes lignes de code stp?

J'ai une autre question :

Je souhaite créer une macro qui permet, lorsque l'on clique sur le bouton extract, d'insérer une ligne.

Cette macro sera utilisée pour insérer une ligne en dessous des lignes indice 1.1 ; 1.2 ....

Et elle devra garder les formules de la ligne supérieure et avoir une police taille 11.

J'ai réalisé une ébauche mais il me manque de connaissances pour insérer une ligne avec les conditions ci dessus.

Merci d'avance,

Cordialement

Bonsoir

Manque des précisions :

Quelle indice (en colonne B) va t-elle avoir ?

Quelles sont les formules à recopier ?

Bonsoir,

L'indice sera S quelque soit le nombre de ligne à insérer.

Formules de la cellule C à Y à recopier.

Merci beaucoup

Cordialement

Bonsoir

En dessous de 1.1 on va mettre S !!!!!!

tlucmci a écrit :

Formules de la cellule C à Y à recopier.

Aucune formule dans ces colonnes

Essayes cette macro et dis moi

Sub Rectangle3_Clic()
  With Rows(ActiveCell.Row)
    .Copy
    .Insert
  End With
  Application.CutCopyMode = False
  Range("B" & ActiveCell.Row + 1) = "S"
End Sub
Rechercher des sujets similaires à "copier coller ligne fonction valeur"