XL 2013 bouton recherche

[marleauc]

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

merci
cm

 

[Staple1600]

Re : bouton recherche

Bonsoir à tous

Pour mémoire
extrait de la charte du forum

5 – La possibilité de joindre des fichiers est donnée sur ce forum. Ne pas hésiter à utiliser cette fonction, tout en veillant que les données soient bidons et donc qu’aucune donnée confidentielle, nominative ne soit dans le fichier.

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)

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

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

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

 

[marleauc]

Re : bouton recherche

Bonsoir,
Merci bcp et je prends bonne note de la mise en garde désolé
merci bcp

 

[Staple1600]

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.

 

[marleauc]

Re : bouton recherche

remplacé merci le reste est fictif

 

[marleauc]

Re : bouton recherche

Bonjour,
Une petite question comment puis-je trié automatiquement a la fermeture en rapport au numéro de copropriétaire
merci