Discussion :

[NEC14]

Bonjour,

Dans une feuille de calcul ("Engagements") il y 12 colonnes.
Col 1 (A) = un n° incrémenté
Col 2 (B) = une date de saisie
Col 3 (C) = un n° d'identification
Col 4 (D) = un n° d'engagement
Col 5 (E) = un n° de devis
Col 6 (F) = une autre date
Col 7 (G) = un n° de tiers
Col 8 (H) = nom du tiers
Col 9 (I) = un nom de site
Col 10 (J) = l'objet de demande
Col 11 (K) = un montant
Col 12 (L) = le demandeur

J'ai donc mis en place un UserForm avec 9 TextBox.
Le TextBox à partir duquel la recherche se fait s'appelle TextBoxEngt et correspond à la col D (en gras). Les autres TextBox portent le numéro de leur ligne (par exemple TextBox2 pour col 2).

Lorsque je clique sur le bouton "Valider" le message "Objet spécifié introuvable" apparaît sur la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
 Me.Controls("TextBox" & NoCol) = Cells(c.Row, NoCol)

Voici le code complet :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Private Sub CommandButton1_Click()
Dim plage As Range, derlig As Long, c As Range, NoCol As Byte
Dim FL1 As Worksheet
'Instanciation de la feuille de calculs
    Set FL1 = Worksheets("Engagements")
'Instanciation de la plage de données
    Set plage = FL1.Range("D1:D" & Split(FL1.UsedRange.Address, "$")(2))
 
'recherche du numéro saisi dans TextBoxEngt
    With plage
        Set c = .Find(Me.TextBoxEngt)
        If Not c Is Nothing Then
            For NoCol = 1 To 12
                Me.Controls("TextBox" & NoCol) = Cells(c.Row, NoCol)
            Next
        End If
    End With
End Sub

Merci pour vos éclairages

[casefayere]

Bonjour Nec, re le forum
Sans avoir éplucher, déjà cette ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set c = .Find(Me.TextBoxEngt)

ne pourrait pas etre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set c = .Find(TextBoxEngt.value)

après je pense qu'il faut voir au niveau de NoCol dans l'ordre de tes textbox

Mais je suis peut-etre à coté de la plaque

Bonne journée

[NEC14]

Je viens d'essayer ta proposition sans guère plus de succès.
Merci pour ta suggestion.
Je vais creuser un peu plus, je vais peut-être finir par trouver.

[NEC14]

Après avoir creusé un peu, il s'avère que dans mon code, le numéro de colonne ne soit pas trouvé.
Mais je ne sais pas comment rrésoudre ce problème.
Avez-vous une idée ?
Merci par avance

[NEC14]

J'ai complètement changé mon code et cela fonctionne.
J'ai mis une ComboBox (CmbNum) à la place du TextBoxEngt.

Voici le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Private Sub CmbNum_Change()
Dim Nume As Variant
Dim Num As Variant
Dim z As Byte
For z = 1 To 8: Controls("T" & (z)) = "": Next z
Num = 1
For Each Nume In Sheets("Engagements").Range("D2:D" & Range("D" & Rows.Count).End(xlUp).Row)
    If Nume = CmbNum.Value Then
    Controls("T" & Num).Value = Nume.Offset(0, -2)
    Controls("T" & Num + 1).Value = Nume.Offset(0, -1)
    Controls("T" & Num + 2).Value = Nume.Offset(0, 1)
    Controls("T" & Num + 3).Value = Nume.Offset(0, 4)
    Controls("T" & Num + 4).Value = Nume.Offset(0, 5)
    Controls("T" & Num + 5).Value = Nume.Offset(0, 6)
    Controls("T" & Num + 6).Value = Nume.Offset(0, 7)
    Controls("T" & Num + 7).Value = Nume.Offset(0, 8)
End If
Next
 
End Sub

Merci à tous