Re : Erreur Formule trop longue!
Salut
Moi ca roule en simplifiant un peu...
S'il te manque des infos. j'ai mis un petit exemple en fin de procédure dans le module 1
Arghhhhh trop lourd et je n'ai pas de zip sur ce PC
Alors :
J'ai éliminé sur chaque cellule le :
Selection.ShapeRange.IncrementLeft 0
Selection.ShapeRange.IncrementTop 0
Selection.ShapeRange.ScaleWidth 0.55, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.55, msoFalse, msoScaleFromTopLeft
Si ces données sont importantes traiter comme suit:
dans chaque ordre rajouter
Range("M1270").Select
ActiveSheet.Pictures.Insert(ThisWorkbook.Path & "\Pictures\" & Range("M1271").Value & ".jpg").Select
Infoplace
et rajouter un procédure:
Sub Infoplace()
With Selection.ShapeRange
.IncrementLeft 0
.IncrementTop 0
.ScaleWidth 0.55, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.55, msoFalse, msoScaleFromTopLeft
End With
End Sub
Ya'v