Copier & coller ligne avec condition

Bonjour,

Je souhaite copier mes lignes de ma première feuille vers ma deuxième feuille.

Pour ce faire les conditions à pendre en compte son les suivantes:

Nombre de lignes à copier "valeur à remplir dans la textbox1"

Valeur de criticité supérieur à ... à remplir dans la "textbox2"

Si Les valeurs de la colonne L de la feuille 1 sont supérieur à "textbox2" alors,

on copie les lignes dans ma deuxième feuille en fonction du nombre de ligne maximun choisit dans la textbox1

Sinon on fait rien

Si on choisit 5 lignes, on copie/colle les 5 lignes dont les valeurs de la colonne L de ma feuille 1 sont les plus élevées vers la feuille2

J'ai un code VBA qui permet de copier les lignes de ma feuille 1 vers ma feuille 2 mais je n'arrive pas à le modifier pour qu'il réalise mon besoin.

Qulequ'un à t-il une idée ?

Merci d'avance

Bonjour kevin, le forum,

Un essai....

Private Sub CommandButton1_Click()
  Dim tablo, tabloR()
  Dim i&, j&, k&
  Dim criticité As Integer, lig As Integer, dl As Integer

  If TextBox2.Value = "" Or TextBox3.Value = "" Then MsgBox "Veuillez remplir les champs ": Exit Sub

        tablo = Sheets("AMDEC").Range("B4").CurrentRegion
    criticité = TextBox3.Value * 1
          lig = TextBox2.Value * 1

    k = 0
    For i = 2 To UBound(tablo, 1)
        If tablo(i, 11) > criticité Then
            ReDim Preserve tabloR(1 To 20, 1 To k + 1)
            For j = 1 To 20
                tabloR(j, 1 + k) = tablo(i, j)
            Next j
            k = 1 + k
        End If
    Next i

     Sheets("BILAN AMDEC").Range("B6").CurrentRegion.Offset(1, 0).ClearContents
    On Error Resume Next

     Sheets("BILAN AMDEC").Range("B6").Resize(UBound(tabloR, 2), 20) = Application.Transpose(tabloR)

    dl = Sheets("BILAN AMDEC").Range("B" & Rows.Count).End(xlUp).Row

     If dl - 5 > lig Then
       Rows(lig + 6 & ":" & dl).ClearContents
     End If
Unload Me

End Sub

Cordialement,

Bonjour,

Personnellement je n'ai pas réussi à combiner les deux textbox surtout quand le nombre de lignes demandées est supérieur au nombre de critique qui

réunissent les conditions.

Donc mon autre méthode si celà peut servir :

1) on copie toutes les lignes

2) on trie par ordre décroissant

3) on limite le nombre de lignes trouvées au nombre de la textbox2.

4) on ajoute une macro supplémentaire pour réinitialiser le fichier pour la prochaine recherche afin de conserver la mise en forme automatique.

Ainsi on trouve les plus grandes valeurs critiques dans l'ordre et au nombre de lignes voulues