tableau à 10 colonnes
des valeurs sont à entrer dans la 10ème colonne
je veux qu'à la selection de ma cellule de cette colonne,la premiere cellule
de la ligne soit mis en surbrillance
merci pour votre aide
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
Boursicot
Bonjour,
Une macro écrite par gaetan Moumant qui fait à peu près ce que je pense que tu souhaites elle encadre les cellules de la ligne et de la colonne, tu peux l'adapter.
La macro est à installer dans le code de la feuille elle même.
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
'Cette macro a été créée par Gaëtan Mourmant (janvier 2002) 'Contact :
'*** Définition des variables *** 'Hauteur de la cellule active h = ActiveCell.Height
'Largeur de la cellule active w2 = ActiveCell.Width
'Hauteur entre la cellule active et la première ligne t = ActiveCell.Top
'Largeur entre la cellule active et la première colonne W = ActiveCell.Left
'Teste si les rectangles existent déjà. Dans ce cas, on les efface. 'On utilise ici On Error Resume Next, qui permet de tester ' l'erreur de création d'un rectangle en double portant le même nom. On Error Resume Next ActiveSheet.Shapes("RectangleV").Delete On Error Resume Next ActiveSheet.Shapes("RectangleH").Delete
' Ajoute les rectangles en fonction des coordonnées précédemment calculées. ' Les rectangles sont transparents, de grosseur 3 et de couleur rouge (10) ' On ne peut pas les imprimer. ActiveSheet.Shapes.AddShape(msoShapeRectangle, 0, t, W, h).Name "RectangleV" With ActiveSheet.Shapes("RectangleV") .Fill.Visible = msoFalse .Fill.Transparency = 0# .Line.Weight = 2# .Line.ForeColor.SchemeColor = 10 .PrintObject = False End With
With ActiveSheet.Shapes("RectangleH") .Fill.Visible = msoFalse .Fill.Transparency = 0# .Line.Weight = 1# .Line.ForeColor.SchemeColor = 10 .PrintObject = False End With
End Sub
Cordialement.
"david p" a écrit dans le message de news:c60qgh$pbt$
tableau à 10 colonnes des valeurs sont à entrer dans la 10ème colonne je veux qu'à la selection de ma cellule de cette colonne,la premiere cellule
de la ligne soit mis en surbrillance merci pour votre aide
Bonjour,
Une macro écrite par gaetan Moumant qui fait à peu près ce que je pense que
tu souhaites elle encadre les cellules de la ligne et de la colonne, tu peux
l'adapter.
La macro est à installer dans le code de la feuille elle même.
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
'Cette macro a été créée par Gaëtan Mourmant (janvier 2002)
'Contact : contact@polykromy.com
'*** Définition des variables ***
'Hauteur de la cellule active
h = ActiveCell.Height
'Largeur de la cellule active
w2 = ActiveCell.Width
'Hauteur entre la cellule active et la première ligne
t = ActiveCell.Top
'Largeur entre la cellule active et la première colonne
W = ActiveCell.Left
'Teste si les rectangles existent déjà. Dans ce cas, on les efface.
'On utilise ici On Error Resume Next, qui permet de tester
' l'erreur de création d'un rectangle en double portant le même nom.
On Error Resume Next
ActiveSheet.Shapes("RectangleV").Delete
On Error Resume Next
ActiveSheet.Shapes("RectangleH").Delete
' Ajoute les rectangles en fonction des coordonnées précédemment calculées.
' Les rectangles sont transparents, de grosseur 3 et de couleur rouge (10)
' On ne peut pas les imprimer.
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 0, t, W, h).Name "RectangleV"
With ActiveSheet.Shapes("RectangleV")
.Fill.Visible = msoFalse
.Fill.Transparency = 0#
.Line.Weight = 2#
.Line.ForeColor.SchemeColor = 10
.PrintObject = False
End With
Une macro écrite par gaetan Moumant qui fait à peu près ce que je pense que tu souhaites elle encadre les cellules de la ligne et de la colonne, tu peux l'adapter.
La macro est à installer dans le code de la feuille elle même.
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
'Cette macro a été créée par Gaëtan Mourmant (janvier 2002) 'Contact :
'*** Définition des variables *** 'Hauteur de la cellule active h = ActiveCell.Height
'Largeur de la cellule active w2 = ActiveCell.Width
'Hauteur entre la cellule active et la première ligne t = ActiveCell.Top
'Largeur entre la cellule active et la première colonne W = ActiveCell.Left
'Teste si les rectangles existent déjà. Dans ce cas, on les efface. 'On utilise ici On Error Resume Next, qui permet de tester ' l'erreur de création d'un rectangle en double portant le même nom. On Error Resume Next ActiveSheet.Shapes("RectangleV").Delete On Error Resume Next ActiveSheet.Shapes("RectangleH").Delete
' Ajoute les rectangles en fonction des coordonnées précédemment calculées. ' Les rectangles sont transparents, de grosseur 3 et de couleur rouge (10) ' On ne peut pas les imprimer. ActiveSheet.Shapes.AddShape(msoShapeRectangle, 0, t, W, h).Name "RectangleV" With ActiveSheet.Shapes("RectangleV") .Fill.Visible = msoFalse .Fill.Transparency = 0# .Line.Weight = 2# .Line.ForeColor.SchemeColor = 10 .PrintObject = False End With
