Re : Recherche
Salut à tous
Mon fichier est trop lourd et j'ai beaucoup de noms et no de tél. Mais voici quelque bride.
J'utilise cette formule pour faire apparaitre dans mes cellules le nom adresse no de tél. =SI($M$3=0;0;RECHERCHEV($M$3;clients;2;0))
Je corrige les erreurs au besoin et en suite j'exécute cette petite macro
Sub Transfert()
If ActiveSheet.Range("v1").Value = "Faux" Then
Dim retour As Integer
retour = MsgBox("Ce client est déjà répertorié", vbNo + vbInformation + vbDefaultButton2, "Le Site des Pins")
ElseIf ActiveSheet.Range("v1").Value = "" Then
retour = MsgBox("Ce client est déjà répertorié" & Chr(13) & "et les corrections seront sauvegardées en quittant ", vbNo + vbInformation + vbDefaultButton2, "Le Site des Pins")
Else
Sheets("saisie").Select
Range("e56:k56").Copy
Sheets("feuil1").Select
Range("b2").Select
If ActiveCell.Offset(1, 0) = "" Then
ActiveCell.Offset(1, 0).PasteSpecial Paste:=xlValues, Transpose:=False
Application.CutCopyMode = False
Sheets("saisie").Select
Range("e11").Select
Else
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).PasteSpecial Paste:=xlValues, Transpose:=False
Application.CutCopyMode = False
Sheets("saisie").Select
Range("e1") = Sheets("saisie").Range("e1") + 1
Range("b13").Select
End If
Mais cela ne fait que ajouter à la liste il ne corrige rien.
J'aimerais concerver cela si possible.
Merci beaucoup de votre gentillesse.