Comprehension d'1 code Suivi dynamique tableau
Bonjour !
Voila j'ai un code VBA et il faut que je le reformule pour un autre Excel avec un tableau plus grand qui ne commence pas au meme endroit
Le soucis c'est que je ne comprend pas ce dernier
Merci pour votre aide
l'excel et code ci-dessous
Option Explicit
Dim fh As Worksheet, fs As Worksheet, tablo, tabloR()
Dim i&, j&, k&, flag&
tablo = Range("B2").CurrentRegion
k = 0
For i = 3 To UBound(tablo, 1)
ReDim Preserve tabloR(1 To 3, 1 To k + 1)
tabloR(1, k + 1) = tablo(i, 2)
k = k + 1
flag = 0
For j = 3 To UBound(tablo, 2)
If tablo(i, j) <> "" Then
If flag = 0 Then
k = k - 1
flag = 1
End If
ReDim Preserve tabloR(1 To 3, 1 To k + 1)
tabloR(2, k + 1) = tablo(2, j)
tabloR(3, k + 1) = tablo(i, j)
k = k + 1
End If
Next j
Next i
fs.Range("A6").CurrentRegion.Offset(1, 0).ClearContents
fs.Range("A7").Resize(UBound(tabloR, 2), 3) = Application.Transpose(tabloR)
fs.Activate
Unload Me
End Sub
bonjour
on dirait bien un "dépivotage" d'une zone de données
mon conseil : pas de VBA
1/ mettre la zone de données "sous forme de tableau" (menu Accueil). Ceci permet une extension automatique quand on ajoute des lignes et des colonnes
2/ ouvrir Power Query (menu Données, "récupérer")
3/ voir un tuto pour dépivoter les données
https://www.youtube.com/watch?v=iMXesIzEvYw
ou autre vidéo
ensuite les mises à jour se font d'un clic
Merci de ta réponse
Explication but excel
Je dois a partir d'un 1er tableau qui va évoluer au cours du temps, le remplir, puis pouvoir faire un suivi a partir d'une autre feuille. Et a partir de cette feuille pouvoir également mettre a jour l'état d'avancement du tableau.
Ma question par rapport a ta reponse
Est-ce à quoi tu pensáis en parlant de pivotage? Si oui je pensé utiliser ta methode
re
Tu utilises Excel pour gérer des données. Il FAUT donc que tu apprennes les TCD dites aussi Tables Pivot en anglais (voir les tutos sur le net) et Power Query.
Plus tard tu verras Power BI gratuit.
dans ton cas tu as des données déjà pivotées,
tu dois d'abord les dépivoter (les mettre en colonnes toutes simples) comme décrit plus haut
c'est l'inverse de la création d'un TCD
ensuite, tu verras que tu peux à nouveau les pivoter dans un TCD
ça semble idiot de dépivoter, puis plus tard de repivoter, mais c'est trèèèèès puissant.
Oui j'essai de pivoter tout en ce moment mais j'arrive pas trop
EDIT :
Que veux tu dire par:
1/ mettre la zone de données "sous forme de tableau" (menu Accueil). Ceci permet une extension automatique quand on ajoute des lignes et des colonnes
J'ai reussi
Par contre, le fichier est lié avec le nom de l'excel et si je change le nom de l'excel je ne parviens pas à les reliers...
L'excel étant en espagnol, quelle est la démarche à suivre pour renommer l'excel en concervant le lien avec Power Query déja existant ?
Merci par avance