HELP - MACRO EXCEL - REORGANISATION DONNEES

Question

Bonjour,

Je suis novice en macro excel / visual basic.

J'ai un problème à résoudre concernant des réorganisations de données.
Je joins une photo pour décrire mon problème (à gauche la base ; à droite le résultat) : c'est comme un tableau croisé dynamique mais comme il y a des données textes je ne peux utiliser cette fonction.
J'ai des échantillons analysés avec différents paramètres (un échantillon n'a pas toutes les analyses) et pour une même analyse on peut avoir du texte ou des chiffres.

Globalement l'idée serait de lister les n° d'échantillons qui deviendraient les n° de lignes ; de même les analyses seraient listée est deviendraient les en têtes de colonnes. Après il faudrait faire la correspondance.

Le problème c'est que je sais pas comment démarrer et quelles fonctions utiliser.

Avez vous déjà vu ce genre de macros ou de tutoriels ?

Merci d'avance,

A votre dispo pour plus de détails

oto

Utilisateur anonyme · Answer

Bonjour Buck35131,

Voici ton Fichier Excel 2007 : il te suffit de lancer la macro Essai (^e)
pour remplir ton tableau de droite. Dis-moi ce que tu en penses, et si
tu as besoin de plus d'infos.

Si tu n'arrives pas à ouvrir mon fichier Excel 2007 (*.xlsm), dis-le moi
et je t'enverrai le même converti au format "Excel 97 -2003" (*.xls).
 
Si ton problème est réglé, merci d'aller en haut de page
pour cliquer sur « Marquer comme résolu ».

Cordialement.  &#x1F60A;

Buck35131 · Answer

Salut,
Ci-joint des images.
J'ai vérifié les points que tu évoques ; à priori c'est bon.
L'idée est de bien comprendre comment cela marche car il est possible que je réutilise cette macro dans d'autres contextes ; il faut que je comprenne bien comment cela marche.
Mais comme je butte déjà sur le lancement.
Idéalement la copie du tableau doit se faire sur une nouvelle feuille.
Merci pour ton avis

Buck35131 · Answer

Image 2

Buck35131 · Answer

Image 1

Buck35131 · Answer

Image 2

Utilisateur anonyme · Answer

Bonjour Buck,

Laisse tomber mes messages précédents, car même si tu ne m'as pas
donné toutes les informations nécessaires, j'ai refait ton exercice avec
tes dernières infos ; voici donc le nouveau code VBA à copier / coller
dans Module1 (mon message #16 explique comment faire) :


Option Explicit


Sub Essai()
  If ActiveSheet.Name <> "Feuil2" Then Exit Sub
  Dim Analyses, OldEch As String * 8, cellX As Range, ligN As Long, ligR As Long
  Dim NbAly As Integer, Aly As String, colR As Integer, flag As Byte, cf As Integer
  Analyses = Array("HUMIDITÉ", "CENDRES BRUTES", "CALCIUM", _
    "HUMIDITÉ ET MAT. VOLATILES", "CELLULOSE BRUTE", "PROTÉINES BRUTES", _
    "MATIÈRES GRASSES BRUTES (B)", "ACIDITÉ OLÉIQUE", "IMPURETÉS INSOLUBLES")
  NbAly = UBound(Analyses): ligN = 3: ligR = 3: Application.ScreenUpdating = False
  Do
    Set cellX = Worksheets("Feuil1").Cells(ligN, 2): If IsEmpty(cellX) Then Exit Do
    If cellX <> OldEch Then ligR = ligR + 1
    With cellX
      Aly = cellX.Offset(, 1): flag = 0
      For colR = 0 To NbAly
        If Aly = Analyses(colR) Then flag = 1: Exit For
      Next colR
      If flag = 1 Then
        ' couleur de fond de la cellule du N° Échantillon
        cf = .Interior.ColorIndex
        ' N° Échantillon
        Cells(ligR, 2) = .Value: Cells(ligR, 2).Interior.ColorIndex = cf: colR = colR + 4
        ' Unité ; mais uniquement si non déjà fait
        If IsEmpty(Cells(3, colR)) Then
          Cells(3, colR) = .Offset(, 3): Cells(3, colR).Interior.ColorIndex = cf
        End If
        ' Valeur
        Cells(ligR, colR) = .Offset(, 2): Cells(ligR, colR).Interior.ColorIndex = cf
        OldEch = .Value
      End If
      ligN = ligN + 1
    End With
  Loop
End Sub

Fichiers Excel 2007 sans macro
Fichiers Excel 2003 sans macro

Mode d'emploi (après copie du code VBA dans Module1) :

Sur Feuil1, tu peux voir le 1er tableau des échantillons ; la macro
Essai ne s'exécutera pas dessus, mais c'est normal, car tu dois
être sur Feuil2 pour l'exécuter.

Sur Feuil2, note bien, d'abord, que le tableau est quasiment vide ;
le code VBA est fait uniquement pour les colonnes d'analyse déjà
présentes (donc 9 en tout) ; s'il en faut plus je te dirai quoi faire.

Exécutes la macro Essai pour le remplir, puis étudie le code VBA.

--------------------------------------

Dis-moi ce que tu en penses, et si ça te convient.

Si ton problème est réglé, merci d'aller en haut de page
pour cliquer sur « Marquer comme résolu ».

Cordialement. 😊

HELP - MACRO EXCEL - REORGANISATION DONNEES

6 réponses

Discussions similaires

Newsletters