Discussion :

[dodo69]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[pijaku]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim maPlage As Range
Set maPlage = Range("A1:A10")
'bla bla
Set maPlage = Nothing

Tu dis...

[MarcelG]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Philippe Tulliez]

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")

[dodo69]

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

[Philippe Tulliez]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[dodo69]

Merci corona

Mais avec ca, on peut faire une condition :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 "if maplage=0 then...."

?

[Philippe Tulliez]

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.