Je voudrais pouvoir colorier des cellules
par simple clic, et ce, pour n'importe quel classeur.
J'ai trouvé une solution mais ce n'est peut être
pas la meilleure : quelqu'un a t il plus simple ?
'Le premier bouton de ma barre Standart créé la macro suivante :
Sub CreeMacro()
With ActiveWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule
X = .CountOfLines
.InsertLines X + 1, "Private Sub Workbook_SheetSelectionChange(ByVal Sh As
Object, ByVal Target As Excel.Range)"
.InsertLines X + 2, "With Selection.Interior"
.InsertLines X + 3, "If .ColorIndex=8 Then .ColorIndex=0 Else .ColorIndex=8"
.InsertLines X + 4, "End With"
.InsertLines X + 5, "End Sub"
End With
End Sub
'Le second bouton de ma barre Standard efface cette macro :
Sub SupprimeMacro()
With ActiveWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule
debut = .ProcStartLine("Workbook_SheetSelectionChange", vbext_pk_Proc)
nblignes = .ProcCountLines("Workbook_SheetSelectionChange", vbext_pk_Proc)
.deleteLines debut, nblignes
End With
End Sub
"Charles Cournault" a écrit dans le message de news: 3f4d06d0$0$239$
Bonsoir
Je voudrais pouvoir colorier des cellules par simple clic, et ce, pour n'importe quel classeur.
J'ai trouvé une solution mais ce n'est peut être pas la meilleure : quelqu'un a t il plus simple ?
'Le premier bouton de ma barre Standart créé la macro suivante :
Sub CreeMacro() With ActiveWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule X = .CountOfLines .InsertLines X + 1, "Private Sub Workbook_SheetSelectionChange(ByVal Sh As
Object, ByVal Target As Excel.Range)" .InsertLines X + 2, "With Selection.Interior" .InsertLines X + 3, "If .ColorIndex=8 Then .ColorIndex=0 Else .ColorIndex=8"
.InsertLines X + 4, "End With" .InsertLines X + 5, "End Sub" End With End Sub
'Le second bouton de ma barre Standard efface cette macro :
Sub SupprimeMacro() With ActiveWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule debut = .ProcStartLine("Workbook_SheetSelectionChange", vbext_pk_Proc) nblignes = .ProcCountLines("Workbook_SheetSelectionChange", vbext_pk_Proc)
.deleteLines debut, nblignes End With End Sub
Merci
Quelles macros complémentaires ? Ou les trouver ?
"Gaetan Mourmant" <gmourmant@hotmail.com> a écrit dans le message de news:
uT75JuNbDHA.1748@TK2MSFTNGP12.phx.gbl...
"Charles Cournault" <charles.cournault@free.fr> a écrit dans le message de
news: 3f4d06d0$0$239$4d4eb98e@read.news.fr.uu.net...
Bonsoir
Je voudrais pouvoir colorier des cellules
par simple clic, et ce, pour n'importe quel classeur.
J'ai trouvé une solution mais ce n'est peut être
pas la meilleure : quelqu'un a t il plus simple ?
'Le premier bouton de ma barre Standart créé la macro suivante :
Sub CreeMacro()
With ActiveWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule
X = .CountOfLines
.InsertLines X + 1, "Private Sub Workbook_SheetSelectionChange(ByVal Sh
As
Object, ByVal Target As Excel.Range)"
.InsertLines X + 2, "With Selection.Interior"
.InsertLines X + 3, "If .ColorIndex=8 Then .ColorIndex=0 Else
.ColorIndex=8"
.InsertLines X + 4, "End With"
.InsertLines X + 5, "End Sub"
End With
End Sub
'Le second bouton de ma barre Standard efface cette macro :
Sub SupprimeMacro()
With ActiveWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule
debut = .ProcStartLine("Workbook_SheetSelectionChange", vbext_pk_Proc)
nblignes = .ProcCountLines("Workbook_SheetSelectionChange",
vbext_pk_Proc)
"Charles Cournault" a écrit dans le message de news: 3f4d06d0$0$239$
Bonsoir
Je voudrais pouvoir colorier des cellules par simple clic, et ce, pour n'importe quel classeur.
J'ai trouvé une solution mais ce n'est peut être pas la meilleure : quelqu'un a t il plus simple ?
'Le premier bouton de ma barre Standart créé la macro suivante :
Sub CreeMacro() With ActiveWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule X = .CountOfLines .InsertLines X + 1, "Private Sub Workbook_SheetSelectionChange(ByVal Sh As
Object, ByVal Target As Excel.Range)" .InsertLines X + 2, "With Selection.Interior" .InsertLines X + 3, "If .ColorIndex=8 Then .ColorIndex=0 Else .ColorIndex=8"
.InsertLines X + 4, "End With" .InsertLines X + 5, "End Sub" End With End Sub
'Le second bouton de ma barre Standard efface cette macro :
Sub SupprimeMacro() With ActiveWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule debut = .ProcStartLine("Workbook_SheetSelectionChange", vbext_pk_Proc) nblignes = .ProcCountLines("Workbook_SheetSelectionChange", vbext_pk_Proc)
.deleteLines debut, nblignes End With End Sub
Merci
Gaetan Mourmant
En fait, je veux dire créer une macro complémentaire qui reprend le code que tu généres...Si j'ai bien compris le problème.
Tiré de la FAQ : http://longre.free.fr/pages/faq/#Macro%20XLA
Comment créer une macro complémentaire (fichier XLA) ? Sous Excel, faire Fichier -> Enregistrer sous. Le type "macro complémentaire" est en dernière position dans la liste déroulante "Type de fichier". Contrairement à Excel 5/95, les macros XLA d'Excel 97 ne sont pas cryptées.
Je voudrais pouvoir colorier des cellules par simple clic, et ce, pour n'importe quel classeur.
J'ai trouvé une solution mais ce n'est peut être pas la meilleure : quelqu'un a t il plus simple ?
'Le premier bouton de ma barre Standart créé la macro suivante :
Sub CreeMacro() With ActiveWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule X = .CountOfLines .InsertLines X + 1, "Private Sub Workbook_SheetSelectionChange(ByVal Sh
As
Object, ByVal Target As Excel.Range)" .InsertLines X + 2, "With Selection.Interior" .InsertLines X + 3, "If .ColorIndex=8 Then .ColorIndex=0 Else .ColorIndex=8"
.InsertLines X + 4, "End With" .InsertLines X + 5, "End Sub" End With End Sub
'Le second bouton de ma barre Standard efface cette macro :
Sub SupprimeMacro() With ActiveWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule debut = .ProcStartLine("Workbook_SheetSelectionChange", vbext_pk_Proc) nblignes = .ProcCountLines("Workbook_SheetSelectionChange", vbext_pk_Proc)
.deleteLines debut, nblignes End With End Sub
Merci
En fait, je veux dire créer une macro complémentaire qui reprend le code que
tu généres...Si j'ai bien compris le problème.
Tiré de la FAQ :
http://longre.free.fr/pages/faq/#Macro%20XLA
Comment créer une macro complémentaire (fichier XLA) ?
Sous Excel, faire Fichier -> Enregistrer sous. Le type "macro
complémentaire" est en dernière position dans la liste déroulante "Type de
fichier". Contrairement à Excel 5/95, les macros XLA d'Excel 97 ne sont pas
cryptées.
Je voudrais pouvoir colorier des cellules
par simple clic, et ce, pour n'importe quel classeur.
J'ai trouvé une solution mais ce n'est peut être
pas la meilleure : quelqu'un a t il plus simple ?
'Le premier bouton de ma barre Standart créé la macro suivante :
Sub CreeMacro()
With ActiveWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule
X = .CountOfLines
.InsertLines X + 1, "Private Sub Workbook_SheetSelectionChange(ByVal
Sh
As
Object, ByVal Target As Excel.Range)"
.InsertLines X + 2, "With Selection.Interior"
.InsertLines X + 3, "If .ColorIndex=8 Then .ColorIndex=0 Else
.ColorIndex=8"
.InsertLines X + 4, "End With"
.InsertLines X + 5, "End Sub"
End With
End Sub
'Le second bouton de ma barre Standard efface cette macro :
Sub SupprimeMacro()
With ActiveWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule
debut = .ProcStartLine("Workbook_SheetSelectionChange", vbext_pk_Proc)
nblignes = .ProcCountLines("Workbook_SheetSelectionChange",
vbext_pk_Proc)
En fait, je veux dire créer une macro complémentaire qui reprend le code que tu généres...Si j'ai bien compris le problème.
Tiré de la FAQ : http://longre.free.fr/pages/faq/#Macro%20XLA
Comment créer une macro complémentaire (fichier XLA) ? Sous Excel, faire Fichier -> Enregistrer sous. Le type "macro complémentaire" est en dernière position dans la liste déroulante "Type de fichier". Contrairement à Excel 5/95, les macros XLA d'Excel 97 ne sont pas cryptées.
Je voudrais pouvoir colorier des cellules par simple clic, et ce, pour n'importe quel classeur.
J'ai trouvé une solution mais ce n'est peut être pas la meilleure : quelqu'un a t il plus simple ?
'Le premier bouton de ma barre Standart créé la macro suivante :
Sub CreeMacro() With ActiveWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule X = .CountOfLines .InsertLines X + 1, "Private Sub Workbook_SheetSelectionChange(ByVal Sh
As
Object, ByVal Target As Excel.Range)" .InsertLines X + 2, "With Selection.Interior" .InsertLines X + 3, "If .ColorIndex=8 Then .ColorIndex=0 Else .ColorIndex=8"
.InsertLines X + 4, "End With" .InsertLines X + 5, "End Sub" End With End Sub
'Le second bouton de ma barre Standard efface cette macro :
Sub SupprimeMacro() With ActiveWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule debut = .ProcStartLine("Workbook_SheetSelectionChange", vbext_pk_Proc) nblignes = .ProcCountLines("Workbook_SheetSelectionChange", vbext_pk_Proc)
.deleteLines debut, nblignes End With End Sub
Merci
Gaetan Mourmant
Peut-être encore plus simple, simplement stocker la macro dans le classeur perso.xls, s'il n'y a que toi qui l'utilise.
Je voudrais pouvoir colorier des cellules par simple clic, et ce, pour n'importe quel classeur.
J'ai trouvé une solution mais ce n'est peut être pas la meilleure : quelqu'un a t il plus simple ?
'Le premier bouton de ma barre Standart créé la macro suivante :
Sub CreeMacro() With ActiveWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule X = .CountOfLines .InsertLines X + 1, "Private Sub Workbook_SheetSelectionChange(ByVal Sh
As
Object, ByVal Target As Excel.Range)" .InsertLines X + 2, "With Selection.Interior" .InsertLines X + 3, "If .ColorIndex=8 Then .ColorIndex=0 Else .ColorIndex=8"
.InsertLines X + 4, "End With" .InsertLines X + 5, "End Sub" End With End Sub
'Le second bouton de ma barre Standard efface cette macro :
Sub SupprimeMacro() With ActiveWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule debut = .ProcStartLine("Workbook_SheetSelectionChange", vbext_pk_Proc) nblignes = .ProcCountLines("Workbook_SheetSelectionChange", vbext_pk_Proc)
.deleteLines debut, nblignes End With End Sub
Merci
Peut-être encore plus simple, simplement stocker la macro dans le classeur
perso.xls, s'il n'y a que toi qui l'utilise.
Je voudrais pouvoir colorier des cellules
par simple clic, et ce, pour n'importe quel classeur.
J'ai trouvé une solution mais ce n'est peut être
pas la meilleure : quelqu'un a t il plus simple ?
'Le premier bouton de ma barre Standart créé la macro suivante :
Sub CreeMacro()
With ActiveWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule
X = .CountOfLines
.InsertLines X + 1, "Private Sub Workbook_SheetSelectionChange(ByVal
Sh
As
Object, ByVal Target As Excel.Range)"
.InsertLines X + 2, "With Selection.Interior"
.InsertLines X + 3, "If .ColorIndex=8 Then .ColorIndex=0 Else
.ColorIndex=8"
.InsertLines X + 4, "End With"
.InsertLines X + 5, "End Sub"
End With
End Sub
'Le second bouton de ma barre Standard efface cette macro :
Sub SupprimeMacro()
With ActiveWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule
debut = .ProcStartLine("Workbook_SheetSelectionChange", vbext_pk_Proc)
nblignes = .ProcCountLines("Workbook_SheetSelectionChange",
vbext_pk_Proc)
Je voudrais pouvoir colorier des cellules par simple clic, et ce, pour n'importe quel classeur.
J'ai trouvé une solution mais ce n'est peut être pas la meilleure : quelqu'un a t il plus simple ?
'Le premier bouton de ma barre Standart créé la macro suivante :
Sub CreeMacro() With ActiveWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule X = .CountOfLines .InsertLines X + 1, "Private Sub Workbook_SheetSelectionChange(ByVal Sh
As
Object, ByVal Target As Excel.Range)" .InsertLines X + 2, "With Selection.Interior" .InsertLines X + 3, "If .ColorIndex=8 Then .ColorIndex=0 Else .ColorIndex=8"
.InsertLines X + 4, "End With" .InsertLines X + 5, "End Sub" End With End Sub
'Le second bouton de ma barre Standard efface cette macro :
Sub SupprimeMacro() With ActiveWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule debut = .ProcStartLine("Workbook_SheetSelectionChange", vbext_pk_Proc) nblignes = .ProcCountLines("Workbook_SheetSelectionChange", vbext_pk_Proc)
