Utilisation de For Each...Next

claude65

XLDnaute Nouveau
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é
 

Pièces jointes

  • For_Each.xls
    20 KB · Affichages: 66
  • For_Each.xls
    20 KB · Affichages: 64
  • For_Each.xls
    20 KB · Affichages: 64

MJ13

XLDnaute Barbatruc
Re : Utilisation de For Each...Next

Bonjour

A tester

Code:
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
 

Excel_lent

XLDnaute Impliqué
Re : Utilisation de For Each...Next

Salut à tous et re aux autres.

Une autre présentation (avec déclaration de variable conseillée).
Code:
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" !
 
Dernière édition:

claude65

XLDnaute Nouveau
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
 

Discussions similaires

Réponses
4
Affichages
147

Membres actuellement en ligne

Aucun membre en ligne actuellement.

Statistiques des forums

Discussions
312 023
Messages
2 084 713
Membres
102 637
dernier inscrit
TOTO33000