Image trouver l'adresse de sa position

  • Initiateur de la discussion Initiateur de la discussion MJ13
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

MJ13

XLDnaute Barbatruc
Bonjour à tous

J'ai une image sur une feuille que je sélectionne.

Comment puis je connaître l'adresse de la cellule où se trouve l'image?

Merci d'avance.
 
Re : Image trouver l'adresse de sa position

Bonjour,

TopLeftCell.Address donne la cellule où est située une image.

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

Sur cet exemple, nous supprimons le shape de la cellule B10

Sub EffaceMentShapeCellule()
For Each s In ActiveSheet.Shapes
If s.TopLeftCell.Address = "$B$10" Then s.Delete
Next s
End Sub

Cellules contenant des images:

For Each s In ActiveSheet.Shapes
x= s.TopLeftCell.Address
y= s.BottomRightCell.Address
Next s

Les images et shapes

JB
 
Dernière édition:
Re : Image trouver l'adresse de sa position

bonjour Michel

A tester:

Code:
Sub test()
haut = Selection.Top
gauche = Selection.Left
For n = 1 To 65536
  diff = haut - Range("A" & n).Top
  If diff < 0 Then
    ligne = n - 1
    Exit For
  End If
Next n
For n = 1 To 256
  diff = gauche - Cells(1, n).Left
  If diff < 0 Then
    colonne = n - 1
    Exit For
  End If
Next n
MsgBox (Cells(ligne, colonne).Address(0, 0))
End Sub

Edit: A la bourre !!!
Et pas tres bon en plus !!!
Salut JB
 
Re : Image trouver l'adresse de sa position

Bonjour Pierrejean, Hervé

Merci pour vos solutions.

Chapeau Pierrejean pour ce code.

Bon du coups, j'ai pu centrer mes images sur les cellules.

Voici le fichier pour centrer les images avec le code qui va bien et qui devrait bien me servir dans l'avenir (Testé sur XL2003.).
 

Pièces jointes

Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
177
  • Question Question
Réponses
2
Affichages
74
  • Question Question
Réponses
6
Affichages
290
Retour