Déplacer un trait dans une cellule
Bonjour,
Dans le fichier exemple, je souhaiterai faire déplacer un trait que j'ai mis dans une cellule en fonction de la distance indiquée en D6.
La cellule a une largeur de 20.
La note en D6 peut aller de 0 à 20
Donc le trait doit pouvoir se déplacer sur cette cellule entre le début et la fin.
Le fichier sera peut-être plus clair.
Merci
Bonjour,
Comment est modifié D6 ? Est-ce par un calcul (une formule) , de manière manuelle ou avec une toupie ?
Si c'est par formule indiquer la (les) source (s) et le mode d'entrée de chacune.
A+
Bonjour Galopin
Dans le vrai fichier, la cellule D6 est une formule:
MOYENNE(INDIRECT($I$28&"!E4:E55")La feuille est variable d'où la fonction INDIRECT
La moyenne se fait sur les plages "E4:E55"
En espérant avoir répondu..
Faut-il partir sur un ".shapes.left" et ".shapes.top" ??
Merci
Bonjour,
Voici une solution valable quelle que soit la largeur de la colonne D :
Sub galopin()
coef = ([E6].Left - [D6].Left) / 20
i = [D6] * coef
ActiveSheet.Shapes.Range(Array("Straight Connector 2")).Left = [D6].Left + i
End SubNota : On peut peut-être le traiter en évènementiel avec Worksheet_Change (sur I28) ou Worksheet_Activate... ça dépend un peu de tes conditions de travail...
A+
Re
J'ai un bug sur la dernière ligne.
Que veut dire cette partie de code?
Range(Array("Straight Connector 2"))Merci
Cette macro est adaptée au classeur joint...
Sur ton véritable classeur tu dois utiliser l'identifiant de ta ligne... (Enregistre une courte macro ou tu déplaces manuellement cette ligne pour récupérer l'identifiant.)
OK merci beaucoup.
J'avais déjà essayé avec l'enregistreur de macro mais sans succès.
Il suffisait de regarder dans la case entre les noms de ligne et colonne.
Ca fonctionne maintenant.