Pour faire simple j'ai 1 liste de produits, et (pour l'instant! en tout j'en ai env. 10...) 3 onglets 1 pour chaques fournisseurs.
L'objectif étant de comparer leur tarif pour un produits.
Comment rassemblé sur un onglet 'Syntese' la liste de mes produits et le tarif de chaque fournisseur?
Est il possible de passer par un tableau croisé dynamique? faut il le remplir manuellement? (
Dans le code ci dessous au lieu de IsEmpty(idxLigne) il y avait IsError(idxLigne)
Code:
'Si trouvé supprimer la ligne
If Not IsEmpty(idxLigne) Then
.ListRows(idxLigne - 1).Delete
txt = txt & "--> supprimé " & vbCrLf
Else
txt = txt & "--> non trouvé " & vbCrLf
End If
La Fonction Application.Match est sensée renvoyer un code d'erreur lorsqu'elle ne trouve pas la valeur cherchée dans une plage de cellule.
(d'où IsError) mais elle renvoyait 'Vide' car la colonne n'était pas trouvée et que plus haut dans le code on avait 'On error resume next'.
Pêut-être serait-il plus sage de tester les deux:
Code:
IF Not IsEmpty(idxLigne) And Not IsError(idxLigne) Then
C'est pour ces raisons qu'il faut être scrupuleux sur l'écriture des noms servant de référence dans les macros. Ou alors faire une macro super blindée qui mettrait 2 fois plus de temps à faire la même chose.