Insérer les valeurs d'un tableau dans une colonne dynamique

Question

C'est mon deuxième jour de développement VBA, je bloque sur un point qur lequel je sollicite votre aide J'ai créé une macro qui permet de parcourir un tableau, stocker les informations dont j'ai besoin dans un tableau dynamique et les afficher dans une autre feuille Mon souci est que je souhaite selectionner la date de creation de mon tableau d'origine (on la trouve dans une cellule rentrée à la main) et chercher dans un calendrier dans une autre feuille le mois correspondant à cette date (la date rentrée et celles du calendrier ont le même format mois-année) et d'y insérer la colonne de mon tableau dynamique. Je vous mets le code que j'ai réussi à developer, où il me manque d'afficher une dernière information dans cette colonne dynamique Sub MAJ() Dim var As String, next_line As String, Cel As Range, colonne_voulue As Range Worksheets("Test-Tdb").Activate LL = Sheets("Test-Tdb").Range("A1").End(xlDown).Row Dim tab_GC() ReDim tab_GC(LL - 1, 3) var = "GC0" taille_GC = WorksheetFunction.CountIf(Sheets("Test-Tdb").Range("D1:D" & LL), var) 'taille_TRV = WorksheetFunction.CountIf(Sheets("Test-Tdb").Range("E1:E" & LL), var) next_line = 0 For i = 0 To LL - 1 If Range("D" & i + 1) = var Then If Sheets("Test-Tdb").Range("B" & i + 1) = "" Then tab_GC(next_line, 0) = Sheets("Test-Tdb").Range("A" & i + 1) Else tab_GC(next_line, 0) = Sheets("Test-Tdb").Range("B" & i + 1) End If tab_GC(next_line, 1) = var tab_GC(next_line, 2) = Sheets("Test-Tdb").Range("E" & i + 1) tab_GC(next_line, 3) = Sheets("Test-Tdb").Range("C" & i + 1) tab_GC(next_line, 4) = Sheets("Test-Tdb").Range("D" & i + 1) next_line = next_line + 1 End If Next For i = 0 To taille_GC - 1 Sheets("GC").Range("A" & i + 5) = tab_GC(i, 0) Sheets("GC").Range("C" & i + 5) = tab_GC(i, 1) Sheets("GC").Range("B" & i + 5) = tab_GC(i, 2) Sheets("GC").Range("D" & i + 5) = tab_GC(i, 3) Next End Sub...

patrick1957 · Answer

Ma boule de cristal ne voit pas de fichier... Pourtant, ça peut aider surtout s'il ressemble au fichier originel !!! Pas sûr de savoir t'aider mais le fichier pourrait aider les autres lecteurs P...

MFerrand · Answer

J'ai dû faire une erreur en ouvrant ce sujet entre 2 travaux...

Alors, outre mettre un fichier, on ne le répète peut-être pas assez ! tu pourrais :

1) Utiliser la balise Code, pour le code que tu mets dans un post (tu regarderas, et tu verras la différence).

Respecter un minimum les règles classiques en matière d'écriture :

2) Déclarer toutes les variables en tête de procédure.

3) Indenter systématiquement le code.

4) Ne pas sauter de ligne, ou ne le faire que pour des blocs homogènes organiquement liés (sinon cela peut induire des erreurs de lecture)

Certes, on voit bien pire en la matière mais ce n'est pas une raison pour s'en contenter.

Je suis curieux de savoir quel résultat cela donne si tu l'as testée. Sans l'avoir lue, j'ai tout de même aperçu au passage une variable utilisée comme compteur, donc incrémentée, et déclarée comme étant de type String.

Cordialement.