Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2016 Array_Dico_Variables à vider ?

  • Initiateur de la discussion Initiateur de la discussion BARNS
  • Date de début Date de début
B

BARNS

XLDnaute Junior
Bonjour,

J'ai réalisé un logiciel pour calculer une liste de matériel sans rentrer dans les détails non nécessaire voilà mon problème :

Des données d'une feuille sont analysées pour enlever les doublons et regrouper les valeurs.

Les données analysées :


Liste sans doublons :



Le problème est que parfois les quantités sont bonnes parfois non ... c'est à dire que dans cette exemple je devrais avoir seulement 1 tuyau souple LG2020.

Nous passons par différentes objets pour effectuer ce traitement : cellule, array, dico.

Il n'y a visiblement aucun souci sur les cellules et les arrays.

Je pense qu'il doit y avoir certains items du dico qui reste en mémoire. J'ai essayé de vider mais comme le dico est créé a chaque lancement de code ca n'a pas trop de sens

VB: 
Set dicotubes = CreateObject("Scripting.Dictionary")

Si quelqu'un à une idée je suis preneur

Ces partie de code sont dans le modules M03_LongCannes dans le fichier joint.

Pour lancer le code : cliquer sur Etape 1 puis 2 puis 3. Le problème doit apparaître en lancant plusieurs fois le code.
 

Pièces jointes

  • Conf_canne_14_09_2021.xlsm
    224.7 KB · Affichages: 13
Trier par date Trier par votes
B

BARNS

XLDnaute Junior
Bonjour,

Merci pour la réponse. Je viens d'essayer et je retrouve la même erreur .


Cela arrive en lançant le code plusieurs fois. Mais du coup si ce n'est pas la mémoire du dico, je ne sais pas trop ce que ca pourrait être...
 
Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonsoir,
Après moult bidouilles, je me suis aperçu que Range("Tab_Cannes_ref").Rows.Count valait 233 alors que le tableau de Cannes_ref se termine en 234.
J'ai donc rajouté +1 afin d'aller jusqu'à la dernière ligne et bizarrement ça à l'air de marcher, pouvez vous confirmer ?
Modif dans Sub dico_tubes() :
VB: 
For n = 2 To Range("Tab_Cannes_ref").Rows.Count + 1
 
Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc
Bonjour BARNS
Bonjour sylvanu ,le Forum
je pense que 233 correspond à la Plage "DataBodyRange" du Tableau soit la Plage du Tableau Structuré " "Tab_Cannes_ref " moins la Ligne d'entêtes ?
soit
VB: 
ActiveSheet.ListObjects("Tab_Cannes_ref").Range.Rows.Count ' Le tableau Complet avec ligne d'entetes (234)

Range("Tab_Cannes_ref").ListObject.DataBodyRange.Rows.Count ' Plage de Données à partir de la Ligne 2 du Tableau (233)
peut être utile ???
jean marie
 
Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc
Re
autre remarque
dans :
VB: 
For n = 2 To Range("Tab_Cannes_ref").Rows.Count
on commence la boucle sur la deuxième valeur (Ligne) du "DataBodyRange" du tableau "Tab_Cannes_ref"
boucle sur l'ensemble de sLignes du DataBodyrange
Code: 
For n = 1 To Range("Tab_Cannes_ref").Rows.Count
jean marie
 
Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc
Supporter XLD
Re,
Exact, mais c'est une "maladresse" de Barns. Car le pointeur max est basé sur DataBodyRange mais ensuite il scrute pas rapport aux cellules et non au tableau avec : Sheets("Cannes_ref").Cells(n, 4).
Pour être cohérent il eût été préférable soit de pointer sur DataBodyRange et accéder aux lignes du tableau structuré avec les instructions spécifiques à ces tableaux, soit chercher la dernière cellule occupée et accéder aux données par Cells(L,C)
D'où le 2 au lieu de 1, la première donnée du tableau se trouve en ligne 2.
 
Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc
exact (j'ai vu)
peux tu me dire quelle est la démarche a suivre pour espérer afficher quelque chose Lol
dans la feuille "user" et me permettre de tester et comprendre lol
quand je click sur etape1 rien Lol
merci par avance
jean marie
 
Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc
Supporter XLD
C'est vrai que j'ai galéré pour trouver.
1- Dans User, Appuyer sur Clear puis sur Etape1
2- En PAF (B62) mettre 30
3- Appuyer sur Etape2 puis sur Etape3
En C81 on devrait trouver 1. Ca marche mais si on répète plusieurs fois on finit par trouver 2.
Si je rajoute mon +1 à For n = 2 To Range("Tab_Cannes_ref").Rows.Count + 1 alors je ne suis pas arrivé à reproduire le problème.
Mais comme le problème est aléatoire, je ne sais pas si c'est bon ou non, c'est pour ça que j'ai demandé à Barns de confirmer.
NB : La modif n'a rien à voir, à priori, avec le smilblic d'où mon interrogation.
 
Vote positif 0 Vote négatif
B

BARNS

XLDnaute Junior
"Après moulte bidouille" désolé je vais devoir travailler sur l'ergonomie ...
J'avoue que je ne comprends pas pourquoi rajouter +1 enlève le beug mais soit..
ET je ne comprends pas trop cette phrase " Car le pointeur max est basé sur DataBodyRange mais ensuite il scrute pas rapport aux cellules et non au tableau avec : Sheets("Cannes_ref").Cells(n, 4)." Qu'est-ce que j'aurais dû faire ?
J'ai essayé de faire au mieux mais franchement je suis super ouvert, j'ai conscience que mon code est pas du tout optimisé et je suis preneur de n'importe quel conseil qui ferait gagné en caractères ou en clarté.
Dans tout les cas merci pour avoir solutionné mon problème en espérant qu'il ne revienne pas .
Bonne semaine à tous
 
Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonsoir,
Ce n'état pas une critique loin de là, mais un aparté avec ChTi.
Ca marche très bien ainsi, on discutait seulement du 2 au lieu de 1.
Range("Tab_Cannes_ref").Rows.Count compte le nombre de lignes d'un tableau structuré, donc la première ligne est après la ligne des entêtes. Mais quand on accède aux cellules avec Cells(n, 4) alors on commence à 2 car l'indice 1 ce sont les entêtes. C'est tout. Désolé si je vous ai froissé.
Mais est ce que cette modif retire réellement le bug ?
 
Vote positif 0 Vote négatif
B

BARNS

XLDnaute Junior
Non vraiment absolument aucun souci. Justement plus il y a de critiques plus j'ai la chance de comprendre et de progresser. Et j'ai conscience que mon code est vraiment pas terrible, j'ai essayé de prendre tous les conseils que l'on m'a donné jusqu'alors sur ce fichier pour l'améliorer mais il y a encore du boulot.
Au delà d'un code seulement fonctionnel je cherche une syntaxe compréhensible, évolutive et qui respecte les règles de la programmation.
Et ce programme est un peu plus complexe que le premier fichier sur lequel tu m'avais largement aidé (un configurateur canon) qui m'a fait mettre le doigt dans le vba
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

  • Question Question
XL 2016 Adapter un code à mon fichier (RESOLU)
Réponses
4
Affichages
259
misteryann
S
  • Question Question
Microsoft 365 VBA - Objet dictionnary limité à 256 items
2 3
Réponses
38
Affichages
3 K
S[1]t'Yor
S
  • Résolu(e)
XL 2010 inhiber evenement
Réponses
13
Affichages
488
cathodique
E
  • Question Question
Microsoft 365 Problème de conversion des mois en périodes dans Excel avec VBA
Réponses
2
Affichages
558
RyuAutodidacte
A
  • Question Question
XL 2021 Générer des données à partir d'une ligne spécifique jusqu'à une autre
Réponses
5
Affichages
416
gbinforme
G
D
  • Question Question
Autres problème de formule matricielle tri sans doublon avec un critère
Réponses
11
Affichages
642
job75
L
  • Résolu(e)
Power Query Entetes parfois sur une ligne parfois sur deux
Réponses
2
Affichages
581
lbahjaoui
L
N
  • Question Question
Microsoft 365 Liste déroulante (combobox) en fonction d'une séquence de valeurs
Réponses
13
Affichages
532
Neofalken
N
M
  • Résolu(e)
XL 2021 calcul : Somme des quantités de chaque produit à fabriquer
Réponses
3
Affichages
764
MinstrelL
M
X
  • Question Question
Microsoft 365 Problème avec liste déroulante et sensibilité à la casse
Réponses
5
Affichages
790
fanfan38
M
  • Question Question
XL 2010 Aide à la suppression d'un produit en double dans un magasin spécifique avec conditions
Réponses
9
Affichages
757
Mody200
M
V
  • Résolu(e)
XL 2016 Facturier : Retour à la ligne sur la facture
2
Réponses
19
Affichages
1 K
Vermithor
V
C
  • Question Question
XL 2021 case à cocher dans ListView impacte une cellule de feuille
Réponses
1
Affichages
783
fanch55
A
  • Question Question
XL 2016 Adapter une image à une cellule
2
Réponses
16
Affichages
2 K
Dudu2
  • Résolu(e)
Microsoft 365 Masquer des colonnes aux cellules avec valeurs données selon sélection d'une liste déroulante
Réponses
5
Affichages
807
PatFr38
Q
  • Résolu(e)
Microsoft 365 Exécutions directes différentes vs "pas à pas"
Réponses
2
Affichages
452
Quentin2106
Q
POWERQUERY :: Combiner tous les fichiers .csv d'un dossier ou combiner des fichiers .csv spécifiques
Réponses
0
Affichages
484
oguruma
M
  • Résolu(e)
XL pour MAC Fonction peut s'adapter au changement de ligne ?
Réponses
4
Affichages
553
MaiBZH
M
B
  • Résolu(e)
XL 2016 Variable vide pourquoi ?
Réponses
3
Affichages
817
BARNS
B
N
  • Résolu(e)
XL 2019 Alimenter une combobox selon critère après avoir double cliqué sur une feuille
2
Réponses
20
Affichages
1 K
sousou
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…