XL 2016 Userform command button recherche

plaiiz · 29 Avril 2021

Bonjour , je suis en train de crée un userform ,pour enregistrer des fiche technique , et pour pouvoir les recherche par la suite , mon problème et que lorsque je suis sur la feuille ou il y a mes donnée le bouton de recherche marche mais lorsque je change de feuille il ne marche plus , il doit s'agir d'un probleme zone ou rechercher . Cependant vue que je n'y comprend pas grand chose et que je débute avec des tuto youtube je ne sais pas comment faire.

Private Sub CommandButton3_Click()
If Not ComboBox1.Value = "" Then
Dim no_ligne As Integer
no_ligne = ComboBox1.ListIndex + 2
TextBox1.Value = Cells(no_ligne, 2).Value
TextBox2.Value = Cells(no_ligne, 3).Value
TextBox3.Value = Cells(no_ligne, 4).Value
TextBox4.Value = Cells(no_ligne, 5).Value
TextBox5.Value = Cells(no_ligne, 6).Value
TextBox6.Value = Cells(no_ligne, 7).Value
TextBox7.Value = Cells(no_ligne, 8).Value
TextBox8.Value = Cells(no_ligne, 9).Value
TextBox9.Value = Cells(no_ligne, 10).Value
TextBox10.Value = Cells(no_ligne, 11).Value
TextBox11.Value = Cells(no_ligne, 12).Value
TextBox12.Value = Cells(no_ligne, 13).Value
TextBox13.Value = Cells(no_ligne, 14).Value
TextBox14.Value = Cells(no_ligne, 15).Value
TextBox15.Value = Cells(no_ligne, 16).Value
TextBox16.Value = Cells(no_ligne, 17).Value
TextBox17.Value = Cells(no_ligne, 18).Value
TextBox18.Value = Cells(no_ligne, 19).Value
TextBox19.Value = Cells(no_ligne, 20).Value
TextBox20.Value = Cells(no_ligne, 21).Value
TextBox21.Value = Cells(no_ligne, 22).Value
TextBox22.Value = Cells(no_ligne, 23).Value
TextBox23.Value = Cells(no_ligne, 24).Value
TextBox24.Value = Cells(no_ligne, 25).Value
TextBox25.Value = Cells(no_ligne, 26).Value
TextBox26.Value = Cells(no_ligne, 27).Value
TextBox27.Value = Cells(no_ligne, 28).Value

Else
End If
End Sub

Hasco · 29 Avril 2021

Bonjour,

Il manque une référence à la feuille source des données.

Essayez ceci

VB:

Private Sub CommandButton3_Click()
    Dim i As Integer, no_Ligne As Integer
    If Not ComboBox1.Value = "" Then
        no_Ligne = ComboBox1.ListIndex + 2
        '
        ' adapter le nom de la feuille source des données
        With ThisWorkbook.Sheets("NomDeLaFeuilleSource")
            For i = 1 To 27
                Me.Controls("TextBox" & i).Value = .Cells(no_Ligne, i + 1).Value
            Next
        End With
    Else
    End If
End Sub

Joignez un fichier exemple à votre prochain message si ça ne va pas.

Cordialement

plaiiz · 29 Avril 2021

Roblochon à dit:
Bonjour,

Il manque une référence à la feuille source des données.

Essayez ceci

VB:

Private Sub CommandButton3_Click() Dim i As Integer, no_Ligne As Integer If Not ComboBox1.Value = "" Then no_Ligne = ComboBox1.ListIndex + 2 ' ' adapter le nom de la feuille source des données With ThisWorkbook.Sheets("NomDeLaFeuilleSource") For i = 1 To 27 Me.Controls("TextBox" & i).Value = .Cells(no_Ligne, i + 1).Value Next End With Else End If End Sub

Joignez un fichier exemple à votre prochain message si ça ne va pas.

Cordialement

D’accord merci je rajoute sa a la suite ?

Hasco · 29 Avril 2021

Re,

Non ! A la place.

Cordialement

plaiiz · 29 Avril 2021

Roblochon à dit:
Re,

Non ! A la place.

Cordialement

plaiiz · 29 Avril 2021

Je viens d'essayer et sa me marque objet introuvable , je te joints un exemple du fichier .

Hasco · 29 Avril 2021

Re,

Parce que vos textbox vont de TextBox1 à TextBox20 il faut donc changer la limite de la boucle For

For i = 1 To 20

Et essayer de comprendre les lignes de codes qu'on vous donne.

Cordialement

plaiiz · 29 Avril 2021

Désolé , j’avais répondu mais apparemment sa ne c’est pas envoyer ...
j’ai essayé de comprendre et je ne comprenais pas pourquoi sa ne marche pas , mais en faite j’avais fusionné des colonnes ce qui décale tout..
merci à toi
Cordialement .

XL 2016 Userform command button recherche

plaiiz

XLDnaute Nouveau

Hasco

XLDnaute Barbatruc

plaiiz

XLDnaute Nouveau

Hasco

XLDnaute Barbatruc

plaiiz

XLDnaute Nouveau

plaiiz

XLDnaute Nouveau

Pièces jointes

Hasco

XLDnaute Barbatruc

plaiiz

XLDnaute Nouveau

Discussions similaires