Userform - recherche valeur

Bonjour à toutes et tous,

Il y a quelques temps déjà j'avais réussi, grâce à l'aide des
archives du forum, à réaliser une petite application qui fonctionnait
parfaitement. Or aujourd'hui j'ai, semble-t-il, trouver une limite.

J'ai une liste de numéros en colonne C, ils sont classés de manière
aléatoire.
J'appelle un userform, je saisis un chiffre, je clique sur un bouton
et, grâce à la macro suivante il me retrouve le numéro dans la liste et
va placer le curseur dans la cellule immédiatement à droite.

Private Sub CommandButton2_Click()
On Error GoTo NotFound
Valeur = Me.TxtBox1.Value
ToFind = Application.Match(CInt(TxtBox1.Value), Range("C2:C20000"), 0)
Application.Goto Worksheets("Saisie_infos").Cells(ToFind,
3).Offset(1, 1)
Me.TxtBox1 = ""
TxtBox1.SetFocus
Me.Hide
Exit Sub

NotFound:
Me.TxtBox1 = ""
TxtBox1.SetFocus
MsgBox "La valeur " & Valeur & " n'est pas dans la liste",
vbInformation, "Résultat de recherche"
End Sub




J'avais jusqu'à présent des numéros assez faibles (de 1 à 2500) et
je n'avais jamais rencontré de problème. Mais cette fois-ci j'ai des
numéros à 7 chiffres et la Msgbox me dit qu'il ne sont pas dans la liste.
Il ne s'agit pas d'un problème de format. Cela fonctionne à 32500
mais pas à 32999 et au delà. Je n'ai pas tout testé.

Quelqu'un a-t-il déjà rencontré ce problème ?

Merci d'avance pour votre aide.

Julie

bonjour Julie,

as tu essayé avec CDbl au lieu de CInt ?

isabelle

Bonjour à toutes et tous,

Il y a quelques temps déjà j'avais réussi, grâce à l'aide des
archives du forum, à réaliser une petite application qui fonctionnait
parfaitement. Or aujourd'hui j'ai, semble-t-il, trouver une limite.

J'ai une liste de numéros en colonne C, ils sont classés de
manière aléatoire.
J'appelle un userform, je saisis un chiffre, je clique sur un
bouton et, grâce à la macro suivante il me retrouve le numéro dans la
liste et va placer le curseur dans la cellule immédiatement à droite.

Private Sub CommandButton2_Click()
On Error GoTo NotFound
Valeur = Me.TxtBox1.Value
ToFind = Application.Match(CInt(TxtBox1.Value),
Range("C2:C20000"), 0)
Application.Goto Worksheets("Saisie_infos").Cells(ToFind,
3).Offset(1, 1)
Me.TxtBox1 = ""
TxtBox1.SetFocus
Me.Hide
Exit Sub

NotFound:
Me.TxtBox1 = ""
TxtBox1.SetFocus
MsgBox "La valeur " & Valeur & " n'est pas dans la liste",
vbInformation, "Résultat de recherche"
End Sub




J'avais jusqu'à présent des numéros assez faibles (de 1 à 2500) et
je n'avais jamais rencontré de problème. Mais cette fois-ci j'ai des
numéros à 7 chiffres et la Msgbox me dit qu'il ne sont pas dans la liste.
Il ne s'agit pas d'un problème de format. Cela fonctionne à 32500
mais pas à 32999 et au delà. Je n'ai pas tout testé.

Quelqu'un a-t-il déjà rencontré ce problème ?

Merci d'avance pour votre aide.

Julie

Bonjour à toutes et tous,

Il y a quelques temps déjà j'avais réussi, grâce à l'ai de des archives
du forum, à réaliser une petite application qui fonctionnait
parfaitement. Or aujourd'hui j'ai, semble-t-il, trouver une limite.

J'ai une liste de numéros en colonne C, ils sont classés de m anière
aléatoire.
J'appelle un userform, je saisis un chiffre, je clique sur un bou ton
et, grâce à la macro suivante il me retrouve le numéro dans la list e et
va placer le curseur dans la cellule immédiatement à droite.

Private Sub CommandButton2_Click()
On Error GoTo NotFound
Valeur = Me.TxtBox1.Value
ToFind = Application.Match(CInt(TxtBox1.Value), Range("C2:C20000") , 0)
Application.Goto Worksheets("Saisie_infos").Cells(ToFind,
3).Offset(1, 1)
Me.TxtBox1 = ""
TxtBox1.SetFocus
Me.Hide
Exit Sub

NotFound:
Me.TxtBox1 = ""
TxtBox1.SetFocus
MsgBox "La valeur " & Valeur & " n'est pas dans la liste",
vbInformation, "Résultat de recherche"
End Sub

J'avais jusqu'à présent des numéros assez faibles (de 1 à 2500) et je
n'avais jamais rencontré de problème. Mais cette fois-ci j'ai des
numéros à 7 chiffres et la Msgbox me dit qu'il ne sont pas dans la li ste.
Il ne s'agit pas d'un problème de format. Cela fonctionne à 3 2500 mais
pas à 32999 et au delà. Je n'ai pas tout testé.

Quelqu'un a-t-il déjà rencontré ce problème ?

Merci d'avance pour votre aide.

Julie

CDbl ?

Bonjour,

Private Sub CommandButton2_Click()
Set c = [C:C].Find(what:=Me.TxtBox1, lookat:=xlWhole)
If c Is Nothing Then
MsgBox "inc"
Else
Range(c.Address).Offset(0, 1).Select
Me.Hide
End If
End Sub

JB

On 31 mai, 13:23, JulieH <jul...@discussions.microsoft.com> wrote:

Bonjour à toutes et tous,

Il y a quelques temps déjà j'avais réussi, grâce à l'aide des archives
du forum, à réaliser une petite application qui fonctionnait
parfaitement. Or aujourd'hui j'ai, semble-t-il, trouver une limite.

J'ai une liste de numéros en colonne C, ils sont classés de manière
aléatoire.
J'appelle un userform, je saisis un chiffre, je clique sur un bouton
et, grâce à la macro suivante il me retrouve le numéro dans la liste et
va placer le curseur dans la cellule immédiatement à droite.

Private Sub CommandButton2_Click()
On Error GoTo NotFound
Valeur = Me.TxtBox1.Value
ToFind = Application.Match(CInt(TxtBox1.Value), Range("C2:C20000"), 0)
Application.Goto Worksheets("Saisie_infos").Cells(ToFind,
3).Offset(1, 1)
Me.TxtBox1 = ""
TxtBox1.SetFocus
Me.Hide
Exit Sub

NotFound:
Me.TxtBox1 = ""
TxtBox1.SetFocus
MsgBox "La valeur " & Valeur & " n'est pas dans la liste",
vbInformation, "Résultat de recherche"
End Sub

J'avais jusqu'à présent des numéros assez faibles (de 1 à 2500) et je
n'avais jamais rencontré de problème. Mais cette fois-ci j'ai des
numéros à 7 chiffres et la Msgbox me dit qu'il ne sont pas dans la liste.
Il ne s'agit pas d'un problème de format. Cela fonctionne à 32500 mais
pas à 32999 et au delà. Je n'ai pas tout testé.

Quelqu'un a-t-il déjà rencontré ce problème ?

Merci d'avance pour votre aide.

Julie

Bonjour à toutes et tous,

Il y a quelques temps déjà j'avais réussi, grâce à l'aide des archives du
forum, à réaliser une petite application qui fonctionnait parfaitement. Or
aujourd'hui j'ai, semble-t-il, trouver une limite.

J'ai une liste de numéros en colonne C, ils sont classés de manière
aléatoire.
J'appelle un userform, je saisis un chiffre, je clique sur un bouton et,
grâce à la macro suivante il me retrouve le numéro dans la liste et va
placer le curseur dans la cellule immédiatement à droite.

Private Sub CommandButton2_Click()
On Error GoTo NotFound
Valeur = Me.TxtBox1.Value
ToFind = Application.Match(CInt(TxtBox1.Value), Range("C2:C20000"), 0)
Application.Goto Worksheets("Saisie_infos").Cells(ToFind, 3).Offset(1,
1)
Me.TxtBox1 = ""
TxtBox1.SetFocus
Me.Hide
Exit Sub

NotFound:
Me.TxtBox1 = ""
TxtBox1.SetFocus
MsgBox "La valeur " & Valeur & " n'est pas dans la liste",
vbInformation, "Résultat de recherche"
End Sub




J'avais jusqu'à présent des numéros assez faibles (de 1 à 2500) et je
n'avais jamais rencontré de problème. Mais cette fois-ci j'ai des numéros
à 7 chiffres et la Msgbox me dit qu'il ne sont pas dans la liste.
Il ne s'agit pas d'un problème de format. Cela fonctionne à 32500 mais pas
à 32999 et au delà. Je n'ai pas tout testé.

Quelqu'un a-t-il déjà rencontré ce problème ?

Merci d'avance pour votre aide.

Julie

Bonjour,

OK cela fonctionne également.

Merci

Julie

Bonjour,

Private Sub CommandButton2_Click()
Set c = [C:C].Find(what:=Me.TxtBox1, lookat:=xlWhole)
If c Is Nothing Then
MsgBox "inc"
Else
Range(c.Address).Offset(0, 1).Select
Me.Hide
End If
End Sub

JB

On 31 mai, 13:23, JulieH <jul...@discussions.microsoft.com> wrote:

Bonjour à toutes et tous,

Il y a quelques temps déjà j'avais réussi, grâce à l 'aide des archives
du forum, à réaliser une petite application qui fonctionnait
parfaitement. Or aujourd'hui j'ai, semble-t-il, trouver une limite.

J'ai une liste de numéros en colonne C, ils sont classés d e manière
aléatoire.
J'appelle un userform, je saisis un chiffre, je clique sur un bouton
et, grâce à la macro suivante il me retrouve le numéro dans la l iste et
va placer le curseur dans la cellule immédiatement à droite.

Private Sub CommandButton2_Click()
On Error GoTo NotFound
Valeur = Me.TxtBox1.Value
ToFind = Application.Match(CInt(TxtBox1.Value), Range("C2:C2000 0"), 0)
Application.Goto Worksheets("Saisie_infos").Cells(ToFind,
3).Offset(1, 1)
Me.TxtBox1 = ""
TxtBox1.SetFocus
Me.Hide
Exit Sub

NotFound:
Me.TxtBox1 = ""
TxtBox1.SetFocus
MsgBox "La valeur " & Valeur & " n'est pas dans la liste",
vbInformation, "Résultat de recherche"
End Sub

J'avais jusqu'à présent des numéros assez faibles (de 1 à 2500) et je
n'avais jamais rencontré de problème. Mais cette fois-ci j'ai des
numéros à 7 chiffres et la Msgbox me dit qu'il ne sont pas dans la liste.
Il ne s'agit pas d'un problème de format. Cela fonctionne à 32500 mais
pas à 32999 et au delà. Je n'ai pas tout testé.

Quelqu'un a-t-il déjà rencontré ce problème ?

Merci d'avance pour votre aide.

Julie- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -

Bonjour,

OK cela fonctionne également.

Merci

Julie

Bonjour,

Private Sub CommandButton2_Click()
Set c = [C:C].Find(what:=Me.TxtBox1, lookat:=xlWhole)
If c Is Nothing Then
MsgBox "inc"
Else
Range(c.Address).Offset(0, 1).Select
Me.Hide
End If
End Sub

JB

On 31 mai, 13:23, JulieH <jul...@discussions.microsoft.com> wrote:

Bonjour à toutes et tous,

Il y a quelques temps déjà j'avais réussi, grâce à l'aide des
archives
du forum, à réaliser une petite application qui fonctionnait
parfaitement. Or aujourd'hui j'ai, semble-t-il, trouver une limite.

J'ai une liste de numéros en colonne C, ils sont classés de
manière
aléatoire.
J'appelle un userform, je saisis un chiffre, je clique sur un
bouton
et, grâce à la macro suivante il me retrouve le numéro dans la liste et
va placer le curseur dans la cellule immédiatement à droite.

Private Sub CommandButton2_Click()
On Error GoTo NotFound
Valeur = Me.TxtBox1.Value
ToFind = Application.Match(CInt(TxtBox1.Value),
Range("C2:C20000"), 0)
Application.Goto Worksheets("Saisie_infos").Cells(ToFind,
3).Offset(1, 1)
Me.TxtBox1 = ""
TxtBox1.SetFocus
Me.Hide
Exit Sub

NotFound:
Me.TxtBox1 = ""
TxtBox1.SetFocus
MsgBox "La valeur " & Valeur & " n'est pas dans la liste",
vbInformation, "Résultat de recherche"
End Sub

J'avais jusqu'à présent des numéros assez faibles (de 1 à 2500)
et je
n'avais jamais rencontré de problème. Mais cette fois-ci j'ai des
numéros à 7 chiffres et la Msgbox me dit qu'il ne sont pas dans la
liste.
Il ne s'agit pas d'un problème de format. Cela fonctionne à
32500 mais
pas à 32999 et au delà. Je n'ai pas tout testé.

Quelqu'un a-t-il déjà rencontré ce problème ?

Merci d'avance pour votre aide.

Julie- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -