Problème macro avec une recherche non numérique

[Angelista]

Bonjour le Forum,

Voilà mon soucis pour lequel j'ai besoin de vos lumières.
Sur le morceau de macro ci-dessous j'ai besoin de rechercher dans un tableau en colonne A un type d'information contenant des chiffres, des - - et des lettres, par exemple 122-400-FR

If (IsNumeric(CAffi)) Then === > cela me permet de déterminer que c'est du numérique mais ça ne marche pas avant les - et autre lettres que je peux avoir à rechercher

Merci par avance de votre aide.

Sub Recher()

Dim lastLine As Long
Dim repere As Boolean
Dim trouve As Boolean
repere = False
trouve = False
lastLine = derniereLigne()

If (CFormulaire.DAffi = "") Then
vcontrat = 0
Else
CAffi = CFormulaire.DAffi
End If

If (CAffi <> 0) Then
If (IsNumeric(CAffi)) Then
ligne = 1
Do While (repere = False)
ligne = ligne + 1
If Cells(ligne, 1).Value = "" Then
repere = True
End If
If Cells(ligne, 1).Value = Val(CAffi) Then
repere = True
trouve = True
End If
Loop
CFormulaire.DManu = Cells(ligne, 2).Value
CFormulaire.DCase = Cells(ligne, 3).Value
CFormulaire.DVersion = Cells(ligne, 4).Value
CFormulaire.DCountry = Cells(ligne, 5).Value
CFormulaire.DDateIRF = Cells(ligne, 6).Value
CFormulaire.DDatereceived = Cells(ligne, 7).Value
CFormulaire.D1st = Cells(ligne, 8).Value
CFormulaire.D2nd = Cells(ligne, 9).Value
CFormulaire.D3rd = Cells(ligne, 10).Value
CFormulaire.DComments = Cells(ligne, 11).Value

Else
MsgBox ("Cas non trouvé")
End If
Else
MsgBox ("Veuillez saisir un numéro de cas valide SVP")
End If

End Sub

 

[Angelista]

Re : Problème macro avec une recherche non numérique

Merciiiiiii Tototiti,

Ca fonctionne, super, bon je vais l'adapter pour le bouton modifier / supprimer.
Un grand merci à toi.

Bonne soirée.

Angelista

 

[Angelista]

Re : Problème macro avec une recherche non numérique

Bonsoir le fil, le forum,

En fait j'ai oublié un point très important, la valeur recherche peut être non unique, est il possible d'avoir une liste de choix après le click sur rechercher afin de choisir le bon, j'ai pensé à une listbox mais je ne sais pas gérer cela.
Merci d'avance pour votre aide.

Cordialement,

David.

 

[Si...]

Re : Problème macro avec une recherche non numérique

salut

et Si... tu présentais ton UsF autrement ?

 

[Angelista]

Re : Problème macro avec une recherche non numérique

Bonjour Si,

Effectivement c'est nettement mieux comme cela, je vais travailler dessus.
Merci à toi.

Bonne journée.

Angelista.