Copier lignes en fonction des numéros trouvés/ Mise en forme Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
s
syd0112
Membre habitué
Membre habitué
Messages : 57
Inscrit le : 14 mars 2017
Version d'Excel : 2013 FR

Message par syd0112 » 28 mars 2017, 10:12

Bonjour,

J'ai trouvé la solution ci-dessous.
Dim I As Long   'ligne feuil1
    Dim J As Long   'ligne feuil2
  Dim n As Long   'nombre de ligne tableau feuil1
 
    J = 1   '1ère ligne où on va coller
    With Sheets("Filtre Famille")
        n = .Cells(Rows.Count, 1).End(xlUp).Row
        For I = 1 To n          'boucle sur lignes à copier si OK
            If .Range("J" & I).Value = "OK" Then
                .Rows(I).Copy
                Sheets("Choix").Range("A" & J).PasteSpecial
                J = J + 1   'prochaine ligne où on va coller
            End If
       Next I
    End With


et je remet le tableau à zéro de cette manière à chaque fois que je ferme mon userform
Sheets("Choix").Range("A2:A800").ClearContents
Sheets("Choix").Range("B2:B800").ClearContents
Sheets("Choix").Range("C2:C800").ClearContents
Sheets("Choix").Range("D2:D800").ClearContents
Sheets("Choix").Range("E2:E800").ClearContents
Sheets("Choix").Range("F2:F800").ClearContents
Sheets("Choix").Range("H2:H800").ClearContents
Sheets("Choix").Range("I2:I800").ClearContents
Sheets("Choix").Range("J2:J800").ClearContents
Voila
A+
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message