recherche Valeurs + affichage résultat ds USF

[Provence Vintage]

Bonjour le Forum,

Qui peux m'aider,
je bloque sur les codes pour rechercher mes valeurs dans la base de données et les afficher dans mes TextBox

Merci d'avance!

Cijoint.fr - Service gratuit de dépôt de fichiers

 

[Provence Vintage]

Re : recherche Valeurs + affichage résultat ds USF

Pour celui ou celle qui me vient en aide, pouvez vous me mettre un bout d'explication,
que ce soit sur find ou un autre code
merci d'avance!

 

[Provence Vintage]

Re : recherche Valeurs + affichage résultat ds USF

au secours
y a personne sur le fil!!!

 

[Provence Vintage]

Re : recherche Valeurs + affichage résultat ds USF

Qu'est_ce qui ne marche pas la dedans????????
merci le Fil

Sub lancer()

Sheets("Base de Données vendeurs").Activate

'pour eviter de demarrer avec la case A1 vide
If Sheets("Base de Données vendeurs").Range("A1") = "" Then Exit Sub

'permet de débuger les valeurs totalement identiques
Sheets("Base de Données vendeurs").Range("A1").Value = "*" & Range("A1").Value & "*"


'rechercher
Cells.Find(What:=Range("A1"), After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate

If ActiveCell = Range("A1") Then MsgBox " pas d'autre résultat ", vbInformation, " Résultat de votre requète"

Select Case ActiveCell
Case Is <> Range("A1")


End Select


End Sub

 

[Provence Vintage]

Re : recherche Valeurs + affichage résultat ds USF

Le Fil,
Après quelques Modifs:

Private Sub TextBox5_afterupdate()
TextBox5.Value = Format(TextBox5.Value, "0# ## ## ## ##")

Private Sub CommandButton1_Click()
Range("a1").Value = TextBox5.Value
Call lancer
ActiveCell.EntireRow.Select

ConsulterPijes.TextBox5.Value = ActiveCell.Value

ConsulterPijes.TextBox18.Value = ActiveCell.Offset(0, 1).Value
ConsulterPijes.TextBox1.Value = ActiveCell.Offset(0, 5).Value
ConsulterPijes.TextBox2.Value = ActiveCell.Offset(0, 9).Value
ConsulterPijes.TextBox6.Value = ActiveCell.Offset(0, 21).Value
ConsulterPijes.TextBox9.Value = ActiveCell.Offset(0, 22).Value
ConsulterPijes.TextBox3.Value = ActiveCell.Offset(0, 28).Value
ConsulterPijes.TextBox4.Value = ActiveCell.Offset(0, 29).Value
ConsulterPijes.TextBox10.Value = ActiveCell.Offset(0, 30).Value
ConsulterPijes.TextBox7.Value = ActiveCell.Offset(0, 31).Value
ConsulterPijes.TextBox14.Value = ActiveCell.Offset(0, 32).Value
ConsulterPijes.TextBox8.Value = ActiveCell.Offset(0, 33).Value
ConsulterPijes.TextBox11.Value = ActiveCell.Offset(0, 36).Value
ConsulterPijes.TextBox17.Value = ActiveCell.Offset(0, 39).Value
ConsulterPijes.TextBox12.Value = ActiveCell.Offset(0, 44).Value
ConsulterPijes.TextBox13.Value = ActiveCell.Offset(0, 45).Value
ConsulterPijes.TextBox15.Value = ActiveCell.Offset(0, 58).Value
ConsulterPijes.TextBox16.Value = ActiveCell.Offset(0, 59).Value

End Sub

Sub lancer()

Sheets("Base de Données vendeurs").Activate

'pour eviter de demarrer avec la case A1 vide
If Sheets("Base de Données vendeurs").Range("A1") = "" Then Exit Sub

'permet de débuger les valeurs totalement identiques
Sheets("Base de Données vendeurs").Range("A1").Value = "*" & Range("A1").Value & "*"


'rechercher
Cells.Find(What:=Range("A1"), After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate

If ActiveCell = Range("A1") Then MsgBox " pas d'autre résultat ", vbInformation, " Résultat de votre requète"

Select Case ActiveCell
Case Is <> Range("A1")


End Select


End Sub

Il faut toutefois cliquer 2 fois???????
End Sub

 

[Provence Vintage]

Re : recherche Valeurs + affichage résultat ds USF

besoin de dépatouiller le code!
merci