[XL-2010] Comparaison de cellule [Résolu]

[Gatchan34]

Bonjour

Je souhaiterais trouver une fonction de comparaison de caractère ou équivalent.

Je m'explique, je souhaiterais comparer des cellules dans lesquelles il peut y avoir noté des noms avec le numéro du doublon, par exemple:

BERTRAND
DURAND
DURAND (2)
PIERRE
DURAND (3)

je souhaiterais, en fait, compter le nombre de "DURAND", or quand je les compare, actuellement, je compare, DURAND avec DURAND (2) et DURAND (3) donc forcément la chaîne de caractère est différente dans les trois cas.

Est il possible d’arrêter la comparaison au premier espace par exemple?

Merci de bien vouloir m'aider.

Guillaume.

[Manuel40]

Regarde ici : http://silkyroad.developpez.com/VBA/...racteres/#LI-B

[Theze]

Bonsoir,

Regarde ceci, adapter la plage, ici en colonne A :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Sub Compter()
 
    Dim Plage As Range
    Dim Cel As Range
    Dim NB As Long
 
    With ActiveSheet
 
        Set Plage = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp))
 
    End With
 
    For Each Cel In Plage
 
        If InStr(Cel.Value, "DURAND") Then NB = NB + 1
 
    Next Cel
 
    MsgBox NB
 
End Sub

Hervé.

[Gatchan34]

Bonjour

Merci à vous !