XL 2013 Comment passer d'une image sélectionnée à la cellule en dessous

Philippe LAMACHE

XLDnaute Nouveau
Bonjour à tous,

J'ai créé (bricolé surtout) un petit bout de code pour me positionner en dessous de la dernière des images existantes d'une feuille mais c'est un peu aléatoire (tout dépent de la position des images).

Voici mon code :

Sub CellDernImage()
Dim Ma_Forme As Picture
For Each Ma_Forme In ActiveSheet.Pictures
If Ma_Forme Is Nothing Then
MsgBox "aucunes images"
Else
Ma_Forme.Select
MonAdresse = Ma_Forme.TopLeftCell.Address
Mahauteur = Ma_Forme.Height / 15 + 2
End If
Next Ma_Forme
If Mahauteur = "" Then
Exit Sub
Else
' Range(Range(MonAdresse).Offset(Mahauteur, 0), Range(MonAdresse).Offset(Mahauteur, 13)).Select
' Selection.Borders(xlEdgeBottom).Weight = xlMedium
Range(MonAdresse).Offset(Mahauteur, 0).Select
End If
End Sub

Ma question est :
Peut-on passer d'une image selectionnée à la cellule qui se trouve en dessous ?
(ce qui correspondrait à Ma_Forme.Offset(1, 0).Select mais çà, ça marche pas)

Par avance, merci.

Philippe.
 

Roblochon

XLDnaute Impliqué
Bonjour

Entre TopLeftCell.Column (cellule haut gauche) et BottomRightCell.Row (cellule bas droite) vous devriez vous en sortir.

exemple :
VB:
with MaForme

          set LaCelluleEnDessous =.Parent.Cells(.BottomRightCell.Row+1, .TopLeftCell.Column)

End With
Bonne fin d'après midi
 

Philippe LAMACHE

XLDnaute Nouveau
Bonjour

Entre TopLeftCell.Column (cellule haut gauche) et BottomRightCell.Row (cellule bas droite) vous devriez vous en sortir.

exemple :
VB:
with MaForme

          set LaCelluleEnDessous =.Parent.Cells(.BottomRightCell.Row+1, .TopLeftCell.Column)

End With
Bonne fin d'après midi
Merci Roblochon, je vais explorer ça.
 

Discussions similaires


Haut Bas