Formule condition si

pourriez vous m'aider car je ne comprend pas pourquoi cela ne marche pas


j'aimerais que dans la feuil1 de la case N5 a OF150 si la valeur d'une ou plusieurs cellule est egale a celle de la feuil4 en B44
alors ces cellules est uniquement celles dont la valeur est la meme se collorie comme celle de la feuil4 en b44

voici mon code

Code:

---

1 2 3 4 5

If Feuil1.Range("N5:OF150").Value = Feuil4.Range("B44").Value Then Feuil1.Range("N5:OF150").Interior.color = Feuil4.Range("B44").Interior.color End If

---

merci

Hello,

Pris dans le tuto http://silkyroad.developpez.com/vba/tableaux/:

Code:

---

1 2 3 4 5 6

Dim ObjCell As Range   For Each ObjCell In Range("A1:J65535").Cells ObjCell.Value = ObjCell.Value * 2 + 3 Next

---

Du coup je dirai que pour ton problème ça doit être :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub ColorCell() Dim ObjCell As Range   For Each ObjCell In Range("A5:C10").Cells If ObjCell.Value = Range("A1").Value Then ObjCell.Interior.Color = Range("A1").Interior.Color End If Next   End Sub

---

Salutations,
YanBos

Bonjour,

tu peux essayer avec le code suivant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Sub test() Sheets("Feuil4").Select valuetest = Range("B44").Value   Sheets("Feuil1").Select   For i = 14 To 382 For y = 5 To 150   If Cells(y, i).Value = valuetest Then Cells(y, i).Interior.Color = Sheets("Feuil4").Range("B44").Interior.Color Else: End If   Next y Next i End Sub

---

remarque le 382 correspond à la colonne OF
Chez moi ça fonctionne par contre j'ai utiliser deux fonctions for/next

A plus

Bonjour à vous, Bonjour le Forum,

Personnellement, je me serais contenté d'une mise en forme conditionnelle, par formule.

merci les gars

j'avais bien vu le tuto mais je ne maitrise pas du tout le ForEach

du coup j'ai bidouillé ce que tu m'a donné et ca marche

grand merci