remettre ordre dans des mail

[gosselien]

Bonjour,

une erreur lors d'un tri a enlevé le lien entre les personnes et leur mail;

comment est il possible en formule et vba remettre les adresses mail qui correspondent aux personnes ?

formule si peu de données et VBA si beaucoup (plusieurs milliers)

J'ai mis des couleurs pour les bonnes correpondances

Merci

[TABLE="width: 485"]
<tbody>[TR]
[TD]ENTREPRISE[/TD]
[TD]NOM[/TD]
[TD]PRENOM[/TD]
[TD]MAIL[/TD]
[/TR]
[TR]
[TD]Bouygues Telecom[/TD]
[TD]DUPONT[/TD]
[TD]Arthur[/TD]
[TD]pat@voo.com[/TD]
[/TR]
[TR]
[TD]ASBL[/TD]
[TD]Durant[/TD]
[TD]marc[/TD]
[TD]etienne.j@la.com[/TD]
[/TR]
[TR]
[TD]Free[/TD]
[TD]DUMAT[/TD]
[TD]Guillaume[/TD]
[TD]paul.marly@france-telecom.com[/TD]
[/TR]
[TR]
[TD]Voo[/TD]
[TD]Mac[/TD]
[TD]Patrick[/TD]
[TD]g.dumat@free.fr[/TD]
[/TR]
[TR]
[TD]test 1[/TD]
[TD]jean[/TD]
[TD]etienne[/TD]
[TD]durant.m@la.com[/TD]
[/TR]
[TR]
[TD]France Telecom[/TD]
[TD]MARLY[/TD]
[TD]Paul[/TD]
[TD]arthur@bouygues.fr[/TD]
[/TR]
</tbody>[/TABLE]

 

[sergioMabres]

Bonjour Gosselin
Vous pouvez faire une fonction dans VBA, et l'utiliser dans le livre pour trouver le courrier chaque

Hoja1

*	A	B	C	D	E
ENTREPRISE	NOM	PRENOM	MAIL	find
Bouygues Telecom	DUPONT	Arthur	pat@voo.com	arthur@bouygues.fr
ASBL	Durant	marc	etienne.j@la.com	durant.m@la.com
Free	DUMAT	Guillaume	paul.marly@france-telecom.com	g.dumat@free.fr
Voo	Mac	Patrick	g.dumat@free.fr	pat@voo.com
test 1	jean	etienne	durant.m@la.com	Jean@voo.com
France Telecom	MARLY	Paul	arthur@bouygues.fr	paul.marly@france-telecom.com
Voo	jean	paul	Jean@voo.com	Jean@voo.com

<tbody>
[TD="bgcolor: #cacaca, align: center"]1[/TD]

[TD="bgcolor: #cacaca, align: center"]2[/TD]

[TD="bgcolor: #cacaca, align: center"]3[/TD]

[TD="bgcolor: #cacaca, align: center"]4[/TD]

[TD="bgcolor: #cacaca, align: center"]5[/TD]

[TD="bgcolor: #cacaca, align: center"]6[/TD]

[TD="bgcolor: #cacaca, align: center"]7[/TD]

[TD="bgcolor: #cacaca, align: center"]8[/TD]

</tbody>

Spreadsheet Formulas

Cell Formula E2 =courrieltrouve(A2;B2;C2;$D$2:$D$8) E3 =courrieltrouve(A3;B3;C3;$D$2:$D$8) E4 =courrieltrouve(A4;B4;C4;$D$2:$D$8) E5 =courrieltrouve(A5;B5;C5;$D$2:$D$8) E6 =courrieltrouve(A6;B6;C6;$D$2:$D$8) E7 =courrieltrouve(A7;B7;C7;$D$2:$D$8) E8 =courrieltrouve(A8;B8;C8;$D$2:$D$8) <tbody> </tbody>

<tbody>
</tbody>

Excel tables to the web >> Excel Jeanie HTML 4


Voici la fonction je ai utilisée dans l'exemple

Function courrieltrouve(ENTREPRISE As String, NOM As String, PRENOM As String, MAIL As Range) As String
    On Error Resume Next
    Dim f1, f2 As Range
    ' ENTREPRISE et NOM
    Set f1 = MAIL.Find(ENTREPRISE)
    Set f2 = f1.Find(NOM)
    If (Not f2 Is Nothing) Then
        courrieltrouve = f2.Formula
    Else
    ' NOM et PRENOM
        Set f1 = MAIL.Find(NOM)
        Set f2 = f1.Find(PRENOM)
        If (Not f2 Is Nothing) Then
            courrieltrouve = f2.Formula
        Else
            ' NOM
            Set f1 = MAIL.Find(NOM)
            If (Not f1 Is Nothing) Then
                courrieltrouve = f1.Formula
            Else
            ' PRENOM
                Set f1 = MAIL.Find(PRENOM)
                If (Not f1 Is Nothing) Then
                    courrieltrouve = f1.Formula
                Else
                    ' PRENOM 3
                    Set f1 = MAIL.Find(Left(PRENOM, 3))
                    If (Not f1 Is Nothing) Then
                        courrieltrouve = f1.Formula
                    Else
                        courrieltrouve = "#NF"
                    End If
                End If
            End If
        End If
    End If
End Function

Cordialement
Sergio

Voici le livre que je l'utilise comme un exemple: https://onedrive.live.com/redir?resid=52B7AEC35713C28B!1713&authkey=!AEomgzagCDKUN-g&ithint=file,xls

 

[gosselien]

Waouwwww Sergio !!!!

Great job

Merci !!! Many thanks !

 

[sergioMabres]

pa de cua