Mais est-ce-que tu as vu ma réponse de 16h38 ...
https://www.excel-downloads.com/threads/fonction-si-par-macro-vb.113973/
A+
Oui, j'ai bien ton message en ajoutant la formule SI et OU.
Le seul problème, c'est que la colonne B doit avoir une valeur texte, et non être une formule. J'explique :
J'ai ajouté une autre macro qui selon la valeur prise dans la colonne B, renseigne une autre feuille.
Le problème avec les formules dans les cellules, c'est qu'au changement de valeur, l'autre macro ne prend pas en compte la modification...
ex : dans colonne B : valeur OK modifiée en ALERTE
si valeur ALERTE, then copie de la ligne dans une autre feuille.
Suis-je clair ?
Merci pour ton aide.
En fait, j'imaginais une macro qui disait
Sub vérouiller()
Selectionné la zone A2:G1000
Déverouiller
Selectioner dans cette zone les lignes entre A et G où il y a un X en B
Les mettre en jaune
Vérouiller
Sub TesTraouck()
Dim Rng As Range
Dim C As Range
Dim ZoJaune As Range
Set Rng = ActiveSheet.Range("B2:G1000")
ActiveSheet.Unprotect
Cells.Locked = False
For Each C In Rng.Resize(, 1)
If C.Value = "X" Then
If ZoJaune Is Nothing Then
Set ZoJaune = C.EntireRow
Else
Set ZoJaune = Application.Union(ZoJaune, C.EntireRow)
End If
End If
Next C
ZoJaune.EntireRow.Interior.ColorIndex = 6
ZoJaune.Locked = True
ActiveSheet.Protect
End Sub
@ Groundhog ...
Sans ton fichier et tes macros ... je ne peux pas faire grand chose ...
A+
fichier joint ...
A+