titoupoulpe
XLDnaute Nouveau
bonjour
j'aurai besoin d'aide , je voudrai copier adresse le code postal et ville d'une liste de contact juste en sélectionnant le nom dans une autre page .
j'ai taper le code suivant mais je sais que pour une liste importante de contact c'est nul.
je rajoute mon fichier pour mieux m'expliquer
Sub actualiser()
If Sheets("CAISSE").Range("D8") = Sheets("CONTACT").Range("J5") Then
Sheets("CAISSE").Range("D10") = Sheets("CONTACT").Range("E5")
Sheets("CAISSE").Range("D12") = Sheets("CONTACT").Range("F5")
Sheets("CAISSE").Range("D14") = Sheets("CONTACT").Range("G5")
End If
If Sheets("CAISSE").Range("D8") = Sheets("CONTACT").Range("J6") Then
Sheets("CAISSE").Range("D10") = Sheets("CONTACT").Range("E6")
Sheets("CAISSE").Range("D12") = Sheets("CONTACT").Range("F6")
Sheets("CAISSE").Range("D14") = Sheets("CONTACT").Range("G6")
End If
If Sheets("CAISSE").Range("D8") = Sheets("CONTACT").Range("J7") Then
Sheets("CAISSE").Range("D10") = Sheets("CONTACT").Range("E7")
Sheets("CAISSE").Range("D12") = Sheets("CONTACT").Range("F7")
Sheets("CAISSE").Range("D14") = Sheets("CONTACT").Range("G7")
End If
End Sub
merci
j'aurai besoin d'aide , je voudrai copier adresse le code postal et ville d'une liste de contact juste en sélectionnant le nom dans une autre page .
j'ai taper le code suivant mais je sais que pour une liste importante de contact c'est nul.
je rajoute mon fichier pour mieux m'expliquer
Sub actualiser()
If Sheets("CAISSE").Range("D8") = Sheets("CONTACT").Range("J5") Then
Sheets("CAISSE").Range("D10") = Sheets("CONTACT").Range("E5")
Sheets("CAISSE").Range("D12") = Sheets("CONTACT").Range("F5")
Sheets("CAISSE").Range("D14") = Sheets("CONTACT").Range("G5")
End If
If Sheets("CAISSE").Range("D8") = Sheets("CONTACT").Range("J6") Then
Sheets("CAISSE").Range("D10") = Sheets("CONTACT").Range("E6")
Sheets("CAISSE").Range("D12") = Sheets("CONTACT").Range("F6")
Sheets("CAISSE").Range("D14") = Sheets("CONTACT").Range("G6")
End If
If Sheets("CAISSE").Range("D8") = Sheets("CONTACT").Range("J7") Then
Sheets("CAISSE").Range("D10") = Sheets("CONTACT").Range("E7")
Sheets("CAISSE").Range("D12") = Sheets("CONTACT").Range("F7")
Sheets("CAISSE").Range("D14") = Sheets("CONTACT").Range("G7")
End If
End Sub
merci