probleme VBA Résolu

Question

Bonjour A TOUS,

J'ai 31 feuilles sur celle-ci je met un bouton avec une vba que voici :

Sub Resultat_Presse()
Dim r As Range
For Each r In Range("presse")
 If Range("b1") = r Then
  r.Interior.ColorIndex = 3
 ElseIf Range("c1") = r Then
  r.Interior.ColorIndex = 47
 ElseIf Range("d1") = r Then
  r.Interior.ColorIndex = 6
 ElseIf Range("e1") = r Then
  r.Interior.ColorIndex = 43
 ElseIf Range("f1") = r Then
  r.Interior.ColorIndex = 44
  End If
 Next
End Sub

est-il possible de faire fonctionner sur toutes les feuilles ?

merci a tous

Cdlmnt :)

Configuration: Windows / Chrome 43.0.2357.134

Le Pingou · Answer

Bonjour,
Oui faire une boucle sur les feuilles du classeur :
For Each sh In Worksheets
'......votre code
'......
Next sh

Le Pingou · Answer

Bonjour,
Il faut mettre votre code à l'intérieur de la boucle et bien sûr prendre en compte la feuille en cour [sh]

Indiquez-moi à quoi correspond exactement : 
Range("presse")

Le Pingou · Answer

Bonjour,
Merci pour l'exemple.
Par contre votre [Range("presse")] donne la référence  de la feuille 1. Donc n'est pas valable pour les autres. 
Votre code ne fonctionne que pour la feuille 1.
C'est vraiment compliqué de comprendre ce que vous voulez faire alors je suppose ceci :
Sur chaque feuille je veux une couleur de fond pour chaque cellule de la plage [B1 :I34] qui correspond à la valeur de référence de la plage [B1 :F1]
Réponse..........
Autre problème que faites-vous avec la mise en forme conditionnelle de la feuille 1 car c'est elle qui est prioritaire (exemple la cellule [B3] ne peux pas prendre la couleur rouge car la MFC oblige le gris... ! 
Réponse.......

Le Pingou · Answer

Bonjour,
En attendant vos réponses, il serait beaucoup plus simple d'utiliser la mise en forme conditionnelle.
Par exemple vous fixez la MFC pour la feuille 1 et ensuite il vous suffit de sélectionner la plage concernée (B1 ;I34] puis clic sur l'outil reproduire la mise en forme (petit pinceau en haut à gauche). Pour coller la mise en forme conditionnelle, faites glisser le pinceau sur les cellules ou plages de cellules à mettre en forme.

Le Pingou · Answer

Bonjour,
Merci, je comprends que l'option MFC (se réalise en 2 minutes sur 1 à 50 feuilles) ne vous intéresse pas.
La macro dans la soirée

Note: pour la mise en forme je vous l'enlève sur ce fichiers ----> je le fais moi-même sur les autres feuilles (2, 3 et 4)...!
 
Salutations.
Le Pingou

Le Pingou · Answer

Bonjour,
Je vous laisse la découverte.
Votre fichier : http://www.cjoint.com/c/EGwqnEs1vgY

Le Pingou · Answer

Bonjour,
Le fichier avec la correction (problème de [Range ("presse")] qui fait référence à feuille 1 qui m'a échappé
Le fichier : http://www.cjoint.com/c/EGwuHt1SLtY

Le Pingou · Answer

Bonjour.
Merci, de rien, bonne suite.

Le Pingou · Answer

Bonjour,
J'ai regardé la feuille [Resultat] et les notes.
A la question, est-ce possible, je pense que c'est réalisable pour autant que l'on connaisse le sujet. Ce qui n'est pas mon cas.
Désolé mais je ne peux pas vous apporté mon aide.

Probleme VBA

9 réponses

Discussions similaires

Newsletters