Onglet de couleur suivant Valeur dans une colonne
Résolu/Fermé
69nounours
Messages postés
5
Date d'inscription
lundi 23 janvier 2017
Statut
Membre
Dernière intervention
28 janvier 2017
-
23 janv. 2017 à 18:41
69nounours Messages postés 5 Date d'inscription lundi 23 janvier 2017 Statut Membre Dernière intervention 28 janvier 2017 - 26 janv. 2017 à 20:29
69nounours Messages postés 5 Date d'inscription lundi 23 janvier 2017 Statut Membre Dernière intervention 28 janvier 2017 - 26 janv. 2017 à 20:29
A voir également:
- Onglet de couleur suivant Valeur dans une colonne
- Déplacer une colonne excel - Guide
- Vba rechercher une valeur dans une colonne - Astuces et Solutions
- [Vba] recherche d'une valeur EXACTE ✓ - Forum VB / VBA
- Le fichier contient le nombre de voyageurs dans 3 gares. dans la cellule b5, saisissez une formule qui calcule le total et se met à jour si on change une valeur du tableau. quel total obtenez-vous ? quelle formule avez-vous saisie ? ✓ - Forum Excel
- Le fichier contient une liste de prénoms. triez ce tableau par ordre alphabétique des prénoms. quel mot est formé par les 6 premières lettres de la colonne code ? - Forum Bureautique
3 réponses
yg_be
Messages postés
21303
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
18 mars 2023
1 326
23 janv. 2017 à 20:40
23 janv. 2017 à 20:40
bonsoir, un exemple:
Option Explicit
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim nligne As Long
Dim rouge As Boolean
rouge = False
For nligne = 5 To 200
If ActiveSheet.Cells(nligne, 11) = "Attente" Then
rouge = True
Exit For
End If
Next nligne
If rouge Then
ActiveSheet.Tab.ColorIndex = 3 'rouge
Else
ActiveSheet.Tab.ColorIndex = 10 'vert
End If
End Sub
69nounours
Messages postés
5
Date d'inscription
lundi 23 janvier 2017
Statut
Membre
Dernière intervention
28 janvier 2017
Modifié par 69nounours le 24/01/2017 à 04:28
Modifié par 69nounours le 24/01/2017 à 04:28
Bonjour,
je te remercie yg_be cela marche nickel
une question supplémentaire
je voudrais que la cellule qui comporte attente me serve d'horodateur.
en gros sur la colonne précédente j'ai une date et je voudrais que ma cellule reste orange si la date de la colonne précédente est sous les 15 jours sinon que ma case passe en rouge
possible?
merci d'avance
je te remercie yg_be cela marche nickel
une question supplémentaire
je voudrais que la cellule qui comporte attente me serve d'horodateur.
en gros sur la colonne précédente j'ai une date et je voudrais que ma cellule reste orange si la date de la colonne précédente est sous les 15 jours sinon que ma case passe en rouge
possible?
merci d'avance
yg_be
Messages postés
21303
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
18 mars 2023
1 326
24 janv. 2017 à 18:36
24 janv. 2017 à 18:36
Bonsoir, c'est trè possible. Un peu comme ceci (non testé):
Si la date de la colonne 10 est plus ancienne que 15 jours avant maintenant, alors la case de la colonne 11 devrait changer en rouge.
Option Explicit
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim nligne As Long
Dim rouge As Boolean
rouge = False
For nligne = 5 To 200
If ActiveSheet.Cells(nligne, 11) = "Attente" Then
if (ActiveSheet.Cells(nligne, 10) <now() - 15 ) Then
ActiveSheet.Cells(nligne, 11).Interior.ColorIndex = 3
end if
rouge = True
Exit For
End If
Next nligne
If rouge Then
ActiveSheet.Tab.ColorIndex = 3 'rouge
Else
ActiveSheet.Tab.ColorIndex = 10 'vert
End If
End Sub
Si la date de la colonne 10 est plus ancienne que 15 jours avant maintenant, alors la case de la colonne 11 devrait changer en rouge.
69nounours
Messages postés
5
Date d'inscription
lundi 23 janvier 2017
Statut
Membre
Dernière intervention
28 janvier 2017
26 janv. 2017 à 20:29
26 janv. 2017 à 20:29
Bonsoir,
je vous remercie
Bonne soirée
je vous remercie
Bonne soirée