Discussion :

[arctica]

Bonjour à tous
j'ai une colonne Oo dans laquelle se trouve des statuts de 1 à 100. Dans la colonne N se trouvent des dates. Ce que je voudrais c'est que si le statut
dans O est different de 0 ou 12, alors la cellule dans la colonne n à même ligne s'inscrit en rouge et en gras. Voila ce que j'ai écris

Code :

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

1
2
3
4
5
Sub ecriture()
For i = Cells(65000, 15).End(xlUp).Row To 1 Step -1 'boucle de la dernière ligne colonne O à la première
            If Cells(i, 15) <> (12 Or 0) Then Cells(i, 14).Font.Color = vbRed
         Next
End Sub

Et la j'ai un probleme, car cela marche pour la condition 12 mais pas pour la condition zero, ma macro n'execute qu'une condition soit le 12, je dois avoir un probleme d'ecriture ,j'ai bien essayé en mettant une virgule entre 12 et 0 a la place de or ...mais rien n'y fait
pourriez vous m'aider ?

[rvtoulon]

slt,
essaye comme çà:

Code :

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

1
2
3
4
5
Sub ecriture()
For i = Cells(65000, 15).End(xlUp).Row To 1 Step -1 'boucle de la dernière ligne colonne O à la première
            If Cells(i, 15) <> 12 Or Cells(i, 15) <> 0 Then Cells(i, 14).Font.Color = vbRed
         Next
End Sub

[arctica]

Cela marche

merci rvtoulon