Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Modification code macro

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

gourdin

XLDnaute Impliqué
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
 
Re : Modification code macro

Bonjour gourdin,
Je pense qu'en changeant la ligne :
Code:
For Each C In ActiveSheet.UsedRange
par
Code:
For Each C In ActiveSheet.Range("A1:A30")
va résoudre votre problème
Cordialement
 
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
 
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
 
Dernière édition:
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
 
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
 
Re : Modification code macro


Je notais justement l'impossibilité et fesais remarquer qu'il est rare que les gens prennent le temps de le "coder"
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
5
Affichages
912
Réponses
8
Affichages
782
Réponses
15
Affichages
786
Réponses
2
Affichages
528
  • Question Question
Microsoft 365 Erreur UBound
Réponses
4
Affichages
293
Réponses
2
Affichages
257
Réponses
8
Affichages
390
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…