Interaction graphique VBA
anthony629 Messages postés 54 Statut Membre -
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
8 réponses
-
Bonjour,
Probablement réalisable, mais sans la structure du fichier ce n'est pas possible dans dire plus!
-
Bonjour,
Comment sont organisé les données et le diagramme de Gantt ...!
-
Le gantt est un diagramme de "barres groupées" issue d'un tableau de ce type
-
-
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
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.
-
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"
-
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...!
-
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
