travail commencé

[bono64]

bonjour
j ai trouvé sur une ancienne page , un programme qui peut me sortir de ma galere , sauf qu il n a pas vraiment été ecris pour cela , si quelqu un peut voir si on peut donner une suite , je le remercie d avance .
bon dimanche à tous
bono [file name=reconnaissance_20051009110607.zip size=14853]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/reconnaissance_20051009110607.zip[/file]

 

[andré]

Salut,

Tu désires une solution par formule ou par macro ?

Â+

 

[bono64]

bonjour André

personellement , je préfère les macros , mais je suis pour ce qui est le plus facile , les formules m interessent dans le sens que j apprend , donc libre choix
merci

 

[andré]

Resalut,

Moi, les macros c'est pas mon fort, mais en formule c'est possible.

Que ce soit une méthode ou l'autre, il y aura toujours des difficultés entre :
C.-P. Lemaire et Lemaire CP.
Mlle B. Renk et Mlle Renk B.
pour n'en citer que deux (lol).

Il y a-t-il moyen de corriger manuellement ces discordances dans le fichier de base ou faut-il necessairement en tenir compte ?

Â+

 

[bono64]

Il y a moyen de le faire , sur le meme site il n ecrive jamais les noms de la meme maniere , alors!
Mais si tu arrive à faire cela avec les formules c est super!
merci

 

[Hervé]

Bonjour Bono, andré, le forum


Bono, essaye comme ceci :

Sub Matching()
Dim ColA As Range
Dim ColB As Range
Dim Cell As Range
Dim c As Range
Dim ValD As String
Dim ValA As String

Set ColA = Sheets(1).Range('A1:A' & Range('A65536').End(xlUp).Row)
Set ColB = Sheets(1).Range('d1:d' & Range('d65536').End(xlUp).Row)

On Error Resume Next
For Each c In ColB
    c.Offset(0, 1) = 1
    c.Offset(0, 2) = 0
    valeur = c.Row
    ValD = c
    ValD = Trim(ValD)
    ValD = Mid(ValD, 1, InStr(ValD, ' ') - 1)
    ValD = UCase(ValD)
    For Each Cell In ColA
        ValA = Cell
        ValA = Trim(ValA)
        ValA = Mid(ValA, InStr(ValA, ' ') + 1, Len(ValA))
        ValA = UCase(ValA)
        If CStr(ValA) = CStr(ValD) Then
            c.Offset(0, 1) = Cell.Offset(0, 1)
            c.Offset(0, 2) = Cell.Offset(0, 2)
        End If
    Next Cell
Next c

End Sub

bon dimanche

salut

 

[bono64]

ok merci , je vais essayer pour voir
bon dimanche

 

[bono64]

quel pied , enfin sa marche
merci herve
super

 

[bono64]

re
en fait enchante , mais en meme temps je retombe sur les problemes que me disais Andre , les certains noms non reconnus alords q ils ont des valeurs a faire affiché ,je commence à croire que c est impossible à faire avec excel ou autre programes ?
bono

 

[Hervé]

re bono, andré

Bono, pour les Mlle, ou Lemaire, tu peux peut etre essayer le fichier ci-joint

salut
[file name=reconnaissance_20051009155319.zip size=14480]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/reconnaissance_20051009155319.zip[/file]

 

[bono64]

fianlement ou va y arriver , mais ce sera pas facile
merci andré
ps: je crois que c est quand meme pas faisable aucun probleme de reconnaissance de nom !
merci