Roland_M
XLDnaute Barbatruc
A Pascal76 et tous les autres !
Toutes mes excuses les plus sinçères ! c’était la première fois que j’allais sur un forum
Je pensais qu’il fallait être le plus court et le plus bref possible
Je suis un peu perdu dans les menus et j’ai peur de faire n’importe quoi
Alors je reste simple. Je sais même pas comment vous remercier si j’ai une réponse !?
Je vais essayer de fouiller un peu dans les menus.
A tous bien le bonjour et toutes mes amitiés !
Question très simple mais incompréhensible :
Sous Excel 2003 (avec VBA)
Pour positionner une image sur une cellule précise Exp un petit rectangle qui me sert de curseur :
AdresPointage$ = Cells(NoLigFeuilSelect, NoColFeuilSelect).Address
With Range(AdresPointage$): TopAdresCells = .Top: LeftAdresCells = .Left: End With
With ActiveSheet.Shapes(ShapeCursPointage$): .Top = TopAdresCells: .Left = LeftAdresCells: End With
Ceci est toujours correct positionné sur n’importe quelle cellule.
Sous Excel 2007
La position n’est plus correct dès que le zoom feuille est différent de 100
L’image ne se positionne pas sur la cellule destinée
il y a toujours un décalage qui augmente avec le déplacement du dessin dans la feuille !?
Plus l’adresse est lointaine plus l’écart est complètement à côté de la cellule destinée !?
Merci d’avance à tous pour votre réponse.
(surtout Pascal qui m’a donné la marche à suivre je n’avais pas vu la charte)
Toutes mes excuses les plus sinçères ! c’était la première fois que j’allais sur un forum
Je pensais qu’il fallait être le plus court et le plus bref possible
Je suis un peu perdu dans les menus et j’ai peur de faire n’importe quoi
Alors je reste simple. Je sais même pas comment vous remercier si j’ai une réponse !?
Je vais essayer de fouiller un peu dans les menus.
A tous bien le bonjour et toutes mes amitiés !
Question très simple mais incompréhensible :
Sous Excel 2003 (avec VBA)
Pour positionner une image sur une cellule précise Exp un petit rectangle qui me sert de curseur :
AdresPointage$ = Cells(NoLigFeuilSelect, NoColFeuilSelect).Address
With Range(AdresPointage$): TopAdresCells = .Top: LeftAdresCells = .Left: End With
With ActiveSheet.Shapes(ShapeCursPointage$): .Top = TopAdresCells: .Left = LeftAdresCells: End With
Ceci est toujours correct positionné sur n’importe quelle cellule.
Sous Excel 2007
La position n’est plus correct dès que le zoom feuille est différent de 100
L’image ne se positionne pas sur la cellule destinée
il y a toujours un décalage qui augmente avec le déplacement du dessin dans la feuille !?
Plus l’adresse est lointaine plus l’écart est complètement à côté de la cellule destinée !?
Merci d’avance à tous pour votre réponse.
(surtout Pascal qui m’a donné la marche à suivre je n’avais pas vu la charte)
Dernière édition:
