Modification code macro

[gourdin]

Bonjour

Par le forum, j'ai eu ce code macro qui fonctionne (je n'ai pas tout compris du code) :

ENLEVE COULEUR DES CELLULES VERTES CLAIRES

NoColorFondSuppr = 35 ' 35 = vert clair <<<<<<<<<<<<<<<
Dim Temp1(), Temp2()

For Each C In ActiveSheet.UsedRange
ColorFd = C.Interior.ColorIndex
If ColorFd <> xlNone And ColorFd = NoColorFondSuppr Then
n = n + 1
ReDim Preserve Temp1(1 To n)
ReDim Preserve Temp2(1 To n)
Temp1(n) = C.Address
Temp2(n) = ColorFd
C.Interior.ColorIndex = xlNone
End If
Next C

'RETABLIT COULEUR
For i = 1 To n
Range(Temp1(i)).Interior.ColorIndex = Temp2(i)
Next i

Je souhaite simplement que la macro ne s'applique plus à toutes les cellules de la page mais à une plage de cellules définie. Je ne sais pas comment modifier la macro.

merci de votre aide

 

[Efgé]

Re : Modification code macro

Bonjour gourdin,
Je pense qu'en changeant la ligne :

For Each C In ActiveSheet.UsedRange

par

For Each C In ActiveSheet.Range("A1:A30")

va résoudre votre problème
Cordialement

 

[gourdin]

Re : Modification code macro

Merci beaucoup

 

[Habitude]

Re : Modification code macro

J'ai rarement vue ca la programmation d'un "Undo"

 

[gourdin]

Re : Modification code macro

Que signifie "Undo" ?
Merci

 

[jeanpierre]

Re : Modification code macro

Bonsoir gourdin, Habitude, Efgé,

Sous VBE, un petit coup de F1 et dans Index, faire une recherche sur Undo. Plein d'explications et de situations.

Bonne soirée.

Jean-Pierre

 

[ROGER2327]

Re : Modification code macro

Re...

Que signifie "Undo" ?
Merci

Quand il existera des sites francophones, on appellera cela une annulation.

Inconvénient : les francophones pourraient comprendre...​

ROGER2327
#2863

 

[jeanpierre]

Re : Modification code macro

Re, Bonsoir ROGER,

J'ai beau lire et relire, je ne vois pas où le Undo existe dans le premier code déposé, ni dans une solution donnée. A part l'intervention de Habitude qui en parle... et suscite une question naturelle..

Fil à géométrie variable.....

Bonne soirée.

Jean-Pierre

 

[Efgé]

Re : Modification code macro

Bonjour à tous jeanpierre, ROGER2327;
Je pense que Habitude fait allusion à

'RETABLIT COULEUR
For i = 1 To n
Range(Temp1(i)).Interior.ColorIndex = Temp2(i)
Next i

Puisque nous sommes dans un

Fil à géométrie variable.....

Peut être que Habitude n'a pas encore rencontré l'impossibilté de faire CTRL+Z sur certaines macros...
Roger, il est vrai que nous attendons avec impatiente un forum en langue française sur Excel 😀, nous l'appelerions, par exemple "Excel Downloads" 😀 😀,

Cordialement

 

[ROGER2327]

Re : Modification code macro

Re...

(...)
Roger, il est vrai que nous attendons avec impatiente un forum en langue française sur Excel 😀, nous l'appelerions, par exemple "Excel Downloads" 😀 😀,
(...)

Excellente idée ! On pourrait même l'appeler "Partageons Excel" et en faire un site qui ne se contenterait pas de proposer des téléchargements, mais pourrait aussi permettre aux utilisateurs de tous niveaux de partager leur expérience.
Une bien belle idée, vraiment.
​

Bonne nuit.
ROGER2327
#2864

 

[Efgé]

Re : Modification code macro

ROGER2327; je vois que nous sommes sur la même longueur d'onde 😉.
Très cordialement

 

[jeanpierre]

Re : Modification code macro

Re,

Dans la série F......D.G......, demander le père (par exemple) et si j'ai bien compris...

Bonne nuit sout le vent...

Jean-Pierre

 

[Habitude]

Re : Modification code macro

Bonjour à tous jeanpierre, ROGER2327;
Je pense que Habitude fait allusion à


Puisque nous sommes dans un Peut être que Habitude n'a pas encore rencontré l'impossibilté de faire CTRL+Z sur certaines macros...
Roger, il est vrai que nous attendons avec impatiente un forum en langue française sur Excel 😀, nous l'appelerions, par exemple "Excel Downloads" 😀 😀,

Cordialement

Je notais justement l'impossibilité et fesais remarquer qu'il est rare que les gens prennent le temps de le "coder"