XL 2019 Concatener et tableau matriciel

Saumon80

XLDnaute Occasionnel
Bonjour ,

J ai un tableau de ce type avec des valeurs correspondant au croisement des colonnes et lignes .
Je souhaiterai pouvoir extraire une liste en contenant les valeurs gauche colonne A et ligne 1 et pouvoir retrouver la valeur correspondante .

Par exemple A-lille = 2 ,B-lille = 1 ,.... et avoir une liste avec la valeur correspondante pour tous les croisement de données mais ne sait pas comment m y prendre .

Merci d'avance pour votre aide .

LilleLyonParisMarseille
A244356
B14524
C456677
D44544577
 

soan

XLDnaute Barbatruc
Inactif
Bonjour Saumon80, le fil,

tu peux voir que "Feuil2" est vide ; va sur "Feuil1" et fais Ctrl e ➯ travail effectué ! 😊

note importante : ça marchera aussi bien si tu ajoutes des lignes, et même si tu ajoutes des colonnes ; cela sans rien avoir à changer dans le code VBA.​

VB:
Option Explicit

Sub Essai()
  If ActiveSheet.Name <> "Feuil1" Then Exit Sub
  Dim a%: a = Cells(1, Columns.Count).End(1).Column: If a = 1 Then Exit Sub
  Dim b&: b = Cells(Rows.Count, 1).End(3).Row: If b = 1 Then Exit Sub
  Dim T, v%, i%, j&, k&: T = [A1].Resize(a, b): k = 1
  Application.ScreenUpdating = 0
  With Worksheets("Feuil2")
    .Columns(1).ClearContents
    For j = 2 To a
      For i = 2 To b
        v = T(i, j)
        If v > 0 Then
          .Cells(k, 1) = T(i, 1) & "-" & T(1, j) & " = " & v: k = k + 1
        End If
      Next i
    Next j
    .Select
  End With
End Sub

si besoin, tu peux demander une adaptation.
à te lire pour avoir ton avis. ;)

soan
 

Pièces jointes

  • Exo Saumon80.xlsm
    16.7 KB · Affichages: 2
Dernière édition:

soan

XLDnaute Barbatruc
Inactif
Bonjour,

toujours pas d'retour de Saumon ?

j'espère qu'il s'est pas fait attraper par un ours
en remontant la rivière ! 😁 😜

🐻 🐟

la route du frai est la route de tous les dangers ! 😭

NB : y'a pas d'faute de frappe : « frai », pas « fret » !


soan
 

Discussions similaires

Réponses
2
Affichages
273