Discussion :

[Cyril031]

Bonjour,

je viens de crée un user forme pour des recherche de donner avec un message pour dire que les texte et n'est pas dans la base, est la j'ai l'erreur N°1004.

Voila mon 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
22
23
24
25
26
27
28
29
 
Private Sub TextBox1_AfterUpdate()
 
    On erroe GoTo 1
 
    If WorksheetFunction.CountIf(Sheets("Base").Range("A:A"), Me.TextBox1.Value) = 0 Then
 
        MsgBox "Cet outil n'excite pas. Veuillez ressaisir un nouveau nom.", vbInformation + vbOKOnly, "Outil non trouvé"
 
   End If
 
    With Me
 
    .TextBox2 = Application.WorksheetFunction.VLookup(TextBox1, Sheets("Base").Range("Source"), 2, 0)
    .TextBox3 = Application.WorksheetFunction.VLookup(TextBox1, Sheets("Base").Range("Source"), 3, 0)
    .TextBox4 = Application.WorksheetFunction.VLookup(TextBox1, Sheets("Base").Range("Source"), 4, 0)
    .TextBox5 = Application.WorksheetFunction.VLookup(TextBox1, Sheets("Base").Range("Source"), 5, 0)
    .TextBox6 = Application.WorksheetFunction.VLookup(TextBox1, Sheets("Base").Range("Source"), 6, 0)
    .TextBox7 = Application.WorksheetFunction.VLookup(TextBox1, Sheets("Base").Range("Source"), 7, 0)
    .TextBox8 = Application.WorksheetFunction.VLookup(TextBox1, Sheets("Base").Range("Source"), 8, 0)
    .TextBox9 = Application.WorksheetFunction.VLookup(TextBox1, Sheets("Base").Range("Source"), 9, 0)
    .TextBox12 = Application.WorksheetFunction.VLookup(TextBox1, Sheets("Base").Range("Source"), 10, 0)
    .TextBox10 = Application.WorksheetFunction.VLookup(TextBox1, Sheets("Base").Range("Source"), 11, 0)
    .TextBox13 = Application.WorksheetFunction.VLookup(TextBox1, Sheets("Base").Range("Source"), 12, 0)
    .TextBox11 = Application.WorksheetFunction.VLookup(TextBox1, Sheets("Base").Range("Source"), 13, 0)
    .TextBox14 = Application.WorksheetFunction.VLookup(TextBox1, Sheets("Base").Range("Source"), 14, 0)
    End With
1
End Sub

[riaolle]

Bonjour et bienvenue sur le forum
Attention, tu n'écris pas du tout dans le bon forum. Regarde ici : https://www.developpez.net/forums/f6...ros-vba-excel/
Le code que tu nous présentes est-il un copier-coller de ce que tu as en vrai? Car il y a des fautes de frappes :

Code :

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

On Error GoTo 1

Ensuite, après le 1, il faut mettre deux points(: ).
Et ta ligne 1 ne sert à rien, puisque juste après il y a End Sub, à la limite écrit:

Code :

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

On Error Exit Sub

ou

Code :

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

On Error Resume Next

Si tu veux juste "éviter" ler erreurs. Mais, ce n'est pas une très bonne idée de procéder comme ça, car là, tu ne repéreras jamais où a lieu ton erreur.

Tu dis que tu as l'erreur 1004, peux-tu nous dire plus précisemment ce que te dis l'erreur et sur quelle ligne elle a lieu.
As-tu plusieurs UserForm?

• Si non, essaie en enlevant le bloc WIth
• Si oui, essaie en utilisant directement le nom du Userform plutôt que Me.

Code :

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

1
2
3
If WorksheetFunction.CountIf(Sheets("Base").Range("A:A"), Me.TextBox1.Value) = 0 Then
 MsgBox "Cet outil n'excite pas. Veuillez ressaisir un nouveau nom.", vbInformation + vbOKOnly, "Outil non trouvé"
 End If

Tu devrais mieux gérer ce cas là, car tu demande à l'utilisateur de saisir un nouveau nom, mais tu continues quand même le programme. Ecris peut-être un Exit Sub quand la condition est vérifiée.

[Cyril031]

Merci Beaucoup de ton aide et désole pour le mauvais emplacement.