Excel programmation - Page 2
Résolu
Précédent
- 1
- 2
Bonjour,
Si j'ai bien compris tu ne voudrais plus voir le message 'n° inconnu etc" et passer directement au suivant ?
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
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
En espérant que...
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...
Précédent
- 1
- 2
