Bonsoir le Forum,
Cela faisait longtemps que je ne vous ai pas soliciter, mais je but sur un problème.
J'ai un usf avec lequel je veus effectuer une recherche dans un tableau en fonction d'une date et un texte pour alimenter les controles de mon usf. Ceci afin de pouvoir modifier la ligne concernée.
Malheureusement il ne me trouve jamais ma recherche.
Je vous met ci-dessous mon code:
Petite précision (je pense que cela pourrais venir de là, mais suis pas sûr), ma combobox2 est alimenté par 2 colonnes comme ceci:
Pourriez-vous me dire d'ou viens le problème?
Merci d'avance pour votre aide.
Cela faisait longtemps que je ne vous ai pas soliciter, mais je but sur un problème.
J'ai un usf avec lequel je veus effectuer une recherche dans un tableau en fonction d'une date et un texte pour alimenter les controles de mon usf. Ceci afin de pouvoir modifier la ligne concernée.
Malheureusement il ne me trouve jamais ma recherche.
Je vous met ci-dessous mon code:
Code:
Sub recherche()
Dim Plage As Range, Cellule As Range
Dim wsbd As Worksheet
Set wsbd = Sheets("Pointage")
Set Plage = wsbd.Range("A2:K" & wsbd.Range("A65536").End(xlUp).Row)
For Each Cellule In Plage
If ((Cellule.Value = CDate(UserForm1.DTPicker1.Value)) And (Cellule.Offset(0, 3).Value = UserForm1.ComboBox2.Value)) Then
With UserForm1
.ComboBox1.Value = Cellule.Offset(0, 2).Value
.ComboBox7.Value = Cellule.Offset(0, 4).Value
.ComboBox3.Value = Cellule.Offset(0, 5).Value
.ComboBox4.Value = Cellule.Offset(0, 6).Value
.ComboBox5.Value = Cellule.Offset(0, 7).Value
.ComboBox6.Value = Cellule.Offset(0, 8).Value
.ComboBox8.Value = Cellule.Offset(0, 9).Value
.TextBox1.Value = Cellule.Offset(0, 10).Value
End With
Else: MsgBox "Aucun éléments trouvés pour cette période!", vbInformation: Exit Sub
End If
Next Cellule
End Sub
Petite précision (je pense que cela pourrais venir de là, mais suis pas sûr), ma combobox2 est alimenté par 2 colonnes comme ceci:
Code:
Me.ComboBox2.Clear
For Each d In Range(Sheets("Item").[A2], Sheets("Item").[A65000].End(xlUp))
j = 0
Me.ComboBox2.AddItem
Me.ComboBox2.List(j, 0) = d & " " & d.Offset(0, 1)
Me.ComboBox2.List(j, 1) = d.Row
j = j + 1
Next d
Pourriez-vous me dire d'ou viens le problème?
Merci d'avance pour votre aide.