Macro de redistibution et macro de matrice Résolu/Fermé

Question

Bonjour à toutes et tous,

Comme le titre le laisse suggérer j'ai besoin d'aide pour la création de deux macros, toute deux pour simplifier une solution trouver a l'aide des formules et de copier-coller qui atteignent leurs limites.

Pour ce qui est de la macro de redistribution :
Je dois tout d'abord trouver toutes les valeurs uniques d'une plage de données et les renvoyer vers la premiere ligne du tableau, sachant que d'une colonne a l'autre les valeurs sont dans l'ordre croisant j'ai donc trouver comme solution d'utiliser en tete de chaque colonne la formule MIN(nombre1;nombre2;...) c'est assez efficace mais si il y a moyen de faire mieux je suis preneur ^^.
Ensuite, et c'est la que ca se complique, je dois comparer chaque valeur de chaque colonne du tableau aux valeurs de la première ligne et renvoyer chacune des valeurs dans la colonne correspondantes (dans un autres tableau sur la même page ou mieux en page 2), je m'en suis sortie t'en bien que mal avec une formule conditionnelle "si" avec de multiples arguments mais la encore ca a des limites ...

Pour rendre ca plus clair voici un exemple : 
http://cjoint.com/?DBkmAmDCPVw



Pour la macro de matrice : 
A partir du tableau obtenu précédemment je dois remplacer chaque valeur du tableau par des 0 ; 1 ou 2 .
Si dans une ligne on trouve deux valeurs mettre des 1 a la place de chaque valeur, si on ne trouve qu'une valeur mettre un 2 et la ou il n'y a aucune valeur mettre des 0.

Même exemple que précédemment mais en page trois pour le rendu final que j'attends.



Un grand merci à celles et ceux qui pourront m'aider, pas trop de souci en ce qui concerne excel et ses formules par contre je dois avouer que le VBA reste un grand mystère pour moi ... 

Bonne journée !! 

Sieg.





Configuration: Windows XP / Firefox 26.0

Zoul67 · Answer

Bonjour,

Grâce aux formules, je vois à peu près ce que tu fais, mais je ne comprends pas : 
- les données d'origine : c'est impossible qu'il y ait une grande variété de nombres dans ta colonne B (d'en-tête "A") ; ex : 232 ; 233 ; 234 ; 235 ? Ceci 
- pourquoi dans l'onglet Résultats "235" reste en B7 et n'est pas basculé vers C7.

A+

Sieg · Answer

Salut,

D'abord merci d'avoir pris le temps de regarder un peu la situation !! pour répondre a tes questions :

235 doit en effet basculer en C7, je l'ai fait en manuel c'est juste un oubli de ma part  désolé.
Dans chacune des colonnes il ne peut y avoir que les nombres situés dans la première ligne (celle qui classe par ordre croissant l'ensemble des valeurs uniques de mon tableau) 
par exemple en colonne B (en tete A) on ne peut trouver que : 232 ; 235 ; 241 ; 243 ; 245 ; 247 ... De même en colonne C D E F et G.

Il faut "juste" remettre chaque nombre dans la colonne qui lui est propre

A+

Sieg · Answer

C'est variable mais je dois pouvoir faire les modifs moi même si il s'agit juste d'agrandir les range

Sieg · Answer

Merci de ton aide !!

C'est un peu vers quoi je m'étais dirigés avec l'utilisation de formule mais je voudrais tout de même savoir si il est possible de faire la même chose par macro, n'étant pas le seul utilisateur ca me semble plus simple de détecté une erreur d'entrée de donnée par macro que par formule (comme 3valeurs dans une ligne) 
Inclure un renvoie vers d'autres onglets pourrait etre sympa aussi et vu qu'au final les données vont servir dans un autre logiciel qui supporte mal les données autres que numérique (issus de formule quoi ^^) ca m'éviterais le collage spécial valeur !! 

merci encore. A +

Sieg · Answer

Voila le lien des données brutes (enfin juste ouvert et réenregistré en excel, les données brutes étant un fichier texte) :

http://cjoint.com/?DBksF5joOEW

Les mêmes que précédemment sans la première ligne en fait, les "Valeur 1; Valeur 2; etc " pouvant varier jusqu'à 20 à l'heure actuelle, les nombres dans les colonnes "Valeur" pouvant varié entre 87 et 339 actuellement mais jamais dans la même série de donnée ... dans une même série il faut compter maximum 80 de décalage entre la valeur la plus faible et celle la plus élevée ... Enfin en terme de nombre de ligne je varie entre 11 (j'ai pris l'exemple le plus condensé) et 581 (la encore pour l'instant)

J'espère avoir été clair dans les variations possibles du fichier si besoin je suis dispo pendant encore une grosse heure sinon plutot demain.

Merci !!

ccm81 · Answer

Bonjour à tous

Une proposition
https://www.cjoint.com/?3Bktml4JpsW 

Cdlmnt

ccm81 · Answer

Bonjour

Merci à Zoul67 d'avoir pris le relai

Pour remplacer les cellules vides (feuille FR3 des 0-1-2) par des zéros, tu ajoutes juste avant le end final de la procedure OK

' mettre des 0 dans cellules vides
Set plagev = Sheets(FR2).Cells(lidebval, codebval).Resize(nbli, nbv)
For Each c In plagev
  If c.Value = "" Then c.Value = 0
Next c
Bon après midi

Macro de redistibution et macro de matrice

7 réponses

Discussions similaires