Copier colonne via VBA avec 2 conditions

Bonsoir à tous ,

je reviens vers vous pour la 2eme fois de la journée alors merci à tous de votre attention.

je doit copier une colonne dans un autre onglet sous 2 conditions .Avec des formules je suis en capacité de faire mais au vu la taille de mon fichier sa rame dur après avoir eu de l'aide sur la première partie je reviens chercher du secours pour la suite merci de l'aide

9help.xlsm (16.07 Ko)

Bonjour,

c'est quoi la colonne la colonne F N 4 ?

ou doit être coller la colonne F ?

erreur de frappe sorry

si la colonne F n 'est pas vide.l 'ideal serai de coller la colonne F dans l'onglet mauvaise note

si la colonne F n 'est pas vide.l 'ideal serai de coller la colonne F dans l'onglet mauvaise note

à quel endroit la copie doit être coller ? n'importe ou dans l'onglet mauvaise note

dans l 'onglet mauvaise note .

merci de ton aide

re,

à tester,

Sub test()
Dim i As Long, y As Long

y = 1
With Sheets("Feuil1")
 For i = 1 To .Range("A65536").End(xlUp).Row
    note = .Range("A" & i).Value
    If note >= 1 And note <= 6 And .Range("F" & i).Value <> "" Then
        Sheets("Feuil1").Rows(i).Copy Sheets("MAUVAISE NOTE").Range("A" & y)
        y = y + 1
    End If
 Next i
End With
End Sub
Rechercher des sujets similaires à "copier colonne via vba conditions"