Discussion :

[Guillaume TO]

Bonjour a tous et merci pour votre aide,

J'ai besoin d'un coup de pouce pour commencer a coder, essentiellement pour que je parte dans la bonne direction.

Je vais essayer d'etre le plus clair possible.
Je dispose d'un tableau suivant :


L'utilisateur doit remplir un ensemble de taches puis selectionner le danger relatif a ces taches.

Une fois les dangers selectionnes selon les taches respectives, je voudrais generer un "rapport", une nouvelle worksheet excel qui ressemblerai environ a cela :


Il faudrai UN rapport par tache, donc une worksheet par tache.
Les dangers doivent etre automatiquement generes selon le choix de l'utilisateur dans le premier tableau.

De plus, les impacts, controls et Trainings doivent automatiquement etre genere selon la selection presente dans un autre tableau dans une autre worksheet :


Selon donc les dangers selectionnes par l'utilisateur, la macro devra aller chercher les differents impacts, controls et trainings associes dans ce dernier tableau.
Ensuite, un rapport devra etre genere par tache avec les dangers et ses controls, impacts et trainings associes.

J'espere avoir ete assez clair, n'hesitez pas a me demander si je dois fournir de plus ample information.

Pour resumer je dirais que l'utilisateur :
> Insere les taches et choisit les dangers associes
> Selon les dangers choisis, la macro devra aller chercher les impacts, controls et trainings associes
> Puis la macro devra generer un rapport par tache, en indiquant les dangers avec les impacts, controls et trainings respectifs.

Je voudrai juste un debut d'algo, notamment comment je peux aller chercher dans le tableau de donnes les differents controls/rimpacts/trainings selon les dangers selectionnes, y'a t'il une fonction find ? Comment je peux m'en sortir la dessus ?

Cheers !

[verredewhisky]

CA peut partir comme ca : (attention fait en 30 secondes donc super abstrait)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 
while activesheet.Cells(i,j).value<>"" 'boucle en vertical sur les taches
         for x = 1 to nombrededanger 'boucle en horizontale sur les dangers
 
            if activesheet.cells(i,j+x).value = 1 then '1 à la place de la croix, vérifie que la croix est sélectionnée
                  tableaudesdangers(i,j)=activesheet.cells(i-1,j+x).value 'insère dans un tableau le danger en fonction de la tache (deux dimensions : tableaudesdangers8taches,dangers)
            end if
        next x
i = i + 1
wend
 
'mtn tu recraches ton tableau en créant une nouvelle feuille
'etc...