Discussion :

[Jeyjey1]

Bonjour,


j'utilise la fonction find pour trouver dans une plage la valeur "01"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set C = .Find(What:="01", LookIn:=xlValues)

La tout va bien...

La 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 !

Auriez vous une idée a me soumettre

Merci

[aalex_38]

Bonjour,
Comment as-tu défini c ?

[Jeyjey1]

Voici mon code, que je dois ensuite améliorer pour copier la valeurs trouvées dans une cellule définie....

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub Recherche_Erreur()
With ActiveSheet.UsedRange
Set C = .Find(What:="01", LookIn:=xlValues)
 
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
End With
End Sub

[aalex_38]

bonjour,


Je n'avais pas bien lu ton post, pardon.

pour tester si tu as 8 caractères tu peux faire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

if len(c.value) = 8 then ...

[Jeyjey1]

Effectivement ça fonctionne, mais dans mon cas il y a plusieurs chaine de caractere dans la même cellule...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
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