Automatisation de remplissage d'une feuille suivant critères

Question

J'ai besoin de compléter ma feuille COGIC avec les données de ma feuille Data seulement avec les personnes ayant une croix dans le colonnes PreNap. Je ne vois pas comment faire cela avec seulement une formule. Quelqu'un pourrait-il m'aider Merci...

Andre13 · Answer

Pour l'instant je n'ai pas trouvé avec des formules mais en attendant, j'ai ceci en effectuant du vbe créer un Module1 créer sur la feuille Data un chti bouton et y mettre la macro suivante une fois le module 1 créé Notes: testé fonctionnel 1/SI l'on remplace le X par û dans la colonne BT de l'onglet Data on peut modifier en mettant la police de caractère Wingdings dans la colonne BT Sub test() ' déclarations des variables Dim ligne_a_deplacer As Integer Dim cel As Range Dim vo ' vu ici ' https://forum.tomshardware.fr/threads/copier-coller-ligne-compl%C3%A8te-si-une-condition-est-respect%C3%A9e.895999/ ' modifier par Andre13 https://forum.excel-pratique.com/ ligne_a_deplacer = Worksheets("Cogic").Range("B11:B" & Worksheets("Cogic").Rows.Count).End(xlUp).Row + 1 With Sheets("Data") For Each cel In .Range("BT2:BT" & .Range("BT" & .Rows.Count).End(xlUp).Row) If cel.Value = "û" Then .Rows(cel.Row).Copy Destination:=Worksheets("Cogic").Cells(ligne_a_deplacer, 1) ligne_a_deplacer = ligne_a_deplacer + 1 End If If Not cel.Value = "û" Then End If Next End With End Sub...