Formulaire de recherche

[Dzk78]

Bonjour,

Je souhaite réaliser un formulaire de recherche pour voir le solde d'un compte à partir du nom de famille compilé dans une ComboBox.
Voilà la macro (elle est affecter au bouton "CONNAITRE LE SOLDE DE LA CARTE PDV D'UN ELEVE":

Private Sub CommandButton1_Click()
If Not ComboBox1.Value = "" Then
Dim no_ligne As Integer

    no_ligne = ComboBox1.ListIndex + 1
    TextBox1.Value = Cells(no_ligne, 1).Value
    TextBox3.Value = Cells(no_ligne, 3).Value
    TextBox4.Value = Cells(no_ligne, 2).Value
   
Else
End If
End Sub

Mais ma macro ne fonctionne pas. Pourriez m'aider s'il vous plait?

En vous remerciant par avance !

Dzk78

 

[M12]

Bonjour,
A quoi sert la pièce jointe (Elle est vide) 😀

 

[Dzk78]

Je ne vois pas ce que vous voulez dire... MDR
(désolé...)

 

[Papou-net]

Bonjour Dzk78, M12, le Forum,

Petite erreur d'inattention? Il suffit simplement de référencer la feuille SOLDE dans la macro:

Private Sub CommandButton1_Click()
If Not ComboBox1.Value = "" Then
Dim no_ligne As Integer
no_ligne = ComboBox1.ListIndex + 1
TextBox1.Value = Sheets("SOLDE").Cells(no_ligne, 1).Value
TextBox3.Value = Sheets("SOLDE").Cells(no_ligne, 3).Value
TextBox4.Value = Sheets("SOLDE").Cells(no_ligne, 2).Value
Else
End If
End Sub

Cordialement.

 

[Papou-net]

RE

Une autre erreur dans le code: la définition de la valeur de no_ligne.

Private Sub CommandButton1_Click()
If Not ComboBox1.Value = "" Then
Dim no_ligne As Integer
no_ligne = ComboBox1.ListIndex + 2
TextBox1.Value = Sheets("SOLDE").Cells(no_ligne, 1).Value
TextBox3.Value = Sheets("SOLDE").Cells(no_ligne, 3).Value
TextBox4.Value = Sheets("SOLDE").Cells(no_ligne, 2).Value
Else
End If
End Sub

Cordialement.

 

[Dzk78]

Oh ! Super ! Merci beaucoup pour votre aide !
Effectivement, c'était de l’inattention...
Encore merci !

 

[M12]

Re Dzk78 et Bonjour Papou-net

J'ai téléchargé 3 fois la 1 ère PJ est chez moi, NIET - Rien dans les onglets et dans le développeur

Ou je suis "Con" ou il y a un mystère 😕

 

[Papou-net]

RE

Bonjour M12,

Non tu n'es pas c..,

Tu as simplement omis le second fichier (classeur1.xls) que Dzk78 a joint dans son message #3.

Bonne journée et sois rassuré.

Cordialement.