mettre en forme les cellule ( for each)

Bonjour à tous,

Je n'ai jamais vraiment utilisé de "for Each" et j'aimerai en utiliser pour mettre en place une mise en forme conditionelle sur une plage qui varie

J'utilise ainsi ce code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Dim maplage as Range Dim C Dim der_ligne as Long Dim variable as Integer   maplage = .Range(.Cells(11, 2) , .Cells(der_ligne, 2 + variable))   For Each C In maplage C.NumberFormat = "0,000000" If C = 0 Then C.Font.Color = RGB(216, 216, 216)   Next C

---

Ce code ne fonctionne pas,
en mode pas à pas, on remarque que "maplage= Nothing" et je n'arrive pas à trouver de solution

Merci de votre aide
Cordialement
DoDo

Bonjour,
Pour attribuer une référence d'objet à une variable, il convient d'utiliser l'instruction Set :

Code:

---

1 2 3 4

Dim maPlage As Range Set maPlage = Range("A1:A10") 'bla bla Set maPlage = Nothing

---

Tu dis...

Bonjour le Forum, Bonjour Dodo69

2 remarques:
- Pour affecter une variable à un objet quel qu'il soit (Range, Sheet...), ton code d'affectation doit commencer par l'instruction Set

Code:

---

1 2 3

Dim maplage as Range   Set maplage = Range("A1:A10")

---

- Il n'est pas nécessaire de balayer ta plage pour lui affecter un format. Tu peux affecter directement un format à un objet Range de plusieurs cellules.

En règle générale, il vaut mieux éviter tant que possible de balayer les cellules d'un onjet Range.

Bonjour,
Tel que je vois ton code, je doute que tu aies pu le faire tourner.
Tu devrais avoir rencontrer un message d'erreur.
Les variables nommées der_ligne et variable étant égal à 0 ou alors tu déclares tes variables après qu'elles n'aient reçu une valeur ce qui est normalement impossible.
[EDIT]
Pour déclarer une variable objet, il faut faire utiliser l'instruction SET
par exemple SET maplage = .range("A1:A5")

Merci pour toutes vos réponse,

En effet, c'est juste le manque de "set" qui m'empéchais de faire tourner ma macro.

MarcelG, je ne vois pas comment je peux faire pour affecter le format directement à toute ces celulles sans les parcourir. Une indication ?

corona, der_ligne et variable sont préalablement affectés d'une valeur, je n'ai pas mis tout mon module pour éviter d'alourdir le post, merci de ta proposition tout de même.

Cdlt
DoDo

Bonjour,

Citation:

---

MarcelG, je ne vois pas comment je peux faire pour affecter le format directement à toute ces celulles sans les parcourir. Une indication ?

---

Code:

---

1 2 3 4 5

Sub MEF() Dim maPlage As Range Set maPlage = ThisWorkbook.Worksheets("feuil1").Range("G8:H20") maPlage.Font.Color = RGB(100, 216, 216) End Sub

---

Merci corona

Mais avec ca, on peut faire une condition :

Code:

---

"if maplage=0 then...."

---

?

Bonjour,
On peut bien entendu faire précéder la Mise en forme d'une plage de cellules par une condition mais il est clair que si la mise en forme est différentes dans les cellules de cette plage suivant certaines conditions, tu es obligé de parcourir les cellules sauf si tu passes par une Mise en Forme conditionnelle sur l'ensemble de la plage.

Oki , merci bien

je prend note de ces informations qui pourront m'être utile

Merci

Cdlt
DoDo