Copier des lignes vers une autre feuille si la somme du text

Bonjour,

Après une lecture plurielle de vos commentaires mon problème est resolu.

Je vous reviens donc pour autre soucis. Je cherche à copier des lignes vers une autre feuille si la somme du text"OK" >= 7. J'ai vu des cas mais jai du mal à l'adapter au mien.

Merci encore

Bonjour le forum,

Feuile 2 : A1 :

=SI(NB.SI(Feuil1!1:1;"ok")=7;Feuil1!1:1;"")

A tirer vers la droite.

Ensuite tirer vers le bas.

Bouton office : Options excel : Options avancées : décocher : "Afficher un zéro dans les cellules qui ont une valeur nulle".

mbbp

Bonjour

Sub CopyLigne()
Application.ScreenUpdating = False
Dim dlg As Integer, Lig As Integer, i As Integer

dlg = ActiveSheet.UsedRange.Rows.Count

    For i = 2 To dlg
    Lig = Sheets("Feuil2").Range("A65536").End(xlUp).Row + 1
       If Application.WorksheetFunction.CountIf(Rows(i), "OK") >= 7 Then
            Rows(i).Copy Sheets("Feuil2").Range("A" & Lig)
        End If
    Next i
End Sub

Amicalement

Nad

Grand Merci NAd ; Ca marche parfaitement. Happy for that

Est-il possible de copier la ligne de titre avant la copie conditionnée?

Re

...
Rows(1).Copy Sheets("Feuil2").Range("A1")
dlg = ActiveSheet.UsedRange.Rows.Count
...

Mais de ce fait, ne veux-tu pas supprimer ce qu'il y aurait en feuil2 avant ? Ce qui donnerait :

...
Sheets("Feuil2").Cells.ClearContents
Rows(1).Copy Sheets("Feuil2").Range("A1")
dlg = ActiveSheet.UsedRange.Rows.Count
...

Nad

Je te remercie pour ta réactivité, pour la solution et pour l'amélioration de mon besoin. C'est exactement ce que je veux. mon fichier est convivial et beau. Je t'en remercie.

Il est aussi prêt à être exploité sauf que j'ai inséré un bouton modifier: l'idée c'est d'arriver à partir du formulaire modifier les champs du formulaire. Et cela à partir d'un numero. (Ex: si click sur MODIFIER et renseigne le numéro, je suis capable de changer les infos de la ligne consernée).

MERCI ENCORE