VBA_code pour rechercher valeur>afficher ligne

[ivgu1939]

Bonjour le forum,
je peine vraiment pour écrire le code qui affiche la ligne recherchée.
ma feuille excel comprend des colonnes (n° lot, nom, conso)
USF comprend 1 textbox de recherche du lot, 1 cmd de validation , des textbox d'affichage de la ligne correspondante (nom, conso).
Pouvez-vous m'aider.
un grand débutant
-----

[invited5346b66]

Bonjour,

Peut-être pas la solution la plus propre mais tu peux enregistrer une macro.

Alex

[invite948b37db]

Montre-nous le code déjà écrit.

[ivgu1939]

Bonjour,
Je souhaite extraire vers usf les informations de la ligne sélectionnée
par ex pour un nom, je souhaite afficher dans des textbox le n° tél, l'email

Private Sub CommandButton1_Click()

'si la textbox ne contient pas de valeur numérique, alors msgbox et vider la textbox
   If Not IsNumeric(Txt1_lot.Value) Then
      MsgBox "Saisir une valeur numérique", vbExclamation, "Erreur de saisie"
      Txt1_lot.Value = ""
      Txt1_lot.SetFocus
   
'si la textbox ne contient aucune valeur, alors ne pas mettre à jour (rien),
' sinon insérer cette valeur dans...
   ElseIf Txt1_lot.Value = "" Then
'possibilité is not numeric pour les montants
   Else
       'essai pour recopier valeur txt_lot dans txtniv
      'TextBox2.Value = Txt1_lot.Value
      'essai pour rechercher une valeur dans feuille
      localise = Cells.Find("Martin", , xlValues).Address
MsgBox localise
   End If

End Sub

merci pour votre aide

[A voir en vidéo sur Futura]

[invite948b37db]

Je souhaite extraire vers usf les informations de la ligne sélectionnée

Conseil : il vaut mieux faire précéder les objets du userform de son nom exemple :

Userform1.TextBox2.Value = Userform1.Txt1_lot.Value

au lieu de

TextBox2.Value = Txt1_lot.Value

sinon, qu'est-ce qui bug dans ton code (exécute la macro pas à pas) ?

[ivgu1939]

Bonjour,
J'ai quand même récupéré, à partir d'un n° de lot les infos correspondantes de ma feuille et le code ci dessous marche.

Private Sub CommandButton1_Click()
'RECHERCHE DU N° DE LIGNE CORRESPONDANT AU N° DE LOT SAISIE

Dim N As Integer
Dim L As Integer
Dim i As Integer

If TextBox1 = "" Then Exit Sub
N = TextBox1.Value
For i = 2 To Range("b65536").End(xlUp).Row
If Sheets("essai").Cells(i, 2).Value = N Then
L = i
'MsgBox "ligne=" & i

UserForm2.TextBox2 = Sheets("essai").Cells(i, 1).Value 'récup valeur appart
UserForm2.TextBox3 = Sheets("essai").Cells(i, 3).Value 'récup valeur niv
UserForm2.TextBox4 = Sheets("essai").Cells(i, 4).Value 'récup valeur nom
UserForm2.TextBox5 = Sheets("essai").Cells(i, 5).Value 'récup valeur observ
UserForm2.TextBox6 = Sheets("essai").Cells(i, 6).Value 'récup valeur conso
UserForm2.TextBox7 = Sheets("essai").Cells(i, 7).Value 'récup valeur index
'UserForm2.Label8.Caption = Format(Now, "dd/mmmm/yy")
Me.Label8.Caption = Sheets("essai").Range("g1").Value   'récup valeur date
End If
Next i

End Sub

Pouvez vous m'aider sur le code de mon bouton radio pour modifier et enregistrer une info de la feuille

Private Sub Opt1_Nom_Click()
''résoudre la façon pour envoyer la nlle valeur nom ou index dans excel
If Opt1_Nom.Value = True Then
' se positionne sur textbox "nom"
UserForm2.TextBox4.SetFocus
End If

' recopie valeur textbox1
      'TextBox2.Value = textbox1.Value
      'ça marche pour rechercher une valeur dans feuille
    localise = Cells.Find(TextBox4.Text, , xlValues).Value 'affiche la valeur
      'localise = Cells.Find("martin", , xlValues).Address 'affiche la address
    MsgBox localise 'pour afficher la valeur ou l'adresse
        'Label2.Caption = localise
End Sub

Question à Kred89. peut-on réaliser une macro en utilisant les objets d'1 USF
Merci d'avance pour vos conseils