Discussion :

[UDSP50]

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 :

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

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

[YanBos]

Hello,

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

Code :

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

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 :

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

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

[coy76]

Bonjour,

tu peux essayer avec le code suivant :

Code :

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

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

[MarcelG]

Bonjour à vous, Bonjour le Forum,

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

[UDSP50]

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