Bonjour,

Je cherche à faire un contrôle de présence de numéro (colonne A) par rapport à la base de donnée (colonne C).
Dans la colonne B il s'agit du contrôle de présence avec le tag OK ou NOK.
Le tableau & valeurs ont la configuration suivante :
Classeur1.xlsx
Classeur1.xlsm

J'ai essayé la fonction rechercheV sans succés des fonctions pour extraire la partie numérique des cellules de la colonnes B sans succés avec le code ci-dessous.

Auriez-vous une idée pour me débloquer? merci d'avance!


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Function Num(chaine, n)
  Set obj = CreateObject("vbscript.regexp")
  obj.Global = True
  obj.Pattern = "\d+"
  Set a = obj.Execute(chaine)
  If a.Count > 0 Then Num = a(n - 1) Else Num = ""
End Function
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
Sub test()
 
   If Feuil11.Range("C4") <> "" Then
       maLigne = Feuil11.Range("B" & Rows.Count).End(xlUp).Row + 1
    Else
       maLigne = 1
    End If
 
    For k = 4 To maLigne
            var1 = Num(Feuil11.Cells(k, 4), 1)
            var2 = Num(Feuil11.Cells(k, 4), 2)
 
            Var = CStr(var1) & "-" & CStr(var2)
            Feuil11.Cells(k, 5) = Var
            Var = 0
    Next
 
 End Sub