Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2013 bouton recherche

marleauc

XLDnaute Occasionnel
bonsoir
j'ai un petit soucis avec mon bouton recherche, j'ai essayé d'y aller basic mais cela ne fonctionne pas

merci
cm
 

Pièces jointes

  • copropriétaire syndicat1.xlsm
    257.9 KB · Affichages: 34
  • copropriétaire syndicat1.xlsm
    257.9 KB · Affichages: 52
Dernière édition:

Staple1600

XLDnaute Barbatruc
Re : bouton recherche

Bonsoir à tous

Pour mémoire
extrait de la charte du forum

Il faudrait donc que tu remplaces ton fichier par une version anonymisée.

Sinon pour ce qui est du problème VBA
Avec ces modifications, cela fonctionne déjà mieux
(NB: Il faut effacer la propriété Rowsource du ComboBox3 avant de tester le nouveau code)

Code:
Private Sub CommandButton6_Click()
Dim no_ligne As Long
no_ligne = ComboBox3.ListIndex + 2
TextBox1 = Cells(no_ligne, 1).Value
TextBox2 = Cells(no_ligne, 2).Value
TextBox3 = Cells(no_ligne, 3).Value
TextBox4 = Cells(no_ligne, 4).Value
ComboBox1 = Cells(no_ligne, 5).Value
TextBox5 = Cells(no_ligne, 6).Value
TextBox6 = Cells(no_ligne, 7).Value
TextBox7 = Cells(no_ligne, 8).Value
ComboBox2 = Cells(no_ligne, 9).Value
TextBox8 = Cells(no_ligne, 10).Value
End Sub
Code:
Private Sub UserForm_Initialize()
With Sheets("Base")
ComboBox3.List = Range(.Cells(2, 1), .Cells(Rows.Count, 1).End(xlUp)).Value
End With
End Sub

EDITION: Juste pour mon plaisir avant d'aller au dodo, ma version de CommandButton6_Click
Code:
Private Sub CommandButton6_Click()
Dim arCTRL, i%, no_ligne&
arCTRL = Array("TextBox1", "TextBox2", "TextBox3", "TextBox4", "ComboBox1", "TextBox5", "TextBox6", "TextBox7", "Combobox2", "TextBox8")
no_ligne = ComboBox3.ListIndex + 2
For i = 0 To 9
Controls(CStr(arCTRL(i))) = Cells(no_ligne, i + 1)
Next i
End Sub
 
Dernière édition:

Staple1600

XLDnaute Barbatruc
Re : bouton recherche

Bonjour à tous

marleauc
Tu n'as pas remplacé ton fichier par sa version anonymisé!
Pour remplacer un fichier, il suffit d'aller sur ton premier message et de cliquer sur

ensuite dans les Options supplémentaires, cliquer sur Gérer les pièces jointes et suivre les indications.
 

Pièces jointes

  • 01modif.gif
    10.9 KB · Affichages: 42

Discussions similaires

Réponses
2
Affichages
210
Réponses
1
Affichages
337
Compte Supprimé 979
C
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…