OVH Cloud OVH Cloud

dessiner une ligne entre deux cellules

3 réponses
Avatar
Powaga Xavier
bonjour à tous,
voilà je souhaite dessiner, sous vba, une ligne entre deux cellules (par
exemple entre "A1" et "B6" )
pour cela je souhaite utiliser l'expression ci dessous

ActiveSheet.Shapes.AddLine(BeginX, BeginY, EndX, EndY).Select

mais comment connaitre les coordonnées graphiques de me deux cellules ?

merci

3 réponses

Avatar
michdenis
Bonjour Powaga,

Chaque cellule ont ces propriétés :

with Range("A1")
A = .top 'distance par rapport au haut de la feuille
B = .left 'distance par rapport à la bordure de gauche de la feuille
C = .Height 'Hauteur de la cellule
D = .Width 'largeur de la cellule
end with


Avec ceci tu devrais y arriver !


Salutations!


"Powaga Xavier" a écrit dans le message de news: 43076d3f$0$32110$
bonjour à tous,
voilà je souhaite dessiner, sous vba, une ligne entre deux cellules (par
exemple entre "A1" et "B6" )
pour cela je souhaite utiliser l'expression ci dessous

ActiveSheet.Shapes.AddLine(BeginX, BeginY, EndX, EndY).Select

mais comment connaitre les coordonnées graphiques de me deux cellules ?

merci
Avatar
jps
ouais et gare si on a le malheur d'écrire Heigth....comme ça m'est arrivé
une fois et que je me suis vraiment creusé le ciboulot pour trouver
l'erreur...
jps

"michdenis" a écrit dans le message de news:

Bonjour Powaga,

Chaque cellule ont ces propriétés :

with Range("A1")
A = .top 'distance par rapport au haut de la feuille
B = .left 'distance par rapport à la bordure de gauche de la
feuille
C = .Height 'Hauteur de la cellule
D = .Width 'largeur de la cellule
end with


Avec ceci tu devrais y arriver !


Salutations!


"Powaga Xavier" a écrit dans le message de news:
43076d3f$0$32110$
bonjour à tous,
voilà je souhaite dessiner, sous vba, une ligne entre deux cellules (par
exemple entre "A1" et "B6" )
pour cela je souhaite utiliser l'expression ci dessous

ActiveSheet.Shapes.AddLine(BeginX, BeginY, EndX, EndY).Select

mais comment connaitre les coordonnées graphiques de me deux cellules ?

merci





Avatar
michdenis
Les petits plaisirs de l'orthographe ! Et dire que certains ça leur arrive que dans une langue, les érudits !

;-))


Salutations!


"jps" a écrit dans le message de news:
ouais et gare si on a le malheur d'écrire Heigth....comme ça m'est arrivé
une fois et que je me suis vraiment creusé le ciboulot pour trouver
l'erreur...
jps

"michdenis" a écrit dans le message de news:

Bonjour Powaga,

Chaque cellule ont ces propriétés :

with Range("A1")
A = .top 'distance par rapport au haut de la feuille
B = .left 'distance par rapport à la bordure de gauche de la
feuille
C = .Height 'Hauteur de la cellule
D = .Width 'largeur de la cellule
end with


Avec ceci tu devrais y arriver !


Salutations!


"Powaga Xavier" a écrit dans le message de news:
43076d3f$0$32110$
bonjour à tous,
voilà je souhaite dessiner, sous vba, une ligne entre deux cellules (par
exemple entre "A1" et "B6" )
pour cela je souhaite utiliser l'expression ci dessous

ActiveSheet.Shapes.AddLine(BeginX, BeginY, EndX, EndY).Select

mais comment connaitre les coordonnées graphiques de me deux cellules ?

merci