Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

complement pour macro

  • Initiateur de la discussion Initiateur de la discussion xiter75
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

X

xiter75

Guest
bonjour j ai une macro qui me permet de mettre une cellule en rouge ainsi qu un message lorque que la valeur de cette cellule est 0 ou negative sur la feuille .

If Cells(13, 7).Value <= 0 Then
Message = " Entretien a effectuer pour compresseur 053."
Style = vbOKOnly
MsgBox Message, Style
Cells(13, 7).Interior.ColorIndex = 3
Else
Cells(13, 7).Interior.ColorIndex = 35
End If

je souhaite modifier cette macro pour une autre utilisation :

j aimerais que si la cellule f14 de la feuille nomme "compresseur 053" contient le mot OUI , cela mette ma cellule h13 de la feuille nomme "sommaire" en vert
et si c est le mot NON elle me le color en rouge mais cette fois si sans message .

voila merci de votre aide
 
Re : complement pour macro

Bonjour

essaies

If sheets("compresseur 053").range("F14")="OUI" then
Sheets("Sommaire").range("H13").Interior.ColorIndex = 4
else
Sheets("Sommaire").range("H13").Interior.ColorIndex = 3
End If
 
Re : complement pour macro

Salut xiter75, le Forum

Essaye ce bout de Code
Code:
If Sheets("compresseur 053").Cells(14, 6).Value = "OUI" Then
    Sheets("Sommaire").Cells(13, 8).Interior.ColorIndex = 35
        Else
    Sheets("Sommaire").Cells(13, 8).Interior.ColorIndex = 3
End If
Un autre
Code:
Sheets("Sommaire").Cells(13, 8).Interior.ColorIndex = _
IIf(Sheets("compresseur 053").Cells(14, 6).Value = "OUI", 35, 3)
EDITION: Salut Pascal
Bonne Journée
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
4
Affichages
734
Réponses
8
Affichages
780
Réponses
0
Affichages
657
Réponses
3
Affichages
645
Réponses
3
Affichages
655
Réponses
2
Affichages
1 K
Réponses
7
Affichages
814
W
  • Résolu(e)
Réponses
17
Affichages
2 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…