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

Aide sur modification macro

  • Initiateur de la discussion Initiateur de la discussion AreYouBush
  • 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 !

A

AreYouBush

Guest
Bonsoir le forum,

Est il possible de modifier la macro suivante afin de pourvoir mettre un mot de plusieur lettre à la place du "x"?

Option Explicit
Sub color()
Dim lig As Byte
Range("A2:G30").Interior.ColorIndex = xlNone
For lig = 2 To 31
If UCase(Cells(lig, 7)) = "X" Then Range(Cells(lig, 1), Cells(lig, 7)).Interior.ColorIndex = 3
Next
End Sub

Je suis débutant en VBA, merci de votre compréhension.
 
Re : Aide sur modification macro

Bonsoir AYB le forum
oui sans soucis
a+
papou 🙂

VB:
Option Explicit
Sub color()
Dim lig As Byte
Range("A2:G30").Interior.ColorIndex = xlNone
For lig = 2 To 31
If Cells(lig, 7) = "Ce que tu veux" Then Range(Cells(lig, 1), Cells(lig, 7)).Interior.ColorIndex = 3
Next
End Sub

EDIT bonsoir ERIC🙂
 
Re : Aide sur modification macro

Bonsoir, AreYouBush.

Là, tu exagères -en toute amitié- ...

Tu aurais gagné du temps à essayer de remplacer ton X par un mot de plusieurs lettres (majuscules ou minuscules mélangées, plutôt qu'à poster ici.

C'est en testant que tu progresseras.

Edit : Bonsoir Eric, papou.
 
Dernière édition:
Re : Aide sur modification macro

J'ai essayé et ça ne fonctionnais pas. La je ne comprend vraiment pas pourquoi ca ne marchais pas.

Merci. je re test.
 
Re : Aide sur modification macro

Re, bonsoir à tous

si c'est quel que soit le mot, donc cellule non vide
If not Cells(lig, 7) = "" Then Range(Cells(lig, 1), Cells(lig, 7)).Interior.ColorIndex = 3

ilexiste aussi la Mise en forme conditionnelle pour ce genre de problèmes
 
Re : Aide sur modification macro

Re,

Il me vient un doute :
Veux-tu remplacer X par un seul mot, ou par n'importe quel mot ?
Si c'est pour tester qu'il y a quelque chose dans G2:G30, utilise
If Not (IsEmpty(Cells(lig, 7)) then...
 
Re : Aide sur modification macro

oui je sais ERIC.

Je me suis encore mal exprimé. Je vais utiliser plusieurs mots (une bonne dizaine) et c'est pour pouvoir l'utilisé sur chaque nouveau fichier que je créerai.

Je suis une quiche.

Merci de votre patience 🙂
 
Re : Aide sur modification macro

Bon après une bonne vingtaine de test ça à enfin marché.

J'ai pas compris pourquoi ça n'a pas fonctionné auparavant.

Je vais aller dodo, ça ira mieux demain.

Encore merci à tout ceux qui se sont creusé les méninges sur mon problème super compliqué. 🙂
 
- 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
2
Affichages
467
Réponses
15
Affichages
788
D
  • Résolu(e)
Réponses
3
Affichages
713
débutantplus
D
Réponses
12
Affichages
1 K
E
  • Question Question
Réponses
0
Affichages
763
ExcelUser21
E
D
Réponses
4
Affichages
1 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…