recherche selon combobox

[matrix]

Bonjour a tous,

J'ai commencé une macro qui fonctionne à moitié en ce moment;

Dim i As Long, j As Long
 
        Dim cumlig As Long
 
        cumlig = 5
        For i = 2 To Sheets("schd_detail").Range("A" & Cells.Rows.Count).End(xlUp).Row
 
            If Sheets("schd_detail").Range("c" & i).Value = ComboBox1 And Sheets("schd_detail").Range("h" & i) <= ComboBox2 Then
 
 
                Sheets("schd_detail").Range("J" & i) = 1
 
 
                cumlig = cumlig + 1
 
            End If
 
        Next i

Le combobox1 fait référence à la colonne C, le combobox 2 fait référence à la colonne H et le combobox 3 fait référence aussi à la colonne H

Maintenant, la macro doit chercher la valeur du combobox 1 dans la colonne C et si l'heure inscrite dans le combobox2 est égal ou superieur à la valeur de la colonne H de la même ligne ainsi que le combobox3 qui est inférieur ou égal à la colonne H de la même ligne, il doit mettre un 1 dans la colonne J.

Comment faire s.v.p

Merci pour votre aide.

 

[skoobi]

Re : recherche selon combobox

Bonjour Matrix,

d'abord, mettre les combo 2 et 3 au format heure:

Private Sub UserForm_Initialize()
With Sheets("DB")
For i = 2 To .Range("a65000").End(xlUp).Row
If .Cells(i, 1) <> .Cells(i - 1, 3) Then
ComboBox1.AddItem .Cells(i, 1).Value
End If
Next
End With


With Sheets("DB")
For i = 2 To .Range("c65000").End(xlUp).Row
If .Cells(i, 3) <> .Cells(i - 1, 3) Then
[COLOR=Blue][B]ComboBox2.AddItem Format(.Cells(i, 3).Value, "hh:mm")[/B][/COLOR]
End If
Next
End With


With Sheets("DB")
For i = 2 To .Range("c65000").End(xlUp).Row
If .Cells(i, 3) <> .Cells(i - 1, 3) Then
[B][COLOR=Blue]ComboBox3.AddItem Format(.Cells(i, 3).Value, "hh:mm")[/COLOR][/B]
End If
Next
End With

End Sub

Et pour ce que tu demandes:

Private Sub CommandButton1_Click()
 Dim Trouve As Range, FirstAddress As String

        With Sheets("schd_detail")
            Set Trouve = .Columns("C").Find(ComboBox1.Value, LookIn:=xlValues, lookat:=xlWhole)
            If Not Trouve Is Nothing Then
                FirstAddress = Trouve.Address
                Do
                    If .Range("h" & Trouve.Row).Text >= ComboBox2.Value _
                    And .Range("h" & Trouve.Row).Text <= ComboBox3.Value Then
                      Sheets("schd_detail").Range("J" & Trouve.Row) = 1
                    End If
                    Set Trouve = .Columns("C").FindNext(Trouve)
                Loop While Not Trouve Is Nothing And Trouve.Address <> FirstAddress
            End If
        End With

End Sub

 

[PMO2]

Re : recherche selon combobox

Bonjour,

Essayez la pièce jointe où votre code a été modifié.

Cordialement.

PMO
Patrick Morange

 

[matrix]

Re : recherche selon combobox

Merci à vous 2.

C'est exactement ce dont j'avais besoin.

Merci encore 🙂