coloriage d'une partie d'une ligne à l'aide d'un bouton...
6 réponses
f_bacquet
bonjour à tous;..
j'ais un problème qui pourra sembler anodin pour certain, mais qui me
bloque dans la conception d'un fichier.
En fait, j'aimerais qu'en cliquant sur une cellule, plusieurs autres
cellules de la meme ligne se colore et que le tout soit commander par
un bouton:
ex: je selectionne A5, puis je clique sur un bouton commandant une
macro qui colorie la ligne 5 de la rangé A à la rangée J.
voici la macro que j'utilise pour le moment, mais qui me permet de
colorer uniquement la cellule activée:
Sub coloriagecourse()
'
' coloriagecourse Macro
' Macro enregistrée le 03/09/2003 par xilam
'
'
ActiveCell.Select
ActiveSheet.Unprotect (Code)
With Selection.Interior
.ColorIndex = 44
.Pattern = xlSolid
End With
ActiveSheet.Protect (Code)
End Sub
Un espèrant que l'un de vous pourra m'aider.
A bientot et merci d'avance.
Frédéric Bacquet
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 Frédéric,
essaie comme ça,
Sub coloriagecourse() ActiveSheet.Unprotect (code) With Range("A" & ActiveCell.Row & ":J" & ActiveCell.Row).Interior .ColorIndex = 44 .Pattern = xlSolid End With ActiveSheet.Protect (code) End Sub
isabelle
bonjour à tous;.. j'ais un problème qui pourra sembler anodin pour certain, mais qui me bloque dans la conception d'un fichier. En fait, j'aimerais qu'en cliquant sur une cellule, plusieurs autres cellules de la meme ligne se colore et que le tout soit commander par un bouton: ex: je selectionne A5, puis je clique sur un bouton commandant une macro qui colorie la ligne 5 de la rangé A à la rangée J. voici la macro que j'utilise pour le moment, mais qui me permet de colorer uniquement la cellule activée:
Sub coloriagecourse() ' ' coloriagecourse Macro ' Macro enregistrée le 03/09/2003 par xilam '
' ActiveCell.Select ActiveSheet.Unprotect (Code) With Selection.Interior .ColorIndex = 44 .Pattern = xlSolid End With ActiveSheet.Protect (Code)
End Sub
Un espèrant que l'un de vous pourra m'aider. A bientot et merci d'avance. Frédéric Bacquet
bonjour Frédéric,
essaie comme ça,
Sub coloriagecourse()
ActiveSheet.Unprotect (code)
With Range("A" & ActiveCell.Row & ":J" & ActiveCell.Row).Interior
.ColorIndex = 44
.Pattern = xlSolid
End With
ActiveSheet.Protect (code)
End Sub
isabelle
bonjour à tous;..
j'ais un problème qui pourra sembler anodin pour certain, mais qui me
bloque dans la conception d'un fichier.
En fait, j'aimerais qu'en cliquant sur une cellule, plusieurs autres
cellules de la meme ligne se colore et que le tout soit commander par
un bouton:
ex: je selectionne A5, puis je clique sur un bouton commandant une
macro qui colorie la ligne 5 de la rangé A à la rangée J.
voici la macro que j'utilise pour le moment, mais qui me permet de
colorer uniquement la cellule activée:
Sub coloriagecourse()
'
' coloriagecourse Macro
' Macro enregistrée le 03/09/2003 par xilam
'
'
ActiveCell.Select
ActiveSheet.Unprotect (Code)
With Selection.Interior
.ColorIndex = 44
.Pattern = xlSolid
End With
ActiveSheet.Protect (Code)
End Sub
Un espèrant que l'un de vous pourra m'aider.
A bientot et merci d'avance.
Frédéric Bacquet
Sub coloriagecourse() ActiveSheet.Unprotect (code) With Range("A" & ActiveCell.Row & ":J" & ActiveCell.Row).Interior .ColorIndex = 44 .Pattern = xlSolid End With ActiveSheet.Protect (code) End Sub
isabelle
bonjour à tous;.. j'ais un problème qui pourra sembler anodin pour certain, mais qui me bloque dans la conception d'un fichier. En fait, j'aimerais qu'en cliquant sur une cellule, plusieurs autres cellules de la meme ligne se colore et que le tout soit commander par un bouton: ex: je selectionne A5, puis je clique sur un bouton commandant une macro qui colorie la ligne 5 de la rangé A à la rangée J. voici la macro que j'utilise pour le moment, mais qui me permet de colorer uniquement la cellule activée:
Sub coloriagecourse() ' ' coloriagecourse Macro ' Macro enregistrée le 03/09/2003 par xilam '
' ActiveCell.Select ActiveSheet.Unprotect (Code) With Selection.Interior .ColorIndex = 44 .Pattern = xlSolid End With ActiveSheet.Protect (Code)
End Sub
Un espèrant que l'un de vous pourra m'aider. A bientot et merci d'avance. Frédéric Bacquet
isabelle
oup's j'ai été pris de vitesse ;-) isabelle
Bonjour
Voici une idée
Sub ColoriageCourse() ActiveSheet.Unprotect (Code) With Range("a" & ActiveCell.Row & ":j" & _ ActiveCell.Row).Interior .ColorIndex = 44 .Pattern = xlSolid End With ActiveSheet.Protect (Code) End Sub
Cela convient-il ?
-- Cela convient-il? ---- Pierre Fauconnier "N'insulte pas le crocodile avant d'avoir traversé la rivière" (Julos Beaucarne)
Frédéric Bacquet wrote:
bonjour à tous;.. j'ais un problème qui pourra sembler anodin pour certain, mais qui me bloque dans la conception d'un fichier. En fait, j'aimerais qu'en cliquant sur une cellule, plusieurs autres cellules de la meme ligne se colore et que le tout soit commander par un bouton: ex: je selectionne A5, puis je clique sur un bouton commandant une macro qui colorie la ligne 5 de la rangé A à la rangée J. voici la macro que j'utilise pour le moment, mais qui me permet de colorer uniquement la cellule activée:
Sub coloriagecourse() ' ' coloriagecourse Macro ' Macro enregistrée le 03/09/2003 par xilam '
' ActiveCell.Select ActiveSheet.Unprotect (Code) With Selection.Interior .ColorIndex = 44 .Pattern = xlSolid End With ActiveSheet.Protect (Code)
End Sub
Un espèrant que l'un de vous pourra m'aider. A bientot et merci d'avance. Frédéric Bacquet
oup's j'ai été pris de vitesse ;-)
isabelle
Bonjour
Voici une idée
Sub ColoriageCourse()
ActiveSheet.Unprotect (Code)
With Range("a" & ActiveCell.Row & ":j" & _
ActiveCell.Row).Interior
.ColorIndex = 44
.Pattern = xlSolid
End With
ActiveSheet.Protect (Code)
End Sub
Cela convient-il ?
--
Cela convient-il?
----
Pierre Fauconnier
"N'insulte pas le crocodile avant d'avoir traversé la rivière" (Julos
Beaucarne)
Frédéric Bacquet wrote:
bonjour à tous;..
j'ais un problème qui pourra sembler anodin pour certain, mais qui me
bloque dans la conception d'un fichier.
En fait, j'aimerais qu'en cliquant sur une cellule, plusieurs autres
cellules de la meme ligne se colore et que le tout soit commander par
un bouton:
ex: je selectionne A5, puis je clique sur un bouton commandant une
macro qui colorie la ligne 5 de la rangé A à la rangée J.
voici la macro que j'utilise pour le moment, mais qui me permet de
colorer uniquement la cellule activée:
Sub coloriagecourse()
'
' coloriagecourse Macro
' Macro enregistrée le 03/09/2003 par xilam
'
'
ActiveCell.Select
ActiveSheet.Unprotect (Code)
With Selection.Interior
.ColorIndex = 44
.Pattern = xlSolid
End With
ActiveSheet.Protect (Code)
End Sub
Un espèrant que l'un de vous pourra m'aider.
A bientot et merci d'avance.
Frédéric Bacquet
Sub ColoriageCourse() ActiveSheet.Unprotect (Code) With Range("a" & ActiveCell.Row & ":j" & _ ActiveCell.Row).Interior .ColorIndex = 44 .Pattern = xlSolid End With ActiveSheet.Protect (Code) End Sub
Cela convient-il ?
-- Cela convient-il? ---- Pierre Fauconnier "N'insulte pas le crocodile avant d'avoir traversé la rivière" (Julos Beaucarne)
Frédéric Bacquet wrote:
bonjour à tous;.. j'ais un problème qui pourra sembler anodin pour certain, mais qui me bloque dans la conception d'un fichier. En fait, j'aimerais qu'en cliquant sur une cellule, plusieurs autres cellules de la meme ligne se colore et que le tout soit commander par un bouton: ex: je selectionne A5, puis je clique sur un bouton commandant une macro qui colorie la ligne 5 de la rangé A à la rangée J. voici la macro que j'utilise pour le moment, mais qui me permet de colorer uniquement la cellule activée:
Sub coloriagecourse() ' ' coloriagecourse Macro ' Macro enregistrée le 03/09/2003 par xilam '
' ActiveCell.Select ActiveSheet.Unprotect (Code) With Selection.Interior .ColorIndex = 44 .Pattern = xlSolid End With ActiveSheet.Protect (Code)
End Sub
Un espèrant que l'un de vous pourra m'aider. A bientot et merci d'avance. Frédéric Bacquet
Ellimac
Bonjour,
Une autre solution :
ActiveSheet.Unprotect (Code) If Activecell.Column=1 then Range(ActiveCell,ActiveCell.Offset (0,9)).Interior.ColorIndex = 44 Else End End If ActiveSheet.Protect (Code)
Camille
-----Message d'origine----- bonjour à tous;.. j'ais un problème qui pourra sembler anodin pour certain, mais qui me
bloque dans la conception d'un fichier. En fait, j'aimerais qu'en cliquant sur une cellule, plusieurs autres
cellules de la meme ligne se colore et que le tout soit commander par
un bouton: ex: je selectionne A5, puis je clique sur un bouton commandant une
macro qui colorie la ligne 5 de la rangé A à la rangée J. voici la macro que j'utilise pour le moment, mais qui me permet de
colorer uniquement la cellule activée:
Sub coloriagecourse() ' ' coloriagecourse Macro ' Macro enregistrée le 03/09/2003 par xilam '
' ActiveCell.Select ActiveSheet.Unprotect (Code) With Selection.Interior .ColorIndex = 44 .Pattern = xlSolid End With ActiveSheet.Protect (Code)
End Sub
Un espèrant que l'un de vous pourra m'aider. A bientot et merci d'avance. Frédéric Bacquet .
Bonjour,
Une autre solution :
ActiveSheet.Unprotect (Code)
If Activecell.Column=1 then
Range(ActiveCell,ActiveCell.Offset
(0,9)).Interior.ColorIndex = 44
Else
End
End If
ActiveSheet.Protect (Code)
Camille
-----Message d'origine-----
bonjour à tous;..
j'ais un problème qui pourra sembler anodin pour certain,
mais qui me
bloque dans la conception d'un fichier.
En fait, j'aimerais qu'en cliquant sur une cellule,
plusieurs autres
cellules de la meme ligne se colore et que le tout soit
commander par
un bouton:
ex: je selectionne A5, puis je clique sur un bouton
commandant une
macro qui colorie la ligne 5 de la rangé A à la rangée J.
voici la macro que j'utilise pour le moment, mais qui me
permet de
colorer uniquement la cellule activée:
Sub coloriagecourse()
'
' coloriagecourse Macro
' Macro enregistrée le 03/09/2003 par xilam
'
'
ActiveCell.Select
ActiveSheet.Unprotect (Code)
With Selection.Interior
.ColorIndex = 44
.Pattern = xlSolid
End With
ActiveSheet.Protect (Code)
End Sub
Un espèrant que l'un de vous pourra m'aider.
A bientot et merci d'avance.
Frédéric Bacquet
.
ActiveSheet.Unprotect (Code) If Activecell.Column=1 then Range(ActiveCell,ActiveCell.Offset (0,9)).Interior.ColorIndex = 44 Else End End If ActiveSheet.Protect (Code)
Camille
-----Message d'origine----- bonjour à tous;.. j'ais un problème qui pourra sembler anodin pour certain, mais qui me
bloque dans la conception d'un fichier. En fait, j'aimerais qu'en cliquant sur une cellule, plusieurs autres
cellules de la meme ligne se colore et que le tout soit commander par
un bouton: ex: je selectionne A5, puis je clique sur un bouton commandant une
macro qui colorie la ligne 5 de la rangé A à la rangée J. voici la macro que j'utilise pour le moment, mais qui me permet de
colorer uniquement la cellule activée:
Sub coloriagecourse() ' ' coloriagecourse Macro ' Macro enregistrée le 03/09/2003 par xilam '
' ActiveCell.Select ActiveSheet.Unprotect (Code) With Selection.Interior .ColorIndex = 44 .Pattern = xlSolid End With ActiveSheet.Protect (Code)
End Sub
Un espèrant que l'un de vous pourra m'aider. A bientot et merci d'avance. Frédéric Bacquet .
jdel5
Bonjour, J'ai essayé les deux solutions proposées mais j'ai toujours la même réponse "Impossible de définir la propriété ColorIndex de la classe Interior" et le débogueur me met la ligne ".ColorIndex = 44 en défaut. J'ai essayé de changer le 44 par un 6 et j'ai mis les lignes de mot de passe en commentaire mais le message est le même. J'ai Excel 97 sous Win 98 Quelqu'un peut il me dire où ça ne va pas. Merci Jdel5
"Frédéric Bacquet" a écrit dans le message de news:
bonjour à tous;.. j'ais un problème qui pourra sembler anodin pour certain, mais qui me bloque dans la conception d'un fichier. En fait, j'aimerais qu'en cliquant sur une cellule, plusieurs autres cellules de la meme ligne se colore et que le tout soit commander par un bouton: ex: je selectionne A5, puis je clique sur un bouton commandant une macro qui colorie la ligne 5 de la rangé A à la rangée J. voici la macro que j'utilise pour le moment, mais qui me permet de colorer uniquement la cellule activée:
Sub coloriagecourse() ' ' coloriagecourse Macro ' Macro enregistrée le 03/09/2003 par xilam '
' ActiveCell.Select ActiveSheet.Unprotect (Code) With Selection.Interior .ColorIndex = 44 .Pattern = xlSolid End With ActiveSheet.Protect (Code)
End Sub
Un espèrant que l'un de vous pourra m'aider. A bientot et merci d'avance. Frédéric Bacquet
Bonjour,
J'ai essayé les deux solutions proposées mais j'ai toujours la même réponse
"Impossible de définir la propriété ColorIndex de la classe Interior" et le
débogueur me met la ligne ".ColorIndex = 44 en défaut.
J'ai essayé de changer le 44 par un 6 et j'ai mis les lignes de mot de
passe en commentaire mais le message est le même.
J'ai Excel 97 sous Win 98
Quelqu'un peut il me dire où ça ne va pas.
Merci
Jdel5
"Frédéric Bacquet" <f_bacquet@yahoo.fr> a écrit dans le message de news:
28feaa3c.0309090531.53475139@posting.google.com...
bonjour à tous;..
j'ais un problème qui pourra sembler anodin pour certain, mais qui me
bloque dans la conception d'un fichier.
En fait, j'aimerais qu'en cliquant sur une cellule, plusieurs autres
cellules de la meme ligne se colore et que le tout soit commander par
un bouton:
ex: je selectionne A5, puis je clique sur un bouton commandant une
macro qui colorie la ligne 5 de la rangé A à la rangée J.
voici la macro que j'utilise pour le moment, mais qui me permet de
colorer uniquement la cellule activée:
Sub coloriagecourse()
'
' coloriagecourse Macro
' Macro enregistrée le 03/09/2003 par xilam
'
'
ActiveCell.Select
ActiveSheet.Unprotect (Code)
With Selection.Interior
.ColorIndex = 44
.Pattern = xlSolid
End With
ActiveSheet.Protect (Code)
End Sub
Un espèrant que l'un de vous pourra m'aider.
A bientot et merci d'avance.
Frédéric Bacquet
Bonjour, J'ai essayé les deux solutions proposées mais j'ai toujours la même réponse "Impossible de définir la propriété ColorIndex de la classe Interior" et le débogueur me met la ligne ".ColorIndex = 44 en défaut. J'ai essayé de changer le 44 par un 6 et j'ai mis les lignes de mot de passe en commentaire mais le message est le même. J'ai Excel 97 sous Win 98 Quelqu'un peut il me dire où ça ne va pas. Merci Jdel5
"Frédéric Bacquet" a écrit dans le message de news:
bonjour à tous;.. j'ais un problème qui pourra sembler anodin pour certain, mais qui me bloque dans la conception d'un fichier. En fait, j'aimerais qu'en cliquant sur une cellule, plusieurs autres cellules de la meme ligne se colore et que le tout soit commander par un bouton: ex: je selectionne A5, puis je clique sur un bouton commandant une macro qui colorie la ligne 5 de la rangé A à la rangée J. voici la macro que j'utilise pour le moment, mais qui me permet de colorer uniquement la cellule activée:
Sub coloriagecourse() ' ' coloriagecourse Macro ' Macro enregistrée le 03/09/2003 par xilam '
' ActiveCell.Select ActiveSheet.Unprotect (Code) With Selection.Interior .ColorIndex = 44 .Pattern = xlSolid End With ActiveSheet.Protect (Code)
End Sub
Un espèrant que l'un de vous pourra m'aider. A bientot et merci d'avance. Frédéric Bacquet
Frédéric Sigonneau
Bonsoir,
Essaye de mettre la propriété TakeFocusOnClick de ton bouton (si c'est un CommandButton) sur False.
FS -- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
Bonjour, J'ai essayé les deux solutions proposées mais j'ai toujours la même réponse "Impossible de définir la propriété ColorIndex de la classe Interior" et le débogueur me met la ligne ".ColorIndex = 44 en défaut. J'ai essayé de changer le 44 par un 6 et j'ai mis les lignes de mot de passe en commentaire mais le message est le même. J'ai Excel 97 sous Win 98 Quelqu'un peut il me dire où ça ne va pas. Merci Jdel5
"Frédéric Bacquet" a écrit dans le message de news:
bonjour à tous;.. j'ais un problème qui pourra sembler anodin pour certain, mais qui me bloque dans la conception d'un fichier. En fait, j'aimerais qu'en cliquant sur une cellule, plusieurs autres cellules de la meme ligne se colore et que le tout soit commander par un bouton: ex: je selectionne A5, puis je clique sur un bouton commandant une macro qui colorie la ligne 5 de la rangé A à la rangée J. voici la macro que j'utilise pour le moment, mais qui me permet de colorer uniquement la cellule activée:
Sub coloriagecourse() ' ' coloriagecourse Macro ' Macro enregistrée le 03/09/2003 par xilam '
' ActiveCell.Select ActiveSheet.Unprotect (Code) With Selection.Interior .ColorIndex = 44 .Pattern = xlSolid End With ActiveSheet.Protect (Code)
End Sub
Un espèrant que l'un de vous pourra m'aider. A bientot et merci d'avance. Frédéric Bacquet
Bonsoir,
Essaye de mettre la propriété TakeFocusOnClick de ton bouton (si c'est un
CommandButton) sur False.
FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !
Bonjour,
J'ai essayé les deux solutions proposées mais j'ai toujours la même réponse
"Impossible de définir la propriété ColorIndex de la classe Interior" et le
débogueur me met la ligne ".ColorIndex = 44 en défaut.
J'ai essayé de changer le 44 par un 6 et j'ai mis les lignes de mot de
passe en commentaire mais le message est le même.
J'ai Excel 97 sous Win 98
Quelqu'un peut il me dire où ça ne va pas.
Merci
Jdel5
"Frédéric Bacquet" <f_bacquet@yahoo.fr> a écrit dans le message de news:
28feaa3c.0309090531.53475139@posting.google.com...
bonjour à tous;..
j'ais un problème qui pourra sembler anodin pour certain, mais qui me
bloque dans la conception d'un fichier.
En fait, j'aimerais qu'en cliquant sur une cellule, plusieurs autres
cellules de la meme ligne se colore et que le tout soit commander par
un bouton:
ex: je selectionne A5, puis je clique sur un bouton commandant une
macro qui colorie la ligne 5 de la rangé A à la rangée J.
voici la macro que j'utilise pour le moment, mais qui me permet de
colorer uniquement la cellule activée:
Sub coloriagecourse()
'
' coloriagecourse Macro
' Macro enregistrée le 03/09/2003 par xilam
'
'
ActiveCell.Select
ActiveSheet.Unprotect (Code)
With Selection.Interior
.ColorIndex = 44
.Pattern = xlSolid
End With
ActiveSheet.Protect (Code)
End Sub
Un espèrant que l'un de vous pourra m'aider.
A bientot et merci d'avance.
Frédéric Bacquet
Essaye de mettre la propriété TakeFocusOnClick de ton bouton (si c'est un CommandButton) sur False.
FS -- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
Bonjour, J'ai essayé les deux solutions proposées mais j'ai toujours la même réponse "Impossible de définir la propriété ColorIndex de la classe Interior" et le débogueur me met la ligne ".ColorIndex = 44 en défaut. J'ai essayé de changer le 44 par un 6 et j'ai mis les lignes de mot de passe en commentaire mais le message est le même. J'ai Excel 97 sous Win 98 Quelqu'un peut il me dire où ça ne va pas. Merci Jdel5
"Frédéric Bacquet" a écrit dans le message de news:
bonjour à tous;.. j'ais un problème qui pourra sembler anodin pour certain, mais qui me bloque dans la conception d'un fichier. En fait, j'aimerais qu'en cliquant sur une cellule, plusieurs autres cellules de la meme ligne se colore et que le tout soit commander par un bouton: ex: je selectionne A5, puis je clique sur un bouton commandant une macro qui colorie la ligne 5 de la rangé A à la rangée J. voici la macro que j'utilise pour le moment, mais qui me permet de colorer uniquement la cellule activée:
Sub coloriagecourse() ' ' coloriagecourse Macro ' Macro enregistrée le 03/09/2003 par xilam '
' ActiveCell.Select ActiveSheet.Unprotect (Code) With Selection.Interior .ColorIndex = 44 .Pattern = xlSolid End With ActiveSheet.Protect (Code)
End Sub
Un espèrant que l'un de vous pourra m'aider. A bientot et merci d'avance. Frédéric Bacquet
f_bacquet
Magnifique.... grrace à toi jais moins mal a la tête...lol encore merci et surement a bientot. Frédéric Bacquet
Magnifique.... grrace à toi jais moins mal a la tête...lol
encore merci et surement a bientot.
Frédéric Bacquet