XL 2016 Userform command button recherche

[plaiiz]

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]

Bonjour,

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

Essayez ceci

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]

Bonjour,

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

Essayez ceci

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]

Re,

Non ! A la place.

Cordialement

 

[plaiiz]

Re,

Non ! A la place.

Cordialement

 

[plaiiz]

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

 

[Hasco]

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]

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 .