Interaction graphique VBA
anthony629 Messages postés 49 Date d'inscription Statut Membre Dernière intervention -
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
- Interaction graphique VBA
- Changer carte graphique - Guide
- Graphique sparkline - Guide
- Graphique camembert excel - Guide
- Comment faire un graphique sur excel - Guide
- Planification de processeur graphique à accélération matérielle - Guide
8 réponses
Bonjour,
Probablement réalisable, mais sans la structure du fichier ce n'est pas possible dans dire plus!
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
Bonjour
Que voulez vous dire par structure du fichier ?