Dim ta_cellule As String ta_cellule = "blabla didi dodo 80012755 blabla" MsgBox cherche(ta_cellule) ta_cellule = "blabla didi dodo 1180012755 blabla" MsgBox cherche(ta_cellule) Private Function cherche(c As String) As Boolean toto = Split(c, " ") For i = 0 To UBound(toto) If toto(i) Like "########" Then cherche = True Next End Function
Sub Recherche_Erreur()
With ActiveSheet.UsedRange
Set c = .Find(What:="01", LookIn:=xlValues)
If Len(c.Value) = 8 Then
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.Select
Cells(c.Row, 2).Value = j
rep = MsgBox("Valeur trouvée, Cellule : " & c.Address & vbCrLf & "Continuer la recherche ?", vbYesNo, "")
If rep = vbNo Then Exit Sub
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
Else
MsgBox "pas d'erreur"
End If
Else
MsgBox "Aucune donnée"
End If
End With
End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionLa ou je bloc c'est que j'aimerais qu'il me rapporte toutes les valeurs "01" mais uniquement celles faisant parti d'une chaine de 8 caractères ! (j ai plusieurs chaines dans une cellule)