usul
XLDnaute Occasionnel
Bonjour
suite d'un message sur le changement de couleur de cellules par macro:
voilà la macro d'Abel :
dans l'execution de la macro quand je répond 'none' à l'une des questions 'Donnez l'index de couleur...)
j'ai une erreur de type à l'execution de la macro
ce terme n'est pas compris lors de l'execution
d'ailleurs dans l'écriture d'une macro on peut entrainer un changement de index 35 (par exemple) vers 'none' mais pas de 'none' vers index 35 :
celle-ci fonctionne :
mais celle-là non :
merci
Message édité par: usul, à: 04/11/2005 10:48
suite d'un message sur le changement de couleur de cellules par macro:
voilà la macro d'Abel :
Sub ChangeCouleur()
Dim Plage As Range
Dim Couleur1 As Byte, Couleur2 As Byte
Set Plage = Application.InputBox(prompt:='Sélectionner la zone à modifier', Type:=8)
Couleur1 = InputBox('Donnez l'index de la couleur à remplacer')
Couleur2 = InputBox('Donnez l'index de la couleur de remplacement')
For Each c In Plage
With c.Interior
.ColorIndex = IIf(.ColorIndex = Couleur1, Couleur2, .ColorIndex)
End With
Next c
End Sub
dans l'execution de la macro quand je répond 'none' à l'une des questions 'Donnez l'index de couleur...)
j'ai une erreur de type à l'execution de la macro
ce terme n'est pas compris lors de l'execution
d'ailleurs dans l'écriture d'une macro on peut entrainer un changement de index 35 (par exemple) vers 'none' mais pas de 'none' vers index 35 :
celle-ci fonctionne :
Sub ChangementcouleurVRien()
For Each c In Selection
If c.Interior.ColorIndex = 35 Then c.Interior.ColorIndex = none
Next c
End Sub
mais celle-là non :
Sub ChangementcouleurRienG()
For Each c In Selection
If c.Interior.ColorIndex = none Then c.Interior.ColorIndex = 15
Next c
End Sub
merci
Message édité par: usul, à: 04/11/2005 10:48