Créer des résumés grace à la "BDD" d'une bibliothèque

[Moulinois]

Bonjour,

Le titre est un peu pompeux 😀

En fait, je veux que les colonnes de la Feuil1 s'affichent en lignes sur la Feuil2 avec l'insertion d'autres lignes (Pour aérer et pour rajouter les commentaires nécessaires).

J'ai utilisé TRANSPOSE() qui marche bien mais je voudrais que la création de ces blocs et de la formule se fasse automatiquement. Est-ce une macro qu'il me faut ? Dans ce cas, que coder ?


Merci de votre aide,
A plus.

 

[Moulinois]

Re : Créer des résumés grace à la "BDD" d'une bibliothèque

Re,

Correction : Il vaudrait mieux que le résumé soit tapé sur la Feuil1 et qu'il soit recopié sur la Feuil2.

@+

 

[BOISGONTIER]

Re : Créer des résumés grace à la "BDD" d'une bibliothèque

Bonjour,

Sub essai2()
  n = Sheets(1).[B65000].End(xlUp).Row
  ligne = 2
  For i = 2 To n Step 2
    For col = 2 To 4 Step 2
      j = (i - 2) + col / 2 + 1
      ligne = 2 + (i - 2) / 2 * 7
      Sheets(2).Cells(ligne, col) = Sheets(1).Cells(j, 2)
      Sheets(2).Cells(ligne + 1, col) = Sheets(1).Cells(j, 3)
      Sheets(2).Cells(ligne + 2, col) = "ref:" & Sheets(1).Cells(j, 4)
      Sheets(2).Cells(ligne + 3, col) = "résumé:"
      Sheets(2).Cells(ligne + 4, col).RowHeight = 104.25
      Sheets(2).Cells(ligne, col).Resize(5, 1).BorderAround Weight:=xlMedium
    Next col
  Next i
End Sub

JB
Formation Excel VBA JB

 

[Moulinois]

Re : Créer des résumés grace à la "BDD" d'une bibliothèque

Re,

Coquin, tu as changé le code 😉

Néanmoins, j'ai gardé le premier comme j'y ai fait des modifs.

Merci beaucoup.

A plus.