Colorer une plage de cellule en fction de la valeur d'une autre
Résolu/Fermé
Manoouune
Messages postés
6
Date d'inscription
mardi 10 février 2015
Statut
Membre
Dernière intervention
3 mai 2016
-
Modifié par Manoouune le 10/02/2015 à 20:47
Manoouune - 16 févr. 2015 à 16:56
Manoouune - 16 févr. 2015 à 16:56
A voir également:
- Colorer une plage de cellule en fction de la valeur d'une autre
- Excel colorer une cellule si - Guide
- Aller à la ligne dans une cellule excel - Guide
- Frédéric cherche à faire le buzz sur les réseaux sociaux. il a ajouté une image de manchots sur une image de plage. retrouvez l'image originale de la plage. que cachent les manchots ? - Forum Graphisme
- Excel remplir automatiquement une cellule en fonction d'une autre ✓ - Forum Excel
- Comment colorer une cellule excel en fonction du contenu d'une autre cellule - Forum Bureautique
1 réponse
f894009
Messages postés
17239
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
10 février 2025
1 713
Modifié par f894009 le 11/02/2015 à 08:49
Modifié par f894009 le 11/02/2015 à 08:49
Bonjour,
un exemple sur 4 semaines: https://www.cjoint.com/c/EBli7QyBsla
A+
un exemple sur 4 semaines: https://www.cjoint.com/c/EBli7QyBsla
A+
11 févr. 2015 à 18:41
16 févr. 2015 à 16:56
En voulant reprendre ton code VBA et le faire fonctionner sur un autre classeur excel, ça me marque "Erreur d'exécution '1004': La méthode 'Range' de l'objet '_Woorksheet' a échoué. Pourtant je fais vraiment un copier coller de ton code (feuille + module) et je change juste les valeurs de ligne. Je ne comprend pas pourquoi ça ne marche pas. De plus, dans le code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("TPS")) Is Nothing Then
Rows("13:13").Interior.Pattern = xlNone
If Range("C1") <> "" And Range("C1") <> 0 Then
CBr = Range("C1")
Cells(13, 1).Resize(, CBr).Interior.Color = vbRed
End If
If Range("C6") <> "" And Range("C6") <> 0 Then
CBl = Range("C6")
Cells(13, 1 + CBr).Resize(, CBl).Interior.Color = vbBlue
End If
End If
End Sub
Je ne saisie pas le sens de la ligne "If Not Application.Intersect(Target, Range("TPS")) Is Nothing Then".
Merci de m'éclairer, encore une fois =)