Discussion :

[nimiquel]

Bonjour,

Je souhaiterais extraire uniquement les chiffres contenu dans plusieurs cellules pour ensuite pouvoir les comparer.
Je souhaite intégrer cela dans une macro VBA.

par exemple, j'ai ARF234 et df234 dans deux cellules différentes. Le but étant que si le nombre créé par les chiffres extraits dans les 2 cellules sont les mêmes (ici ce sera donc 234) alors la condition est vrai et donc action.

Quelqu'un peut-il m'aider pour effectuer cette extraction et surtout bien obtenir deux chiffres à comparer (sachant qu'il faut aussi que je considère peut-etre le cas où certaines cellules ne contiennent pas de chiffres)?

Bonne journée

[jfontaine]

Bonjour,

Une solution consiste a se créer sa propre fonction

Cette proposition retourne EGAL si identique sinon PAS EGAL

A mettre dans un module

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
Function CompareNombre(rg1 As Range, rg2 As Range) As String
 
Dim Lng1 As Long
Dim Lng2 As Long
 
Dim i As Integer
 
For i = 1 To Len(rg1.Value)
    If IsNumeric(Mid(rg1.Value, i, 1)) Then Lng1 = Lng1 & Mid(rg1.Value, i, 1)
Next i
For i = 1 To Len(rg2.Value)
    If IsNumeric(Mid(rg2.Value, i, 1)) Then Lng2 = Lng2 & Mid(rg2.Value, i, 1)
Next i
 
CompareNombre = IIf(Lng1 = Lng2, "EGAL", "PAS EGAL")
 
End Function

A utiliser en formule

Code :

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

=CompareNombre(A1;B1)

[patricktoulon]

bonjour nimiquel

pour jfontaine

ca marche mieux comme ca

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
 
 
Function CompareNombre(rg1, rg2) As String
 
Dim Lng1 As Long
Dim Lng2 As Long
 
Dim i As Integer
 
For i = 1 To Len(rg1.Value)
    If IsNumeric(Mid(rg1.Value, i, 1)) Then Lng1 = Lng1 & Mid(rg1.Value, i, 1)
Next i
For i = 1 To Len(rg2.Value)
    If IsNumeric(Mid(rg2.Value, i, 1)) Then Lng2 = Lng2 & Mid(rg2.Value, i, 1)
Next i
 
CompareNombre = IIf(Lng1 = Lng2, "EGAL", "PAS EGAL")
 
End Function
Sub voyons_si_c_est_egal()
lareponse = CompareNombre(Range("A1"), Range("A2"))
MsgBox lareponse
End Sub

au plaisir

[jfontaine]

Salut Patrick

Que veux tu dire par

ca marche mieux comme ca

[nimiquel]

Bon je suis mauvais en codage mais comment intégrer votre fonction dans mon if?

Voici le code alors le if de départ qui ne marchait pas

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
    For nw = 2 To Nb_Lignes
        For nz = 2 To Nb_LigneC
 
If (Sheets("Global").Range("G" & nw) Like Sheets("EPR").Range("F" & nz)) Then
 
Sheets("Global").Range("P" & nw) = Sheets("EPR").Range("F" & nz)
Sheets("Global").Range("Q" & nw) = Sheets("EPR").Range("G" & nz)
Sheets("Global").Range("R" & nw) = Sheets("EPR").Range("H" & nz)
Sheets("Global").Range("S" & nw) = Sheets("EPR").Range("AX" & nz)
 
End If
 
        Next nz
    Next nw

Merci encore pour l'aide.

[jfontaine]

Essais comme cela

Code :

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

If CompareNombre(Sheets("Global").Range("G" & nw),Sheets("EPR").Range("F" & nz)) = "EGAL" then

[patricktoulon]

bonjour jfontaine

j'ai essayer ton code comme tu l'a donné et visiblement les variables

n'etait pas pris en compte comme elle devait l'etre
d'ou le

Code :

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

lareponse = CompareNombre(Range("A1"), Range("A2"))

a la place de ta version

Code :

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

=CompareNombre(A1;B1)

en ayant le type de variable dans la fonction et non dans l'appel a la fonction

au plaisir

[nimiquel]

Il me sort une "incompatibilté de type" sur la ligne suivante:

Code :

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

For i = 1 To Len(rg1.Value)

Je crois comprendre que cela arrive lorsque je n'ai pas de chiffre dans ma chaîne de caractère ou que la cellule est vide.
Sinon je crois que ça marche sans problème.
Ca mérite une condition supplémentaire c'est ça? Vous avez une piste?

[jfontaine]

Ca mérite une condition supplémentaire c'est ça?

Dans le cas une cellule vide on aura

Code :

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

For i = 1 to 0

D'ou un problème car le pas d'avancement d'une boucle For est + 1

Ajoutes un test de contrôle que tes cellules sont bien pleines
Ce test peut être ajouté à la fonction

[issoram]

Tu peux utiliser aussi la fonction val et t'inspirer de la partie "Extraire toutes les valeurs numériques (entiers et décimales) contenues dans une chaîne" de ce tutoriel sur la manipulation des chaines de caractères: http://silkyroad.developpez.com/VBA/...racteres/#LI-P

Cordialement.