Discussion :

[justin74]

Bonjour,

Comment peut-on en VBA faire une recherche d'une valeur dans un tableau situé sur une feuille 1 et ajouter toutes les lignes complètes de ce tableau comportant cette valeur sur une autre feuille 2 (nouveau tableau)?

Merci d'avance.

[jfontaine]

Bonjour,

Ci dessous un exemple

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim i As Long
Dim iDest As Long
 
iDest = 1
 
'Lit les données feuil1
For i = 1 To Range("A:A").End(xlDown).Row
    If Range("A" & i) = "Lundi" Then
        Rows(i).Copy
        Sheets("Feuil3").Range("A" & iDest).PasteSpecial
        iDest = iDest + 1
    End If
Next i