Philippe LAMACHE
XLDnaute Junior
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.
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.