Bonjour,
j'ai cherché désespérément la ligne de code mais je ne trouve pas.
Je voudrais pouvoir dans une macro (et non un msgbox), retrouver le nom d'un shape sélectionné dans une feuille.
exemple:
dans la feuille "Carte", j'ai plusieurs shapes que j'ai créé (Forme libre) dont BVMât, ou encore BVJean.
Je sélectionne BVMât et je souhaite via une macro le colorer en vert et en même temps que dans une autre feuille ("données_carte"), la cellule correspondant au BVMât affiche le chiffre 2.
sub BVcoul()
On Error GoTo fin
nom = Sheets("Carte").ActiveShapes.name '?????'
With Selection.ShapeRange.Fill
.Visible = msoTrue
.Solid
.ForeColor.RGB = RGB(146, 208, 80)
.Transparency = 0
End With
Range("nom").value=2
Exit Sub
fin:
MsgBox ("Vérifiez qu'au moins un bassin soit sélectionné!")
End Sub
Merci d'avance pour votre aide.
Cdl.
j'ai cherché désespérément la ligne de code mais je ne trouve pas.
Je voudrais pouvoir dans une macro (et non un msgbox), retrouver le nom d'un shape sélectionné dans une feuille.
exemple:
dans la feuille "Carte", j'ai plusieurs shapes que j'ai créé (Forme libre) dont BVMât, ou encore BVJean.
Je sélectionne BVMât et je souhaite via une macro le colorer en vert et en même temps que dans une autre feuille ("données_carte"), la cellule correspondant au BVMât affiche le chiffre 2.
sub BVcoul()
On Error GoTo fin
nom = Sheets("Carte").ActiveShapes.name '?????'
With Selection.ShapeRange.Fill
.Visible = msoTrue
.Solid
.ForeColor.RGB = RGB(146, 208, 80)
.Transparency = 0
End With
Range("nom").value=2
Exit Sub
fin:
MsgBox ("Vérifiez qu'au moins un bassin soit sélectionné!")
End Sub
Merci d'avance pour votre aide.
Cdl.