XL 2019 Erreur de Type à la ligne 5581

[Titof06]

Bonjour à Toutes et Tous,

Je reviens vers vous car une erreur apparaît à la ligne 5581 de mon onglet "IMPORT".
Toutes les lignes précédents sont passées en revue sans problème, sauf que celle-ci me génère l'erreur.
Je ne comprends pas pourquoi.
La seule explication que je pourrai avoir est que c'est la première donnée qui commence par "0".

Est-ce que quelqu'un pourrait me venir en aide, svp ?

Mon fichier est très lourd (plus de 9 Mo), voici le lien WeTransfert d'une durée de 3 jours : https://we.tl/t-oR48cn0UK0

Je vous souhaite une agréable fin de journée.

Titof06

 

[Oneida]

Bonjour,
Cette erreur est provoquee a quel endroit, quel code?????????

 

[TooFatBoy]

Bonjour,

Juste pour ton information : si tu nettoyais ta feuille "IMPORT", tu passerais de 10 Mo à 3 Mo. 😉

Je reviens vers vous car une erreur apparaît à la ligne 5581 de mon onglet "IMPORT".
Toutes les lignes précédents sont passées en revue sans problème, sauf que celle-ci me génère l'erreur.
Je ne comprends pas pourquoi.
La seule explication que je pourrai avoir est que c'est la première donnée qui commence par "0".

C'est peut-être parce que tu as des nombres au lieu de textes en Y5581 et AB5581 ?

 

[TooFatBoy]

Cette erreur est provoquee a quel endroit, quel code?????????

module : Recherche_MAJ
macro : Cherche_MAJ
Il est écrit, dans les commentaires de la macro :

'PROBLÈME ICI POUR LA LIGNE 5581 de l'onglet "IMPORT"
'cel.Value = "024156"

 

[TooFatBoy]

La seule explication que je pourrai avoir est que c'est la première donnée qui commence par "0".

En fait le problème vient seulement du fait que la valeur "024156" n'existe pas dans la colonne AF de la feuille "ECOTAXE".

Je te propose de remplacer :

            ' Eco PMCB
            If nbr_lig_ecop >= 1 Then
                data_ecop = Application.VLookup(cel.Value, Sheets(feco).Range("AF2:AP" & nbr_lig_ecop), 11, False)
                If IsError(data_ecop) Then data_ecop = 0
            End If

par ceci :

            ' Eco PMCB
            If nbr_lig_ecop >= 1 Then
                On Error Resume Next
                data_ecop = 0
                data_ecop = Application.VLookup(cel.Value, Sheets(feco).Range("AF2:AP" & nbr_lig_ecop), 11, False)
                On Error GoTo 0
            End If

Il faudrait aussi supprimer les ".Value.Value" dans ta macro.. 😉

 

[Titof06]

En fait le problème vient seulement du fait que la valeur "024156" n'existe pas dans la colonne AF de la feuille "ECOTAXE".

Je te propose de remplacer :

            ' Eco PMCB
            If nbr_lig_ecop >= 1 Then
                data_ecop = Application.VLookup(cel.Value, Sheets(feco).Range("AF2:AP" & nbr_lig_ecop), 11, False)
                If IsError(data_ecop) Then data_ecop = 0
            End If

par ceci :

            ' Eco PMCB
            If nbr_lig_ecop >= 1 Then
                On Error Resume Next
                data_ecop = 0
                data_ecop = Application.VLookup(cel.Value, Sheets(feco).Range("AF2:AP" & nbr_lig_ecop), 11, False)
                On Error GoTo 0
            End If

Il faudrait aussi supprimer les ".Value.Value" dans ta macro.. 😉

Bonjour TooFatBoy,

Je vous remercie pour l'astuce, je n'y ai pas pensé.

Oui, c'est ça, le code "024156" n'existe pas dans "ECOTAXE".

Merci également pour les doublons (".Value.Value") que je n'avais pas vu.

Je vous remercie pour le temps que vous m'avez accordé.

Je vous souhaite une agréable journée,

Titof06