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
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
Dernière édition: