Formulaire de recherche sur plusieurs feuilles

Bonsoir , j'aimerai trouver une solution pour faire un formulaire de recherche sur plusieurs feuilles :

Private Sub CommandButton3_Click()

Dim no_ligne As Integer

no_ligne = ComboBox1.ListIndex + 2

If ComboBox1.Value = "" Then

MsgBox ("Veuillez remplir le champs de recherche, puis réessayer!")

Else

With Worksheets(?) ' qu'est ce que je dois mettre pour qu'il cherche sur 6 feuilles

TextBox1.Value = .Cells(no_ligne, 1).Value

TextBox2.Value = .Cells(no_ligne, 2).Value

TextBox3.Value = .Cells(no_ligne, 3).Value

TextBox4.Value = .Cells(no_ligne, 4).Value

ComboBox2.Value = .Cells(no_ligne, 5).Value

ComboBox3.Value = .Cells(no_ligne, 6).Value

ComboBox4.Value = .Cells(no_ligne, 7).Value

TextBox5.Value = .Cells(no_ligne, 8).Value

TextBox6.Value = .Cells(no_ligne, 9).Value

TextBox7.Value = .Cells(no_ligne, 10).Value

End With

End If

End Sub

Bonjour

En l'absence de fichier, ce code n'est qu'une supposition

Private Sub CommandButton3_Click()
Dim Cel As Range, I As Integer
Dim no_ligne As Long

  If ComboBox1.Value = "" Then
    MsgBox ("Veuillez remplir le champs de recherche, puis réessayer!")
  Else
    For I = 1 To Sheets.Count
      With Sheets(I)
        Set Cel = .Cells.Find(what:=Me.ComboBox1, LookIn:=xlValues, Lokkat:=xlWhole)
        If Not Cel Is Nothing Then
          no_ligne = Cel.Row
          TextBox1.Value = .Cells(no_ligne, 1).Value
          TextBox2.Value = .Cells(no_ligne, 2).Value
          TextBox3.Value = .Cells(no_ligne, 3).Value
          TextBox4.Value = .Cells(no_ligne, 4).Value
          ComboBox2.Value = .Cells(no_ligne, 5).Value
          ComboBox3.Value = .Cells(no_ligne, 6).Value
          ComboBox4.Value = .Cells(no_ligne, 7).Value
          TextBox5.Value = .Cells(no_ligne, 8).Value
          TextBox6.Value = .Cells(no_ligne, 9).Value
          TextBox7.Value = .Cells(no_ligne, 10).Value
          Exit Sub
        End If
      End With
    Next I
  End If
End Sub

Merci Banzai64 , le programme bute sur cette ligne :

Set Cel = .Cells.Find(what:=Me.ComboBox1, LookIn:=xlValues, Lokkat:=xlWhole)

je joints le fichier complet

Bonjour

Une erreur de syntaxe de ma part

Modifie la ligne correspondante

Set Cel = .Cells.Find(what:=Me.ComboBox1, LookIn:=xlValues, Lookat:=xlWhole)

bon après midi Banzai64

ça marche merci

bonsoir à l'aide de la communauté EXCEL j'ai pu réaliser cet userform , mais je bute sur la modification , est ce qu'il y a quelqu'un qui peut m'aider

Bonjour

Surement que quelqu'un pourrait t'aider, mais fournis un fichier avec des données

voici mon userform avec des données , quand je veux modifier ou ajouter des données il y a bug merci pour l'attention BANZAI64

Bonjour

Pourquoi une ComboBox pour faire la recherche ?

A l'ouverture de l'userform cette ComboBox est vide, normal ou pas ?

Quelles sont les données que tu peux modifier ?

bonsoir , pour les modifications dés fois on complète des renseignements sur les élèves , leur participation aux frais etc ...

merci