Bonjour,
J'ai une suite de shape rectangle qui se créé selon le code suivant :
J’aimerais pourvoir nommer les rectangles créés ,via ce code, avec la cellules dans lequel ils paraissent (sachant que la cellule est aléatoire en fonction de la cellule sélectionnée , ... Mais impossible de trouver la solution
Sinon a Default de leur donner les nom 1,2,3,4....
Merci par avance pour votre aide
J'ai une suite de shape rectangle qui se créé selon le code suivant :
VB:
x = ActiveCell.Row ' définit la ligne de la cellule active
y = ActiveCell.Column ' définit la colonne de la cellule active
For L = x To x + 5 ' 8 est le nombre de rectangles en X
For C = y To y + 5 ' 5 est le nombre de rectangles en Y
With Cells(L, C)
ActiveSheet.Shapes.AddShape(msoShapeRectangle, .Left, .Top, .Width, .Height).Select
Selection.ShapeRange.ShapeStyle = msoShapeStylePreset1
End With
Next C
Next L
J’aimerais pourvoir nommer les rectangles créés ,via ce code, avec la cellules dans lequel ils paraissent (sachant que la cellule est aléatoire en fonction de la cellule sélectionnée , ... Mais impossible de trouver la solution
Sinon a Default de leur donner les nom 1,2,3,4....
Merci par avance pour votre aide