Interaction graphique VBA Fermé

Question

Bonjour à tous, je travail à l’élaboration d'un gantt sur excel avec des userform etc..., j'aimerais qu'en cliquant sur une barre du gantt (qui n'est rien de plus qu'un graphique histogramme) il me sorte dans une cellule pré-definie le nom de la personne associé à cette tâche, savez vous si cela est possible ? si oui, comment feriez vous ?

j'imaginais un truc du style:

if "la 3eme barre du graph est sélectionnée" then "range("A1")= nom du responsable de la tâche"

Merci par avance

Le Pingou · Answer

Bonjour,

Probablement réalisable, mais sans la structure du fichier ce n'est pas possible dans dire plus!

Le Pingou · Answer

Bonjour,

Comment sont organisé les données et le diagramme de Gantt ...!

anthony629 · Answer

Le gantt est un diagramme de "barres groupées" issue d'un tableau de ce type

Le Pingou · Answer

Bonjour,

il me sorte dans une cellule pré-definie le nom de la personne associé à cette tâche, savez vous si cela est possible ?

Eh bien selon les 2 images présentées c'est impossible car le nom n'y figure pas.

anthony629 · Answer

Bonjour,

le nom du responsable est dans la colonne "rptask", j'aurai voulu quand cliquant sur une des barre du diagramme un algo vienne parcourir le tableau et me sorte le "rptask" de la ligne correspondante à la barre sur la quelle j'ai cliqué, mais après effectivement le nom n’intervient pas dans le tableau.

le code au quel je pensais était du genre if : "barre numéro 2 est sélectionnée" then "parcourir le tableau pour me sortir le nom de la barre 2"

Le Pingou · Answer

Bonjour,

Oui je comprends  cependant vos informations ne me permettent pas de vous proposer une solution.

En plus ou est la correspondance entre vos 2 images ...feuilles.... colonnes...lignes....

Le fichier manque...!

Le Pingou · Answer

Bonjour,

Une possibilité à adapter selon la structure de votre fichier:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("Mon diagramme Gantt")) Is Nothing Then
MsgBox "Click on " & Target.Address
prcel = Range("Mon diagramme Gantt")
'recherche dans la plage de données Image 1"
rptask = Range("Mes données image 1") '"Valeur colonne(rptask) de la ligne Target.row
Range("A1") = rptask
End If
End Sub

Interaction graphique VBA

8 réponses

Discussions similaires