Discussion :

[Yamiral]

Bonjour à tous,

Alors, j'ai un petit code avec lequel je fais une recherche pour ne garder les cellules qui ont la valeur "1" dans une plage nommée (c'est la colonne S de ma base)
je souhaiterais ne retenir que les lignes pour lesquelles la colonne S (plage nommée zonepick1) = "1" uniquement si la valeur de la même ligne en Colonne B = "2"

Voici le début de mon code,

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
19
20
21
22
23
Private Sub Rechercher_Click()
 
    Me.ListBox1.Clear
    Set C = Range("Zonepick1").Find("1", LookIn:=xlValues)
 
    If Not C Is Nothing Then
 
      premier = C.Address
      i = 0
 
    Do
 
        Me.ListBox1.AddItem
        Me.ListBox1.list(i, 0) = C.Offset(0, -17).Value
        Me.ListBox1.list(i, 1) = C.Offset(0, -15).Value
        Me.ListBox1.list(i, 2) = C.Offset(0, -13).Value
        Set C = Range("zonepick1").FindNext(C)
        i = i + 1
      Loop While Not C Is Nothing And C.Address <> premier
    End If
 
 
End Sub

J'ai essayer plein de chose sans succès, si vous avez des pistes je suis à l'écoute.

Merci d'avance et un bon week end.

[patricktoulon]

Bonjour
c'est simple tu teste si c'est le cas

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
19
20
21
22
23
24
25
26
Private Sub Rechercher_Click()
 
    Me.ListBox1.Clear
    Set C = Range("Zonepick1").Find("1", LookIn:=xlValues)
 
    If Not C Is Nothing Then
 
      premier = C.Address
      i = 0
 
    Do
 If C.Offset(0, -17).Value = 2 Then
        Me.ListBox1.AddItem
        Me.ListBox1.List(i, 0) = C.Offset(0, -17).Value
        Me.ListBox1.List(i, 1) = C.Offset(0, -15).Value
        Me.ListBox1.List(i, 2) = C.Offset(0, -13).Value
        i = i + 1 
End If 
  Set C = Range("zonepick1").FindNext(C)
 
 
     Loop While Not C Is Nothing And C.Address <> premier
    End If
 
 
End Sub