Bonjour,
J'ai réalisé une macro avec différentes infos pour matérialiser un cadre sur
une ligne d'un tableau excel.
Le problème est que cette macro désactive les fonctions copier coller de la
feuille ou elle se trouve.
Comment puis je réactiver ces fonctions.
si dessous mon code qui est dans le worksheet de la feuil VBA de microsoft
excel objets
Merci.
Christian.
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
h = ActiveCell.Height
t = ActiveCell.Top
On Error Resume Next
ActiveSheet.Shapes("R").Delete
On Error GoTo 0
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 0, t, 500, h).Name = "R"
With ActiveSheet.Shapes("R")
.ZOrder msoSendToBack 'mise de l''objet en arrière plan
.Fill.Visible = msoFalse
.Fill.Transparency = 0
.Line.Weight = 1.5
.Line.ForeColor.SchemeColor = 6
.Line.DashStyle = msoLineDashDot
.ControlFormat.PrintObject = False
End With
End Sub
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
isabelle
bonjour beam,
d'après moi le problème vient d'ailleurs, à moin que la macro événementielle tourne en rond...
en attendant de trouver d'ou ça vient,
execute celle ci qui sert à réparer tout les barres de commandes,
Sub reset() Dim cmdB As CommandBar For Each cmdB In Application.CommandBars cmdB.Enabled = True cmdB.Visible = True Next cmdB End Sub
isabelle
Bonjour, J'ai réalisé une macro avec différentes infos pour matérialiser un cadre sur une ligne d'un tableau excel. Le problème est que cette macro désactive les fonctions copier coller de la feuille ou elle se trouve. Comment puis je réactiver ces fonctions. si dessous mon code qui est dans le worksheet de la feuil VBA de microsoft excel objets Merci. Christian.
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) h = ActiveCell.Height t = ActiveCell.Top On Error Resume Next ActiveSheet.Shapes("R").Delete On Error GoTo 0 ActiveSheet.Shapes.AddShape(msoShapeRectangle, 0, t, 500, h).Name = "R" With ActiveSheet.Shapes("R") .ZOrder msoSendToBack 'mise de l''objet en arrière plan .Fill.Visible = msoFalse .Fill.Transparency = 0 .Line.Weight = 1.5 .Line.ForeColor.SchemeColor = 6 .Line.DashStyle = msoLineDashDot .ControlFormat.PrintObject = False End With End Sub
bonjour beam,
d'après moi le problème vient d'ailleurs,
à moin que la macro événementielle tourne en rond...
en attendant de trouver d'ou ça vient,
execute celle ci qui sert à réparer tout les barres de commandes,
Sub reset()
Dim cmdB As CommandBar
For Each cmdB In Application.CommandBars
cmdB.Enabled = True
cmdB.Visible = True
Next cmdB
End Sub
isabelle
Bonjour,
J'ai réalisé une macro avec différentes infos pour matérialiser un cadre sur
une ligne d'un tableau excel.
Le problème est que cette macro désactive les fonctions copier coller de la
feuille ou elle se trouve.
Comment puis je réactiver ces fonctions.
si dessous mon code qui est dans le worksheet de la feuil VBA de microsoft
excel objets
Merci.
Christian.
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
h = ActiveCell.Height
t = ActiveCell.Top
On Error Resume Next
ActiveSheet.Shapes("R").Delete
On Error GoTo 0
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 0, t, 500, h).Name = "R"
With ActiveSheet.Shapes("R")
.ZOrder msoSendToBack 'mise de l''objet en arrière plan
.Fill.Visible = msoFalse
.Fill.Transparency = 0
.Line.Weight = 1.5
.Line.ForeColor.SchemeColor = 6
.Line.DashStyle = msoLineDashDot
.ControlFormat.PrintObject = False
End With
End Sub
d'après moi le problème vient d'ailleurs, à moin que la macro événementielle tourne en rond...
en attendant de trouver d'ou ça vient,
execute celle ci qui sert à réparer tout les barres de commandes,
Sub reset() Dim cmdB As CommandBar For Each cmdB In Application.CommandBars cmdB.Enabled = True cmdB.Visible = True Next cmdB End Sub
isabelle
Bonjour, J'ai réalisé une macro avec différentes infos pour matérialiser un cadre sur une ligne d'un tableau excel. Le problème est que cette macro désactive les fonctions copier coller de la feuille ou elle se trouve. Comment puis je réactiver ces fonctions. si dessous mon code qui est dans le worksheet de la feuil VBA de microsoft excel objets Merci. Christian.
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) h = ActiveCell.Height t = ActiveCell.Top On Error Resume Next ActiveSheet.Shapes("R").Delete On Error GoTo 0 ActiveSheet.Shapes.AddShape(msoShapeRectangle, 0, t, 500, h).Name = "R" With ActiveSheet.Shapes("R") .ZOrder msoSendToBack 'mise de l''objet en arrière plan .Fill.Visible = msoFalse .Fill.Transparency = 0 .Line.Weight = 1.5 .Line.ForeColor.SchemeColor = 6 .Line.DashStyle = msoLineDashDot .ControlFormat.PrintObject = False End With End Sub
