• Initiateur de la discussion Initiateur de la discussion bono64
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

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 ?

Â+
 
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
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
5
Affichages
4 K
P
M
Réponses
0
Affichages
7 K
M
A
Réponses
4
Affichages
1 K
P
Réponses
9
Affichages
2 K
philest
P
Réponses
8
Affichages
1 K
S
  • Question Question
Réponses
0
Affichages
2 K
Sébastien
S
L
Réponses
5
Affichages
3 K
S
  • Question Question
Réponses
2
Affichages
1 K
S
M
Réponses
0
Affichages
803
mc eric
M
R
Réponses
7
Affichages
3 K
R
T
Réponses
4
Affichages
1 K
toinish
T
N
Réponses
5
Affichages
2 K
Nicolas
N
S
  • Question Question
Réponses
5
Affichages
1 K
Retour