Discussion :

[xadocle]

Bonjour,

Je viens de créer un userform pour faire des saisies de données (uniquement du chiffre). La particularitée est que je dois faire une recherche depuis 4 listes déroulantes, je fais mes choix dans les listes puis je fais ma recherche, là j'aimerais que les données remontent dans les zones (la ça concerne des zones mois) et si on les modifies que cela soit pris en compte.
malheureusement je bloques sur la recherche multi critère et mon fichier est un peu lourd pour le montrer. Je peux le transmettre si besoin.

il y à un onglet ou se trouve le bouton pour appeler le userform et un autre ou doit se trouver toutes les données.

merci de votre aide

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
27
28
Private Sub CmdFindInter_Click()
  Dim i As Integer, Ctrl As Control, Trouve As Boolean
  '#### Une DM existante a-t-elle été sélectionnée
  Trouve = False
  If pilot.ListIndex <> -1 Then
    '#### Recherche de la ligne de la DM existante
    For i = LigneInseree To DerniereLigne
      If Trim(Sheets("BDD").Range("A" & i)) = Trim(pilot.Value) Then
        Trouve = True
        Exit For
      End If
    Next i
    If Not Trouve Then
    '#### Recablage des contrôles vers la bonne ligne si elle existe ou LigneInseree par défaut
    For Each Ctrl In Me.Controls
      Select Case TypeName(Ctrl)
        Case "ComboBox", "TextBox"
          If UCase(Ctrl.ControlSource) Like "BDD!*" Then
            Ctrl.Enabled = True
            Ctrl.ControlSource = Left(Ctrl.ControlSource, 5) & i
          End If
        Case Else
          'Debug.Print TypeName(Ctrl)
      End Select
    Next
  End If
  End If
End Sub

[xadocle]

ci-joint le fichier,

je penses avoir un soucis sur la recherche, car lorsque je fais ma sélection puis recherche, les données saisies dans les mois ne s'inscrivent pas au bon endroit dans l'ongle BDD.
merci de vos réponses.