L'informatique à votre portée
L'informatique prêt-à-porter

Faites appel à moi pour vos formations
sur les dpts 81, 31, 82, 11 et 67 (Strasbourg)
Confiez moi vos développements Office

FacebookTwitterGoogle BookmarksLinkedin

Adapter une forme sélectionnée à la taille de la cellule située dessous

Imprimer E-mail
5 mars 2014

Sub TailleForme()
    If Not (VarType(Selection) = vbObject) Then Exit Sub
    
    With Selection
        .Top = .TopLeftCell.Top
        .Left = .TopLeftCell.Top
        .Height = .TopLeftCell.Height
        .Width = .TopLeftCell.Width
    End With
End Sub