Re: Condition d'une feuille à une autre

bonjour Guy,

For i = 3 To 256 Step 5
x = x + 1
If Sheets("Feuil1").Cells(3, i) <> Sheets("Feuil2").Cells(1, x) Then
Sheets("Feuil1").Cells(3, i).Interior.ColorIndex = 3
End If
Next

isabelle

Re:
Je me suis mal expliqué.
Dans la cellule C3 de la feuille1 je veux la même valeur que la cellule A1
de la feuille2 sinon motif rouge.
Dans la cellule H3 de la feuille1 je veux la même valeur que la cellule B1
de la feuille2 sinon motif rouge.
Dans la cellule M3 de la feuille1 je veux la même valeur que la cellule C1
de la feuille2 sinon motif rouge..........etc........
Cordialement
Guy

ou bien :

For i = 3 To 256 Step 5
x = x + 1
If Sheets("Feuil1").Cells(3, i) <> Sheets("Feuil2").Cells(1, x) Then
Sheets("Feuil1").Cells(3, i).Interior.ColorIndex = 3
Else: Sheets("Feuil1").Cells(3, i).Interior.ColorIndex = xlNone
End If
Next

isabelle

Re:
Je me suis mal expliqué.
Dans la cellule C3 de la feuille1 je veux la même valeur que la cellule A1
de la feuille2 sinon motif rouge.
Dans la cellule H3 de la feuille1 je veux la même valeur que la cellule B1
de la feuille2 sinon motif rouge.
Dans la cellule M3 de la feuille1 je veux la même valeur que la cellule C1
de la feuille2 sinon motif rouge..........etc........
Cordialement
Guy

Bonjour Isabelle,
J'avoue que je ne sais pas comment vous faite pour arriver à trouver
toujours les solutions.
Je suppose que c'est un fonction et non une macro ?
Par contre moi je ne sais jamais ou je doit installer ça (entre fonction,
macro, code, ThisWorkbook.....etc.... je m'y perd).
Je l'ai mis dans le code de la feuil1, dans ThisWorkbook, mais rien ne se
passe.
Cordialement
Guy
"isabelle" <hoHoho@hohoHo> a écrit dans le message de news:
uzxLYaWwGHA.4868@TK2MSFTNGP02.phx.gbl...

ou bien :

For i = 3 To 256 Step 5
x = x + 1
If Sheets("Feuil1").Cells(3, i) <> Sheets("Feuil2").Cells(1, x) Then
Sheets("Feuil1").Cells(3, i).Interior.ColorIndex = 3
Else: Sheets("Feuil1").Cells(3, i).Interior.ColorIndex = xlNone
End If
Next

isabelle

Re:
Je me suis mal expliqué.
Dans la cellule C3 de la feuille1 je veux la même valeur que la cellule
A1
de la feuille2 sinon motif rouge.
Dans la cellule H3 de la feuille1 je veux la même valeur que la cellule
B1
de la feuille2 sinon motif rouge.
Dans la cellule M3 de la feuille1 je veux la même valeur que la cellule
C1
de la feuille2 sinon motif rouge..........etc........
Cordialement
Guy

bonjour Guy,

c'est une macro à mettre sur la page d'un module standard.

Sub macro1()
For i = 3 To 256 Step 5
x = x + 1
If Sheets("Feuil1").Cells(3, i) <> Sheets("Feuil2").Cells(1, x) Then
Sheets("Feuil1").Cells(3, i).Interior.ColorIndex = 3
End If
Next
End Sub

isabelle

Bonjour Isabelle,
J'avoue que je ne sais pas comment vous faite pour arriver à trouver
toujours les solutions.
Je suppose que c'est un fonction et non une macro ?
Par contre moi je ne sais jamais ou je doit installer ça (entre fonction,
macro, code, ThisWorkbook.....etc.... je m'y perd).
Je l'ai mis dans le code de la feuil1, dans ThisWorkbook, mais rien ne se
passe.
Cordialement
Guy
"isabelle" <hoHoho@hohoHo> a écrit dans le message de news:
uzxLYaWwGHA.4868@TK2MSFTNGP02.phx.gbl...

ou bien :

For i = 3 To 256 Step 5
x = x + 1
If Sheets("Feuil1").Cells(3, i) <> Sheets("Feuil2").Cells(1, x) Then
Sheets("Feuil1").Cells(3, i).Interior.ColorIndex = 3
Else: Sheets("Feuil1").Cells(3, i).Interior.ColorIndex = xlNone
End If
Next

isabelle

Re:
Je me suis mal expliqué.
Dans la cellule C3 de la feuille1 je veux la même valeur que la cellule
A1
de la feuille2 sinon motif rouge.
Dans la cellule H3 de la feuille1 je veux la même valeur que la cellule
B1
de la feuille2 sinon motif rouge.
Dans la cellule M3 de la feuille1 je veux la même valeur que la cellule
C1
de la feuille2 sinon motif rouge..........etc........
Cordialement
Guy

Bonsoir Isabelle,
La macro me met que les cellules en rouge.
Il faudrait que la cellule"C3 feuil1 reste blanche si celle-ci est vierge.
Il faudrait que la cellule"C3 feuil1 soit rouge si le chiffre n'est pas égal
à la cellule "A1 feuil2".
Il faudrait que la cellule"C3 feuil1 reste blanche ou de couleur pâle si le
chiffre est pas égal à la cellule "A1 feuil2".
"H3 feuil1" avec "B1 feuil2".
"M3feuil1" avec "C1feuil2".
"R3 feuil1" avec "D1 feuil2".................etc jusqu'à "BZ3 feuil1 avec
"P1 feuil 2"
Par-contre je suis bête, j'ai oublier de dire que je voulais faire la même
chose
dans les cellules
C8, H8, M8, R8...........C13, H13 ,M13 ,R13.............jusqu'à
C78...............BZ78
Cordialement
Guy

"isabelle" <hoHoho@hohoHo> a écrit dans le message de news:
eRGTS9fwGHA.4612@TK2MSFTNGP02.phx.gbl...

bonjour Guy,

c'est une macro à mettre sur la page d'un module standard.

Sub macro1()
For i = 3 To 256 Step 5
x = x + 1
If Sheets("Feuil1").Cells(3, i) <> Sheets("Feuil2").Cells(1, x) Then
Sheets("Feuil1").Cells(3, i).Interior.ColorIndex = 3
End If
Next
End Sub

isabelle

Bonjour Isabelle,
J'avoue que je ne sais pas comment vous faite pour arriver à trouver
toujours les solutions.
Je suppose que c'est un fonction et non une macro ?
Par contre moi je ne sais jamais ou je doit installer ça (entre fonction,
macro, code, ThisWorkbook.....etc.... je m'y perd).
Je l'ai mis dans le code de la feuil1, dans ThisWorkbook, mais rien ne se
passe.
Cordialement
Guy
"isabelle" <hoHoho@hohoHo> a écrit dans le message de news:
uzxLYaWwGHA.4868@TK2MSFTNGP02.phx.gbl...

ou bien :

For i = 3 To 256 Step 5
x = x + 1
If Sheets("Feuil1").Cells(3, i) <> Sheets("Feuil2").Cells(1, x) Then
Sheets("Feuil1").Cells(3, i).Interior.ColorIndex = 3
Else: Sheets("Feuil1").Cells(3, i).Interior.ColorIndex = xlNone
End If
Next

isabelle

Re:
Je me suis mal expliqué.
Dans la cellule C3 de la feuille1 je veux la même valeur que la cellule
A1
de la feuille2 sinon motif rouge.
Dans la cellule H3 de la feuille1 je veux la même valeur que la cellule
B1
de la feuille2 sinon motif rouge.
Dans la cellule M3 de la feuille1 je veux la même valeur que la cellule
C1
de la feuille2 sinon motif rouge..........etc........
Cordialement
Guy