travail commencé

bono64 · 9 Octobre 2005

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é · 9 Octobre 2005

Salut,

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

Â+

bono64 · 9 Octobre 2005

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é · 9 Octobre 2005

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 · 9 Octobre 2005

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é · 9 Octobre 2005

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 · 9 Octobre 2005

ok merci , je vais essayer pour voir
bon dimanche

bono64 · 9 Octobre 2005

quel pied , enfin sa marche
merci herve
super

bono64 · 9 Octobre 2005

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é · 9 Octobre 2005

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 · 9 Octobre 2005

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

travail commencé

bono64

Guest

Pièces jointes

andré

XLDnaute Barbatruc

bono64

Guest

andré

XLDnaute Barbatruc

bono64

Guest

Hervé

XLDnaute Barbatruc

bono64

Guest

bono64

Guest

bono64

Guest

Hervé

XLDnaute Barbatruc

Pièces jointes

bono64

Guest

Discussions similaires