Formulaire de recherche

Dzk78 · 22 Septembre 2017

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":

VB:

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 · 22 Septembre 2017

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

Dzk78 · 22 Septembre 2017

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

Papou-net · 22 Septembre 2017

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 · 22 Septembre 2017

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 · 22 Septembre 2017

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

M12 · 22 Septembre 2017

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 · 22 Septembre 2017

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.

Formulaire de recherche

Dzk78

XLDnaute Nouveau

Pièces jointes

M12

XLDnaute Accro

Dzk78

XLDnaute Nouveau

Pièces jointes

Papou-net

XLDnaute Barbatruc

Papou-net

XLDnaute Barbatruc

Dzk78

XLDnaute Nouveau

M12

XLDnaute Accro

Pièces jointes

Papou-net

XLDnaute Barbatruc

Discussions similaires