Fonction recherche ne marche pas

6pfa.xlsm (94.20 Ko)

Bonjour

J'ai un userform sur lequel l'utilisateur choisi depuis une combobox le nom de la sté puis il clique sur recherche afin d'afficher les informations relatives à la sté qu'il a choisi, voici le code que j'ai utilisé

Private Sub CommandButton1_Click()
Dim i As Long
Dim isearch As Long
isearch = Worksheets("FRS").Range("A3").CurrentRegion.Rows.Count
For i = 3 To isearch
If Trim(Feuil7.Cells(i, 1)) = Trim(ComboBox2.Text) Then
TextBox2.Text = Feuil7.Cells(i, 1)
txtemail.Text = Feuil7.Cells(i, 2)
ComboBox1.Text = Feuil7.Cells(i, 3)
cbospe.Text = Feuil7.Cells(i, 8)
cboserv.Text = Feuil7.Cells(i, 9)
txttelfixe.Text = Feuil7.Cells(i, 6)
txttelmobile.Text = Feuil7.Cells(i, 7)
cbostatut.Text = Feuil7.Cells(i, 3)
Exit For
End If
Next i
End Sub

Au début ça marchait mais maintenant il ne me donne aucune erreur et aucun résultat, j'ai essayé de changer complètement le userform mais aucun résultat, ci joint le fichier

Merci d'avance

Bonjour,

De premier abord, vérifier tous les noms des combobox et textbox, etc

il y a un malaise

Bonjour,

De premier abord, vérifier tous les noms des combobox et textbox, etc

il y a un malaise

plus d'explicaiton stp

Re,

Private Sub CommandButton1_Click()
Dim i As Long
Dim isearch As Long
isearch = Worksheets("FRS").Range("A3").CurrentRegion.Rows.Count 'Ici la ligne sera toujours 1 car la ligne 2 qui est masquée est vide
For i = 3 To isearch
If Trim(Feuil7.Cells(i, 1)) = Trim(ComboBox2.Text) Then 'Le Combobox2 n'existe pas
TextBox2.Text = Feuil7.Cells(i, 1)
....

Re,

Voilà un début pour te mettre sur les rangs avec l'USERFORM 3

A toi de corriger les colonnes non remplies ainsi que les combobox non initialisés

5pfa.xlsm (78.42 Ko)

Re,

Voilà un début pour te mettre sur les rangs avec l'USERFORM 3

A toi de corriger les colonnes non remplies ainsi que les combobox non initialisés

pfa.xlsm

merci beaucoup, j'ai compris où j'ai fait l'erreur

Re,

Voilà un début pour te mettre sur les rangs avec l'USERFORM 3

A toi de corriger les colonnes non remplies ainsi que les combobox non initialisés

pfa.xlsm

en ce qui concerne pourquoi j'ai commencé depuis A3, parce que si je commence depuis A2 et je supprime la 2eme ligne, je ne peux plus ajouter une nouvelle donnée au tableau via userform 1 , si j'essaye d'ajouter une nouvelle entrée, elle va écraser la précédente, vous pouvez tester cela sur le fichier que vous avez uploadé

Re,

Dans ce cas, il faut modifier :

isearch = Worksheets("FRS").Range("A" & Rows.Count).End(xlUp).Row

dans Private Sub CommandButton1_Click()

et

isrch =  Worksheets("FRS").Range("A" & Rows.Count).End(xlUp).Row

dans Private Sub CommandButton2_Click()

le

Worksheets("FRS").Range("A1").CurrentRegion.Rows.Count

, s'arrête à la première ligne vide

Re,

Dans ce cas, il faut modifier :

isearch = Worksheets("FRS").Range("A" & Rows.Count).End(xlUp).Row

dans Private Sub CommandButton1_Click()

et

isrch =  Worksheets("FRS").Range("A" & Rows.Count).End(xlUp).Row

dans Private Sub CommandButton2_Click()

le

Worksheets("FRS").Range("A1").CurrentRegion.Rows.Count

, s'arrête à la première ligne vide

merci beaucoup, ca marche mieux maintenant, mais est ce qu'il y a une solution pour l'insertion des données au tableau "tabfrs" car quand j'insère les données dans userform1 Ils s'ajoutent directement depuis 3ème ligne en sautant la deuxiemme ligne même si elle est vide

voici le code "add to base"

Private Sub CommandButton1_Click()

Sheets("FRS").Activate
Range("A1").Select
Selection.End(xlDown).Select 'se positionner sur la derniere ligne non vide '
Selection.Offset(1, 0).Select  'on se decale d'une ligne vers le bas'
ActiveCell = TextBox1.Value
ActiveCell.Offset(0, 1).Value = txtemail
ActiveCell.Offset(0, 2).Value = cbostatut
ActiveCell.Offset(0, 3).Value = ComboBox1
ActiveCell.Offset(0, 4).Value = txtville
ActiveCell.Offset(0, 5).Value = txttelfixe
ActiveCell.Offset(0, 6).Value = txttelmobile
If Me.cbospe = "AUTRE" Then
ActiveCell.Offset(0, 7).Value = otherspe
Else
ActiveCell.Offset(0, 7).Value = cbospe
End If
ActiveCell.Offset(0, 8).Value = cboserv

MsgBox "Votre fournisseur a été bien ajouté dans la base"

MsgBox "voulez vous saisir les indicateurs de votre fournisseur", vbYesNo, "confirmation"
If vbYes Then
UserForm2.Show

End If

End Sub
Rechercher des sujets similaires à "fonction recherche marche pas"