travail commencé

B

bono64

Guest
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]
 

Pièces jointes

  • reconnaissance_20051009110607.zip
    14.5 KB · Affichages: 22

andré

XLDnaute Barbatruc
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 ?

Â+
 

Hervé

XLDnaute Barbatruc
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
 
B

bono64

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

XLDnaute Barbatruc
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]
 

Pièces jointes

  • reconnaissance_20051009155319.zip
    14.1 KB · Affichages: 21

Discussions similaires

Statistiques des forums

Discussions
312 913
Messages
2 093 535
Membres
105 752
dernier inscrit
fred13340