Bonsoir à tous
j'utilise les deux macro ci-dessous.Les 2 fonctionnent très bien, mais je ne
peux pas les mettre sur la même feuille sinon j'ai une erreur :nom ambigue
détecté ;worksheet_selection change.
Avez vous une solution?
Merci à tous
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("CO7:CO122")) Is Nothing Then Exit Sub
Sheets("Sommaire").Select
ActiveSheet.Range("A1").Select
ActiveWindow.ScrollColumn = Selection.Column
ActiveWindow.ScrollRow = Selection.Row
End Sub
--Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
' Macro créée par G.Mourmant le 01/09/2001
' Site web : www.polykromy.com
' Copyright Gaetan Mourmant
'*** Définition des variables ***
h = ActiveCell.Height
w2 = ActiveCell.Width
t = ActiveCell.Top
w = ActiveCell.Left
'Teste si les rectangles existent déjà.
On Error Resume Next
ActiveSheet.Shapes("RectangleV").Delete
On Error Resume Next
ActiveSheet.Shapes("RectangleH").Delete
On Error GoTo 0
'Ajoute les rectangles
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 0, t, w, h).Name =
"RectangleV"
With ActiveSheet.Shapes("RectangleV")
.Fill.Visible = msoFalse
.Fill.Transparency = 0#
.Line.Weight = 3#
.Line.ForeColor.SchemeColor = 10
.ControlFormat.PrintObject = False
End With
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
Clément Marcotte
Bonjour,
On ne peut pas avoir deux procédures du même nom dans le même module.
Faut que tu mettes tes deux macros dans la même, avec assez de suppléments pour les rendre assez intelligentes ne faire qu'une ou l'autre des deux parties...
"fredbzr" a écrit dans le message de news: 439b298e$0$29220$
Bonsoir à tous j'utilise les deux macro ci-dessous.Les 2 fonctionnent très bien, mais je ne peux pas les mettre sur la même feuille sinon j'ai une erreur :nom ambigue détecté ;worksheet_selection change. Avez vous une solution? Merci à tous Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Intersect(Target, Range("CO7:CO122")) Is Nothing Then Exit Sub Sheets("Sommaire").Select ActiveSheet.Range("A1").Select ActiveWindow.ScrollColumn = Selection.Column ActiveWindow.ScrollRow = Selection.Row End Sub --Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) ' Macro créée par G.Mourmant le 01/09/2001 ' Site web : www.polykromy.com ' Copyright Gaetan Mourmant
'*** Définition des variables *** h = ActiveCell.Height w2 = ActiveCell.Width t = ActiveCell.Top w = ActiveCell.Left
'Teste si les rectangles existent déjà. On Error Resume Next ActiveSheet.Shapes("RectangleV").Delete On Error Resume Next ActiveSheet.Shapes("RectangleH").Delete On Error GoTo 0
'Ajoute les rectangles ActiveSheet.Shapes.AddShape(msoShapeRectangle, 0, t, w, h).Name = "RectangleV" With ActiveSheet.Shapes("RectangleV") .Fill.Visible = msoFalse .Fill.Transparency = 0# .Line.Weight = 3# .Line.ForeColor.SchemeColor = 10 .ControlFormat.PrintObject = False End With
With ActiveSheet.Shapes("RectangleH") .Fill.Visible = msoFalse .Fill.Transparency = 0# .Line.Weight = 3# .Line.ForeColor.SchemeColor = 10 .ControlFormat.PrintObject = False End With
End Sub
Fred
Bonjour,
On ne peut pas avoir deux procédures du même nom dans le même module.
Faut que tu mettes tes deux macros dans la même, avec assez de suppléments
pour les rendre assez intelligentes ne faire qu'une ou l'autre des deux
parties...
"fredbzr" <fredbzr@wanadoo.fr> a écrit dans le message de news:
439b298e$0$29220$8fcfb975@news.wanadoo.fr...
Bonsoir à tous
j'utilise les deux macro ci-dessous.Les 2 fonctionnent très bien, mais je
ne peux pas les mettre sur la même feuille sinon j'ai une erreur :nom
ambigue détecté ;worksheet_selection change.
Avez vous une solution?
Merci à tous
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("CO7:CO122")) Is Nothing Then Exit Sub
Sheets("Sommaire").Select
ActiveSheet.Range("A1").Select
ActiveWindow.ScrollColumn = Selection.Column
ActiveWindow.ScrollRow = Selection.Row
End Sub
--Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
' Macro créée par G.Mourmant le 01/09/2001
' Site web : www.polykromy.com
' Copyright Gaetan Mourmant
'*** Définition des variables ***
h = ActiveCell.Height
w2 = ActiveCell.Width
t = ActiveCell.Top
w = ActiveCell.Left
'Teste si les rectangles existent déjà.
On Error Resume Next
ActiveSheet.Shapes("RectangleV").Delete
On Error Resume Next
ActiveSheet.Shapes("RectangleH").Delete
On Error GoTo 0
'Ajoute les rectangles
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 0, t, w, h).Name =
"RectangleV"
With ActiveSheet.Shapes("RectangleV")
.Fill.Visible = msoFalse
.Fill.Transparency = 0#
.Line.Weight = 3#
.Line.ForeColor.SchemeColor = 10
.ControlFormat.PrintObject = False
End With
On ne peut pas avoir deux procédures du même nom dans le même module.
Faut que tu mettes tes deux macros dans la même, avec assez de suppléments pour les rendre assez intelligentes ne faire qu'une ou l'autre des deux parties...
"fredbzr" a écrit dans le message de news: 439b298e$0$29220$
Bonsoir à tous j'utilise les deux macro ci-dessous.Les 2 fonctionnent très bien, mais je ne peux pas les mettre sur la même feuille sinon j'ai une erreur :nom ambigue détecté ;worksheet_selection change. Avez vous une solution? Merci à tous Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Intersect(Target, Range("CO7:CO122")) Is Nothing Then Exit Sub Sheets("Sommaire").Select ActiveSheet.Range("A1").Select ActiveWindow.ScrollColumn = Selection.Column ActiveWindow.ScrollRow = Selection.Row End Sub --Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) ' Macro créée par G.Mourmant le 01/09/2001 ' Site web : www.polykromy.com ' Copyright Gaetan Mourmant
'*** Définition des variables *** h = ActiveCell.Height w2 = ActiveCell.Width t = ActiveCell.Top w = ActiveCell.Left
'Teste si les rectangles existent déjà. On Error Resume Next ActiveSheet.Shapes("RectangleV").Delete On Error Resume Next ActiveSheet.Shapes("RectangleH").Delete On Error GoTo 0
'Ajoute les rectangles ActiveSheet.Shapes.AddShape(msoShapeRectangle, 0, t, w, h).Name = "RectangleV" With ActiveSheet.Shapes("RectangleV") .Fill.Visible = msoFalse .Fill.Transparency = 0# .Line.Weight = 3# .Line.ForeColor.SchemeColor = 10 .ControlFormat.PrintObject = False End With
