[VBA] Cellule sous graphique et colonne active

Allergique

XLDnaute Junior
Bonjour,

Dans une macro j'ai 2 problèmes que je n'arrive pas à résoudre, et après une recherche sans résultat sur le forum je poste ce message.

1er problème:

j'ai un graphique de positionné sur une page. Je souhaiterai trouver la première cellule située en dessous du graphique.

Si j'utilise la fonction ActiveSheet.Shapes("xxxx").Top, il me renvoie une position de type "520" par exemple, mais pas un nom de cellule
Comment est-ce possible de trouver que c'est la cellule "range("C30") par exemple qui est la première cellule sous le graphique?


2ème problème:

pour définir la mise en page je souhaite trouver le nom de la dernière colonne du tableau.

En utilisant le code ci-dessous, il me renvoie une colonne "11" au lieu de "K".
Code:
Range("IV" & ligne).Select
Selection.End(xlToLeft).Select
colonne = ActiveCell.Column
Comment obtenir le nom de la colonne de en lettre au lieu de chiffre?

Merci par avance pour votre aide
 

Pierrot93

XLDnaute Barbatruc
Re : [VBA] Cellule sous graphique et colonne active

Bonsoir Allergique,

pour ton 1er problème regarde peut être le code ci dessous :

Code:
MsgBox Sheets("Feuil1").ChartObjects(1).BottomRightCell.Offset(1, 0).Address
bonne soirée
@+
 

Pierrot93

XLDnaute Barbatruc
Re : [VBA] Cellule sous graphique et colonne active

Re

ta 2ème question :

Code:
Dim x As String
x = Split(ActiveCell.Address, "$")(1)
@+
 

Allergique

XLDnaute Junior
Re : [VBA] Cellule sous graphique et colonne active

Re,

Super, ça marche nickel :)

Merci pour ton aide

Bonne soirée
 

Discussions similaires


Haut Bas