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
- Aller à la ligne dans une cellule excel - Guide
- Comment colorer une cellule excel avec une formule si - Guide
- Frédéric cherche à faire le buzz sur les réseaux sociaux. il a ajouté une image d’ours polaire sur une image de plage. retrouvez l'image originale de la plage. que cache l'ours polaire ? - Forum Loisirs / Divertissements
- 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
- 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
1 réponse
f894009
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
1 701
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 =)