Discussion :

[zeralium]

Bonjour,

Je souhaiterai réaliser une copy des lignes (de la cellule "A" jusqu'a "J")que si dans la colonne "M:M" il y a le texte "NO". Sachant que dans la liste de données il peut avoir plusieurs "NO" comme aucun. De plus je voudrai coller ces valeurs a la fin d'un autre onglet.
Pour l'instant j'ai fait le code suivant, mais cela ne fonctionne pas.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub toto()
Sheets("Extract IO").Select
Dim j As Integer
    j = 2
    While Not Cells(j, 13) = ""
          If Sheets("Extract IO").Cells(j, 13) = "NO" Then
             Rows(a & j, k & j).Copy
             Sheets("Base IO").Select
            Range("A1").Select
            Selection.Insert Shift:=xlDown
          Else
          j = j + 1
          End If
    Wend
End Sub

[bidou]

plutôt

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub toto()
 
Dim j As Integer
    j = 2
    While Len(Sheets("Extract IO").Cells(j, 13).Value) > 0
          If Sheets("Extract IO").Cells(j, 13) = "NO" Then
             Sheets("Extract IO").Range(Sheets("Extract IO").Cells(j, 1), Sheets("Extract IO").Cells(j, 10)).Copy
             Sheets("Base IO").Range("A1").Insert Shift:=xlDown
          End If
          j = j + 1
    Wend
End Sub

[zeralium]

Ok ca fonctionne, je te remercie pour ton aide.