Bonjour à tous,
et merci de bien vouloir perdre quelques minutes avec un débutant
Dans la feuille nommée Essai
Dans le tableau nommé Données
Je souhaite rechercher et colorier en rouge la cellule du tableau correspondant à la valeur de la cellule F1 nommée Variable avec une macro utilisant la fonction For Each….Next que je ne sais pas utiliser
Sub test()
'Stop
For Each cell In Range("a1:d24")
cell.Select
If ActiveCell.Value = Range("f1").Value Then ActiveCell.Interior.Color = 255
Next cell
End Sub
MJ13 et RENAUDER merci de la célérité de votre réponse
Question subsidiaire :
Serait-t-il possible de remplacer
Range("a1:d24")
ou
[A1].CurrentRegion.Select
par le nom Données
et
If ActiveCell.Value = Range("f1")
ou
Critere = Sheets(1).Range("F1").Value
par le nom Variable