code vba formulaire de recherche erreur 13

Y

yohan60

XLDnaute Nouveau
Bonjour,

j'ai crée un formulaire de recherche mais j'ai une erreur qui apparait, j'apprend de jour en jour mais je suis pas encore un expert en vba quelqu'un peux me dire d'ou vient l'erreur et m'aider à la corriger.

merci d'avance essai1.JPG
 

Pièces jointes

  • Essai1.xlsm
    32.7 KB · Affichages: 22
Trier par date Trier par votes
mutzik

mutzik

XLDnaute Barbatruc
Bonjour

toute entrée dans un userform est toujours du texte
Clng(textbox1) ne fonctionnera que si l'entrée dans textbox1 ressemble à un chiffre
sinon il faut séparer le texte des chiffres
par ex:
textebox1 = 'lkjui 12356'
t=split(textbox1," ") 'va séparer textebox1 en autant d'item qu'il y a d'espaces)
ici, t(0) = 'lkjui'
t(1)= '12356'
ensuite on peut utiliser chiffre=Clng(t(0))

edit bonsoir M12
 
Vote positif 0 Vote négatif
R

Rhysand

XLDnaute Junior
Bonsoir à tous


Une autre idée différente


VB: 
Private Sub TextBox1_Change()

If Me.TextBox1.Value = "" Then: Me.TextBox2.Value = "": Me.TextBox3.Value = "": Me.TextBox4.Value = "": Exit Sub

Dim StartSearch As String
Dim MyLastRow As Integer
Dim i As Integer

MyLastRow = Application.ThisWorkbook.Worksheets("Nonexpedier").Cells(Application.ThisWorkbook.Worksheets("Nonexpedier").Rows.Count, "A").End(xlUp).Row

StartSearch = VBA.LCase("*" & Me.TextBox1.Text & "*")

With Application.ThisWorkbook.Worksheets("Nonexpedier")
    For i = 2 To MyLastRow
        If VBA.LCase(VBA.CStr(Cells(i, 1))) Like StartSearch Then
            Me.TextBox2.Value = .Cells(i, 2).Value
            Me.TextBox3.Value = .Cells(i, 3).Value
            Me.TextBox4.Value = .Cells(i, 4).Value
        Exit For
        End If
    Next i
End With

End Sub
 
Vote positif 0 Vote négatif
Y

yohan60

XLDnaute Nouveau
mutzik à dit:
Bonjour

toute entrée dans un userform est toujours du texte
Clng(textbox1) ne fonctionnera que si l'entrée dans textbox1 ressemble à un chiffre
sinon il faut séparer le texte des chiffres
par ex:
textebox1 = 'lkjui 12356'
t=split(textbox1," ") 'va séparer textebox1 en autant d'item qu'il y a d'espaces)
ici, t(0) = 'lkjui'
t(1)= '12356'
ensuite on peut utiliser chiffre=Clng(t(0))

edit bonsoir M12
Cliquez pour agrandir...
Bonsoir à tous

je vous remercie d'avoir pris du temps pour m'expliquer.

à bientôt
 
Vote positif 0 Vote négatif
mapomme

mapomme

XLDnaute Barbatruc
Supporter XLD
Bonjour à tous,

Une autre vision.

J'ai considéré (c'est osé, je sais) que les codes route sont du format : 4 caractères suivis d'un espace suivi de 4 caractères.
  • si ce qu'on saisit dans textbox1 (majuscules ou minuscules) a le format qu'il faut, on procède à la recherche automatiquement
  • sinon la recherche est déclenchée par la touche Entrée ou un click sur le bouton ?
  • si on tape sur la touche Esc alors on referme la fenêtre
Le code est un peu commenté.

VB: 
Private Sub btnfermer_Click()    'bouton activé aussi par ESC (propriété Cancel à True)
   Unload Me
End Sub

Private Sub TextBox1_AfterUpdate()
   Recherche      ' après une actualisation, on recherche
End Sub

Private Sub TextBox1_Change()
'  après une modif de textBox1, on recherche
   TextBox2 = "": TextBox3 = "": TextBox4 = ""     'on efface les résultats affichés dans les TextBox 2,3,4
   If TextBox1 Like "???? ????" Then Recherche     'si le code route répond au modèle, on procède à une recherche
End Sub

Private Sub CommandButton1_Click()     'bouton activé par la touche Entrée (propriété Default à True)
   Recherche
End Sub

Sub Recherche()
   'avec le tableau "tableau3" structuré de la feuille "Nonexpedier"
   With Sheets("Nonexpedier").Range("tableau3")
      '  .Columns(1) est la première colonne des valeurs de tableau3
      If WorksheetFunction.CountIf(.Columns(1), TextBox1) = 0 Then
         'on n'a pas trouvé la valeur
         MsgBox "Ce code route n'existe pas", vbInformation + vbOKOnly
      Else
         'on a trouvé la valeur. On met les valeurs dans les textbox 2,3,4
         TextBox2 = Application.VLookup(Me.TextBox1, .Cells, 2, 0)
         TextBox3 = Application.VLookup(Me.TextBox1, .Cells, 3, 0)
         TextBox4 = Application.VLookup(Me.TextBox1, .Cells, 4, 0)
      End If
   End With
End Sub
 

Pièces jointes

  • yohan60- Essai1- v1.xlsm
    26.9 KB · Affichages: 7
Dernière édition:
Vote positif 0 Vote négatif
Y

yohan60

XLDnaute Nouveau
mapomme à dit:
Bonjour à tous,

Une autre vision.

J'ai considéré (c'est osé, je sais) que les codes route sont du format : 4 caractères suivis d'un espace suivi de 4 caractères.
  • si ce qu'on saisit dans textbox1 a le format qu'il faut, on procède à la recherche automatiquement
  • sinon la recherche est déclenchée par la touche Entrée ou un click sur le bouton ?
  • si on tape sur la touche Esc alors on referme la fenêtre
Le code est un peu commenté.

VB: 
Private Sub btnfermer_Click()    'bouton activé aussi par ESC (propriété Cancel à True)
   Unload Me
End Sub

Private Sub TextBox1_AfterUpdate()
   Recherche      ' après une actualisation, on recherche
End Sub

Private Sub TextBox1_Change()
'  après une modif de textBox1, on recherche
   TextBox2 = "": TextBox3 = "": TextBox4 = ""     'on efface les résultats affichés dans les TextBox 2,3,4
   If TextBox1 Like "???? ????" Then Recherche     'si le code route répond au modèle, on procède à une recherche
End Sub

Private Sub CommandButton1_Click()     'bouton activé par la touche Entrée (propriété Default à True)
   Recherche
End Sub

Sub Recherche()
   'avec le tableau "tableau3" structuré de la feuille "Nonexpedier"
   With Sheets("Nonexpedier").Range("tableau3")
      '  .Columns(1) est la première colonne des valeurs de tableau3
      If WorksheetFunction.CountIf(.Columns(1), TextBox1) = 0 Then
         'on n'a pas trouvé la valeur
         MsgBox "Ce code route n'existe pas", vbInformation + vbOKOnly
      Else
         'on a trouvé la valeur. On met les valeurs dans les textbox 2,3,4
         TextBox2 = Application.VLookup(Me.TextBox1, .Cells, 2, 0)
         TextBox3 = Application.VLookup(Me.TextBox1, .Cells, 3, 0)
         TextBox4 = Application.VLookup(Me.TextBox1, .Cells, 4, 0)
      End If
   End With
End Sub
Cliquez pour agrandir...
Bonsoir,

ton code est super je vais surement m'en servir, mais le format date donne ça:
 

Pièces jointes

  • 001.JPG
    001.JPG
    12.1 KB · Affichages: 5
Vote positif 0 Vote négatif
mapomme

mapomme

XLDnaute Barbatruc
Supporter XLD
yohan60 à dit:
Bonsoir,
mais le format date donne ça:
1605128642532.png
Cliquez pour agrandir...

Je n'avais même pas prêté attention au format de la date :confused:
Voici la v1a corrigée (et un peu simplifiée)

VB: 
Private Sub btnfermer_Click()    'bouton activé aussi par ESC (propriété Cancel à True)
   Unload Me
End Sub

Private Sub TextBox1_Change()
'  après une modif de textBox1, on recherche
   TextBox2 = "": TextBox3 = "": TextBox4 = ""     'on efface les résultats affichés dans les TextBox 2,3,4
   If TextBox1 Like "???? ????" Then Recherche     'si le code route répond au modèle, on procède à une recherche
End Sub

Private Sub CommandButton1_Click()     'bouton activé par la touche Entrée (propriété Default à True)
   Recherche
End Sub

Sub Recherche()
   'avec le tableau "tableau3" structuré de la feuille "Nonexpedier"
   With Sheets("Nonexpedier").Range("tableau3")
      '  .Columns(1) est la première colonne des valeurs de tableau3
      If WorksheetFunction.CountIf(.Columns(1), TextBox1) = 0 Then
         'on n'a pas trouvé la valeur
         MsgBox "Ce code route n'existe pas", vbInformation + vbOKOnly
      Else
         'on a trouvé la valeur. On met les valeurs dans les textbox 2,3,4
         TextBox2 = Format(Application.VLookup(Me.TextBox1, .Cells, 2, 0), "dd/mm/yyyy")
         TextBox3 = Application.VLookup(Me.TextBox1, .Cells, 3, 0)
         TextBox4 = Application.VLookup(Me.TextBox1, .Cells, 4, 0)
      End If
   End With
End Sub
 

Pièces jointes

  • yohan60- Essai1- v1a.xlsm
    26.1 KB · Affichages: 12
Vote positif 0 Vote négatif
Y

yohan60

XLDnaute Nouveau
mapomme à dit:
Je n'avais même pas prêté attention au format de la date :confused:
Voici la v1a corrigée (et un peu simplifiée)

VB: 
Private Sub btnfermer_Click()    'bouton activé aussi par ESC (propriété Cancel à True)
   Unload Me
End Sub

Private Sub TextBox1_Change()
'  après une modif de textBox1, on recherche
   TextBox2 = "": TextBox3 = "": TextBox4 = ""     'on efface les résultats affichés dans les TextBox 2,3,4
   If TextBox1 Like "???? ????" Then Recherche     'si le code route répond au modèle, on procède à une recherche
End Sub

Private Sub CommandButton1_Click()     'bouton activé par la touche Entrée (propriété Default à True)
   Recherche
End Sub

Sub Recherche()
   'avec le tableau "tableau3" structuré de la feuille "Nonexpedier"
   With Sheets("Nonexpedier").Range("tableau3")
      '  .Columns(1) est la première colonne des valeurs de tableau3
      If WorksheetFunction.CountIf(.Columns(1), TextBox1) = 0 Then
         'on n'a pas trouvé la valeur
         MsgBox "Ce code route n'existe pas", vbInformation + vbOKOnly
      Else
         'on a trouvé la valeur. On met les valeurs dans les textbox 2,3,4
         TextBox2 = Format(Application.VLookup(Me.TextBox1, .Cells, 2, 0), "dd/mm/yyyy")
         TextBox3 = Application.VLookup(Me.TextBox1, .Cells, 3, 0)
         TextBox4 = Application.VLookup(Me.TextBox1, .Cells, 4, 0)
      End If
   End With
End Sub
Cliquez pour agrandir...
encore merci c'est super tout ça beau boulot.
 
Vote positif 0 Vote négatif

Discussions similaires

W
  • Résolu(e)
XL 2016 Comment gérer mon erreur 13 ? [Solution en #21]
2
Réponses
23
Affichages
691
TooFatBoy
TooFatBoy
O
  • Question
XL 2019 Formulaire vba pour filtrer les données
Réponses
7
Affichages
448
olivier1984
O
D
  • Résolu(e)
XL 2021 VBA Formulaire
2
Réponses
27
Affichages
1 K
delsart59
D
R
  • Question
XL 2021 Erreur 6 dépassement de capacité
Réponses
5
Affichages
255
patricktoulon
patricktoulon
O
  • Question
XL 2019 boutons sur formulaire non fonctionnels
2 3
Réponses
35
Affichages
1 K
olivier1984
O
O
  • Question
XL 2019 Vba excel
Réponses
4
Affichages
267
olivier1984
O
Z
  • Question
XL 2021 excell erreur acces refuse
Réponses
3
Affichages
411
zazar
Z
O
  • Question
Microsoft 365 Ouverture d'un formulaire sur un écran spécifique
Réponses
5
Affichages
196
Osaka
O
frasylest
  • Résolu(e)
Microsoft 365 Formulaire de recherche avec résultat dans autre formulaire
Réponses
2
Affichages
484
frasylest
frasylest
libellule85
  • Question
Microsoft 365 Problème de date
Réponses
4
Affichages
272
libellule85
libellule85

Membres actuellement en ligne

4 membres et 84 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
315 096
Messages
2 116 183
Membres
112 677
dernier inscrit
Justine11