Excel programmation - Page 2

Bonjour,

Si j'ai bien compris tu ne voudrais plus voir le message 'n° inconnu etc" et passer directement au suivant ?

oui si possible, car dans "base1" il y a des numéros de téléphones qui n'existent pas dans "Base".

Prédemment, le programme réalisé fonctionnait à condition que tous les numéros de "Base1" soit aussi existants dans "Base".

Or, je me suis aperçu que ce n'était pas toujours le cas.

Cela est-ce possible ?

Mathieu

Ci joint la macro modifiée mais je n'ai pas testé car je n'ai pas gardé la maquette de W

Sub copier_mel()
Dim nbre As Long, cptr As Long
Dim tablo1
Dim lig As Long, texto As String
With Sheets("base1")
    nbre = .Range("O65536").End(xlUp).Row - 1
    ReDim tablo(nbre, 2)
    For cptr = 1 To nbre
        tablo(cptr, 1) = .Cells(cptr + 1, 15)
        tablo(cptr, 2) = .Cells(cptr + 1, 23)
    Next
End With

With Sheets("base")
Application.ScreenUpdating = False
    For cptr = 1 To nbre
            On Error Resume Next
             lig = .Columns(15).Find(tablo(cptr, 1), .Cells(1, 15), xlValues).Row
             If Err.Number = 0 Then
                .Cells(lig, 23) = tablo(cptr, 2)
            End If
    Next
End With

End Sub

En espérant que...

parfait,

tout fonctionne très bien

Merci pour votre réponse

Excellente journée

Mathieu