Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Shape

4 réponses
Avatar
M41
Bonjour

Si on place un objet Shape sur une cellule d'une feuille
(par exemple un rectangle)
peut on déterminer avec VBA sur quelle cellule il a été placé ?
(si tous les shapes appellent le même Sub)

Coardialement

M41

4 réponses

Avatar
JB
Bonjour,

x = ActiveSheet.Shapes(1).TopLeftCell.Address
x = ActiveSheet.Shapes("xxx").TopLeftCell.Address

JB
http://boisgontierjacques.free.fr


On 15 mar, 13:09, "M41" wrote:
Bonjour

Si on place un objet Shape sur une cellule d'une feuille
(par exemple un rectangle)
peut on déterminer avec VBA sur quelle cellule il a été placé ?
(si tous les shapes appellent le même Sub)

Coardialement

M41


Avatar
M41
Boujour et merci

TopLeftCell sur Excel XP ne fonctionne que pour Shape et non Shapes.

Cordialement

M41


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

Bonjour,

x = ActiveSheet.Shapes(1).TopLeftCell.Address
x = ActiveSheet.Shapes("xxx").TopLeftCell.Address

JB
http://boisgontierjacques.free.fr


On 15 mar, 13:09, "M41" wrote:
Bonjour

Si on place un objet Shape sur une cellule d'une feuille
(par exemple un rectangle)
peut on déterminer avec VBA sur quelle cellule il a été placé ?
(si tous les shapes appellent le même Sub)

Coardialement

M41


Avatar
JB
Bonjour,

http://cjoint.com/?dqpapRdo8x

JB

On 16 mar, 10:35, "M41" wrote:
Boujour et merci

TopLeftCell sur Excel XP ne fonctionne que pour Shape et non Shapes.

Cordialement

M41

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

Bonjour,

 x = ActiveSheet.Shapes(1).TopLeftCell.Address
 x = ActiveSheet.Shapes("xxx").TopLeftCell.Address

JBhttp://boisgontierjacques.free.fr

On 15 mar, 13:09, "M41" wrote:



Bonjour

Si on place un objet Shape sur une cellule d'une feuille
(par exemple un rectangle)
peut on déterminer avec VBA sur quelle cellule il a été placé ?
(si tous les shapes appellent le même Sub)

Coardialement

M41- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -



Avatar
M41
Bonsoir et merci

TopLeftCell ne figure pas dans mon explorateur d'objets pour Shapes mais ça
marche !
(y figure pour Shape)

Cordialement

M41

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

Bonjour,

http://cjoint.com/?dqpapRdo8x

JB

On 16 mar, 10:35, "M41" wrote:
Boujour et merci

TopLeftCell sur Excel XP ne fonctionne que pour Shape et non Shapes.

Cordialement

M41

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

Bonjour,

x = ActiveSheet.Shapes(1).TopLeftCell.Address
x = ActiveSheet.Shapes("xxx").TopLeftCell.Address

JBhttp://boisgontierjacques.free.fr

On 15 mar, 13:09, "M41" wrote:



Bonjour

Si on place un objet Shape sur une cellule d'une feuille
(par exemple un rectangle)
peut on déterminer avec VBA sur quelle cellule il a été placé ?
(si tous les shapes appellent le même Sub)

Coardialement

M41- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -