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

Colorer ligne sur plusieurs feuilles

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion gabo29
  • 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 !

S'inscrire
G

gabo29

Guest
Bonjour,

J'ai souheterai savoir comment intéger dans une macro la fonction suivante :
- A partir de l'onglet 4, rechercher dans toutes les feuilles du classeur "aaaa" (le mot se trouveras toujours dans la colonne AA)et surligner la ligne d'une couleur (rouge par exemple)
Voici le code que j'ai mais ça ne marche pas :
Dim sh As Worksheet
For Each sh In ThisWorkbook.Worksheets

If Target.Column = 27 _
And Target.Row >= 2 Then
If UCase(Target.Value) = "aaaa" Then
Target.EntireRow.Interior.ColorIndex = 3
Else
Target.EntireRow.Interior.ColorIndex = 0

End If

Merci d'avance,
Cdt,
Gabo29
 
Dernière modification par un modérateur:
Trier par date Trier par votes
Re : Colorer ligne sur plusieurs feuilles

Bonjour, gabo29, le Forum,

Peut-être ainsi :

Code: 
Option Explicit
Sub En_rouge_si_aaaa_trouvé()
Dim o As Integer
Dim i As Long
Application.ScreenUpdating = False
For o = 4 To Sheets.Count
    Sheets(o).Select
    For i = 2 To Range("aa65536").End(xlUp).Row
        If Range("aa" & i).Value = "aaaa" Then Range("aa" & i).EntireRow.Interior.ColorIndex = 3
    Next i
Next o
Application.ScreenUpdating = True
End Sub

A bientôt 🙂
 
Vote positif 0 Vote négatif
Re : Colorer ligne sur plusieurs feuilles

Re-bonjour,

Par prudence 🙄, si l'un des "aaaa" devait être supprimé, mieux vaudrait utiliser ce code :

Code: 
Option Explicit
Sub En_rouge_si_aaaa_trouvé()
Dim o As Integer
Dim i As Long
Application.ScreenUpdating = False
For o = 4 To Sheets.Count
    Sheets(o).Select
    Cells.Interior.ColorIndex = xlNone
    For i = 2 To Range("aa65536").End(xlUp).Row
        If Range("aa" & i).Value = "aaaa" Then Range("aa" & i).EntireRow.Interior.ColorIndex = 3
    Next i
Next o
Application.ScreenUpdating = True
End Sub

A bientôt 🙂
 
Vote positif 0 Vote négatif
Re : Colorer ligne sur plusieurs feuilles

Super merci bcp !

Une dernière petite question. Je souhaiterai savoir si il est possible à partir de l'onglet 4, d'envoyer par mail chaque onglet ?(un mail par onglet) La liste des contacts se trouvera dans un onglet déjà présent du classeur.(Je suis sur Outlook😉

Merci d'avance,
Cdt,
Gabo29
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Re : Colorer ligne sur plusieurs feuilles

Re-bonjour,

gabo29 à dit:
... Je souhaiterai savoir si il est possible à partir de l'onglet 4, d'envoyer par mail chaque onglet ?(un mail par onglet) La liste des contacts se trouvera dans un onglet déjà présent du classeur.(Je suis sur Outlook...
Cliquez pour agrandir...

Oui, cela devrait être possible. Faire une recherche sur le site où se trouvent de nombreux exemples.

En cas de difficultés, ouvrir une nouvelle discussion en joignant le fichier de travail simplifié et dépourvu de données confidentielles.

Bon courage et à bientôt 🙂
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

  • Question Question
XL 2016 intégrer une macro sur les nouvelles feuilles crées
Réponses
6
Affichages
229
pascal21
U
  • Question Question
Autres Quelques fois ça bug feuilles cachées
Réponses
2
Affichages
253
cathodique
  • Question Question
XL 2016 Boucler sur les feuilles d'un classeur
Réponses
7
Affichages
454
KTM
A
  • Question Question
XL 2010 Filtrer un Combobox en VBA excel
2 3
Réponses
43
Affichages
3 K
Dranreb
U
  • Question Question
Autres incorporer une macro dans une autre macro
Réponses
5
Affichages
793
Phil69970
M
  • Question Question
XL 2013 MACRO VBA pour imprimer tous les bulletins d'un établissement scolaire
Réponses
4
Affichages
806
MBEPID
M
H
  • Question Question
Autres mise a jour automatique feuille excel vba
Réponses
2
Affichages
869
HANN
H
S
  • Question Question
Microsoft 365 VBA pour copier une une des données d'une ligne à une autre
Réponses
3
Affichages
1 K
salma_hayek
S
R
  • Résolu(e)
XL 2016 Colorer l'intérieur d'une cellule sélectionnée
2 3
Réponses
33
Affichages
3 K
p56
U
  • Question Question
Autres Enregistrer sur Onglet TOTO
Réponses
2
Affichages
754
un internaute
U
U
  • Résolu(e)
Autres Mettre en couleur ligne avec VBA car MFC occupées (Excel 2003)
2
Réponses
15
Affichages
2 K
un internaute
U
B
  • Question Question
XL 2021 Transfert tableau structuré EXCEL à un endroit précis de WORD
Réponses
8
Affichages
1 K
job75
M
  • Question Question
XL 2013 demande d'aide
Réponses
10
Affichages
974
Marcus_341
M
U
  • Question Question
Autres [RÉSOLU] Faire afficher ligne sur tout le classeur par double clic et la faire maquer à l’enregistrement
Réponses
11
Affichages
1 K
un internaute
U
D
  • Question Question
XL 2010 Macros insérer une ligne en recopiant formule dans plusieurs feuilles
Réponses
11
Affichages
1 K
deva
D
U
  • Question Question
Autres [RESOLU] Application.ScreenUpdating = False
Réponses
4
Affichages
1 K
un internaute
U
K
  • Question Question
XL 2013 Worksheet_change copier/coller sur un autre classeur
Réponses
6
Affichages
1 K
Dafaka7
D
C
  • Résolu(e)
XL 2010 supprimer une ligne sur d'autre feuilles en prenant référence sur une feuille journal
Réponses
3
Affichages
699
ccia
C
F
  • Résolu(e)
XL 2019 Feuille active
Réponses
4
Affichages
949
farid
F
R
  • Question Question
Microsoft 365 VBA - rechercher une ligne en fonction de 2 critères sur 2 colonnes différentes
Réponses
9
Affichages
2 K
sylvanu
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…