XL 2016 Userform command button recherche

plaiiz

XLDnaute Nouveau
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

XLDnaute Barbatruc
Repose en paix
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

XLDnaute Nouveau
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 ? 🤔
 

plaiiz

XLDnaute Nouveau
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 .
 

Discussions similaires

Réponses
3
Affichages
288

Statistiques des forums

Discussions
311 740
Messages
2 082 047
Membres
101 880
dernier inscrit
Anton_2024