Suivi Dynamique du Remplissage d'1 Tableau, VBA

Bonjour !

Alors voila j'ai un tableau qui doit representer des phases de tests. Je le remplis avec un petit code qui est constitué de :

• 2 lignes déroulantes
• 3 Cases de validation, qui permet de remplir "l'état des phases de test" pour chaque cellule du tableau

Je voudrais faire, à partir des ID ou des listes deroulantes du 1er tableau, un 2eme tableau qui fait un suivi dynamique sous forme de liste du 1er tableau

Je précise que les phases de tests ne sont pas fixées encore, autrement dit je ne sais pas par exemple dans le 1er tableau si :

"1" aura juste le test "ID 01" et "ID 02" ou si on rajoutera par la suite le test "ID 04" etc a partir des premiers code VBA déjá présent

J'ajoute en exemple un fichier Excel avec mon code débuté (j'ai mis des couleurs pour essayer d'expliquer un peu mieux se que je voudrais faire, cf en dessous du jaune claire)

Merci pour votre aide

Bonjour

Un essai à tester. Te convient-il ?

Bye !

Meri Gmb

EDIT :

Comment peut on faire pour eviter d'aller sur la feuille Suivi a chaque fois qu'on choisi de remplir une case ?

J'essai également d'adapter ton code à une autre page Excel : Ce qui change est principalement la taille du tableau et sur la page de SUIVI j'ai des colonnes entre les ID /hases et l'ETAT (done , not yet , planned)

Il faudrait changer le k+1 pour pouvoir avoir des valeurs entre Phase et Etat ?

code :

Option Explicit

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

2111quentin a écrit :

eviter d'aller sur la feuille Suivi a chaque fois qu'on choisi de remplir une case ?

Nouvelle version :

2111quentin a écrit :

...adapter ton code à une autre page Excel

Bye !

Merci encore Gmb

Pour ton aide

Je t'ai mis l'excel ou j essai de modifier ton code dans le message suivant

Pardon voici la taille du tableau auquel je dois adapter ton code

En rouge la partie grisé dans l'excel "exemple" (a,s,d,f,g,h,j,k,l et q,w,e,r,t,y,u,i,o)

J'ai voulu copier coller et modifier mais je suis encore pas encore l'habitude du language

Désolé mais je ne vois pas.

Bye !

Merci quand meme !

Peux-tu m'expliquer un peu le code s'il te plait ? j'ai du mal a le refaire par moi meme surtout les partie en gras

Que represente fh et fs par exemple ?

Option Explicit

Dim fh As Worksheet, fs As Worksheet, tablo, tabloR()

Dim i&, j&, k&, flag&

Mise a jour du suivi :

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

Le même avec macro commentée.

Bye !

Merci a toi GMB

Je vais voir comment faire pour tenter de l'appliquer à mon cas, meme si tu n'as pas reussi, on sait jamais sur un malentendu je peux réussir a le faire marcher

et pour cette partie fh et fs corresponde a quoi ?

Option Explicit

Dim fh As Worksheet, fs As Worksheet, tablo, tabloR()

Dim i&, j&, k&, flag&

2111quentin a écrit :

et pour cette partie fh et fs corresponde a quoi ?

OK ?

Bye !

D'accord ça marche merci beaucoup, identique a Tablo et TabloR() du coup

Désolé mais où on renomme la page Excel pour l'appeler en VBA fs et fh ? C'est le meme príncipe que les listes déroulantes dans "cadre nombre" ?

Bonjour

2111quentin a écrit :

Désolé mais où on renomme la page Excel pour l'appeler en VBA fs et fh ?

Option Explicit

Dim fa As Worksheet, fc As Worksheet, tablo, tabloC     'On declare et on type les variables
Dim i&, iC&, j&, dteD As Date, dteF As Date             'Idem
Sub ReportAbsences()

    Set fa = Sheets("Absences")             'la feuille "Absences" s'appellera fa
    Set fc = Sheets("calendrier mensuel")   'la feuille "calendrier mensuel" s'appellera fc
    tablo = fa.Range("A1:G" & fa.Range("A" & Rows.Count).End(xlUp).Row)
    tabloC = fc.Range(fc.Cells(5, 1), fc.Cells(fc.Cells(Rows.Count, 1).End(xlUp).Row, fc.Cells(5, Columns.Count).End(xlToLeft).Column + 5))

    'initialisation des zones de résultat

bye !

ah ok donc c'est pareil avec fs et fh merci