Bonjour,

je voudrais parcourir une colonne et sélectionner une plage de cellules dans une ligne si une condition est remplie.

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
16
17
18
Sub xxx()
Dim i As Integer
 
    Dim maDate As String
    maDate = "01/03/2019"
 
        For i = 1 To 5
 
           If Worksheets("Feuil1").Cells(i, 2).Value = maDate Then
 
              Set test = ActiveSheet.Range("Cells(i, 1):Cells(i, 7)")
              test.Select
 
           End If
 
        Next i 
 
End Sub
Pourriez-vous me dire par quoi remplacer set test = ActiveSheet.Range("Cells(i, 1):Cells(i, 7)") pour que mon code fonctionne svp?
Merci d'avance.
Arsene