Comparaison de cellule

Version imprimable

06/09/2011, 18h50
Gatchan34

Comparaison de cellule

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.
06/09/2011, 20h01
Manuel40

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

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é.

06/09/2011, 22h53
Gatchan34

Bonjour

Merci à vous ! :)