Utilisation de For Each...Next

[claude65]

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

Pouvez vous m'instruire ?

(Ci-joint exemple fichier)

Merci de votre amabilité

 

[MJ13]

Re : Utilisation de For Each...Next

Bonjour

A tester

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

 

[RENAUDER]

Re : Utilisation de For Each...Next

Bonjour,

Voici ton fichier

 

[Excel_lent]

Re : Utilisation de For Each...Next

Salut à tous et re aux autres.

Une autre présentation (avec déclaration de variable conseillée).

Sub Test()
Dim cellule As Range

  For Each cellule In Range("Données")
     If cellule = Range("Variable") Then cellule.Interior.ColorIndex = 3
  Next
End Sub

Teste le contenu de chaque cellule de la plage nommée "Données".

correction avec le nom "Variable" !

 

[claude65]

Re : Utilisation de For Each...Next

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

Merci à vous et à bientôt

 

[claude65]

Re : Utilisation de For Each...Next

Merci Excel_lent

et en plus tu réponds partiellement à ma question subsidiaire

Bonne après midi

 

[MJ13]

Re : Utilisation de For Each...Next

Re bonjour,

Quand je ne sais pas, je teste!