Bonjour à tous,
J'ai réalisé un outil qui me permet de combiner Excel et MapPoint, logicle de cartographie.
J'arrive par cet outil à localiser des adresses issues de tables de données sur une carte très simplement.
J'aurais voulu identifier les adresses non trouvées en les plaçant dans un onglet spécifique afin d'inviter l'utilisateur à vérifier les données.
La macro fonctionne (pas de bug remonté pas excel) mais les données ne sont pas copiées dans l'onglet.
Excel m'affiche bien la bôite de dialogue à la fin.
Si quelqu'un pouvais jeter un coup d'eil et détecter une anomalie.
Pour plus de simplicité je ne mets qu'une partie du code. Je peux transmettre le classeur complet si nécessaire.
merci de votre aide.
Dim plage As Range
Dim Ligne1 As Integer
Dim Ligne2 As Integer
Ligne1 = 11
Ligne2 = 11
'---------------------------------------------------------------------------------
'Gérer les erreurs: identifier et créer une liste
'---------------------------------------------------------------------------------
Exit Sub
ErrSub:
If Err.Number = -2147217383 Then
Set plage = Range(Cells(Ligne1, 2), Cells(Ligne1, 7))
plage.Copy Sheets("adresses fausses").Range(Cells(Ligne2, 2))
Ligne2 = Ligne2 + 1
Resume MoveOn
End If
MsgBox " Impossible de localiser des adresses. Merci de consulter la table des adresses fausses " & Err.Description
Err.Clear
J'ai réalisé un outil qui me permet de combiner Excel et MapPoint, logicle de cartographie.
J'arrive par cet outil à localiser des adresses issues de tables de données sur une carte très simplement.
J'aurais voulu identifier les adresses non trouvées en les plaçant dans un onglet spécifique afin d'inviter l'utilisateur à vérifier les données.
La macro fonctionne (pas de bug remonté pas excel) mais les données ne sont pas copiées dans l'onglet.
Excel m'affiche bien la bôite de dialogue à la fin.
Si quelqu'un pouvais jeter un coup d'eil et détecter une anomalie.
Pour plus de simplicité je ne mets qu'une partie du code. Je peux transmettre le classeur complet si nécessaire.
merci de votre aide.
Dim plage As Range
Dim Ligne1 As Integer
Dim Ligne2 As Integer
Ligne1 = 11
Ligne2 = 11
'---------------------------------------------------------------------------------
'Gérer les erreurs: identifier et créer une liste
'---------------------------------------------------------------------------------
Exit Sub
ErrSub:
If Err.Number = -2147217383 Then
Set plage = Range(Cells(Ligne1, 2), Cells(Ligne1, 7))
plage.Copy Sheets("adresses fausses").Range(Cells(Ligne2, 2))
Ligne2 = Ligne2 + 1
Resume MoveOn
End If
MsgBox " Impossible de localiser des adresses. Merci de consulter la table des adresses fausses " & Err.Description
Err.Clear