Sélectionner une plage en fonction de la valeur d'une cellule
Résolu
Cottages
Messages postés
8
Date d'inscription
Statut
Membre
Dernière intervention
-
Cottages Messages postés 8 Date d'inscription Statut Membre Dernière intervention -
Cottages Messages postés 8 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Quel travail ,vous faites!! bravo!
Mon cas est le suivant: à partir de la valeur dans une cellule active (cliquée dans une plage), je voudrais colorer les cellules d'une plage de cellules (à valeurs croissantes) jusqu'à cette valeur.
Ou plus simplement expliqué:
Je clique sur A2, plage A1 A20, valeur 250.
Toutes les cellules de la plage C1 C10, seront colorées jusqu'à la cellule C5 qui a la valeur 223 et pas plus loin puisque C6=270.
Merci beaucoup.
Quel travail ,vous faites!! bravo!
Mon cas est le suivant: à partir de la valeur dans une cellule active (cliquée dans une plage), je voudrais colorer les cellules d'une plage de cellules (à valeurs croissantes) jusqu'à cette valeur.
Ou plus simplement expliqué:
Je clique sur A2, plage A1 A20, valeur 250.
Toutes les cellules de la plage C1 C10, seront colorées jusqu'à la cellule C5 qui a la valeur 223 et pas plus loin puisque C6=270.
Merci beaucoup.
A voir également:
- Sélectionner une plage en fonction de la valeur d'une cellule
- Fonction si et - Guide
- Aller à la ligne dans une cellule excel - Guide
- Faites afficher avec un fond coloré les cellules qui contiennent une valeur comprise entre 250 et 350. quel nombre est dessiné en surbrillance ? ✓ - Forum Excel
- Image de manchots sur une image de plage. - Forum Graphisme
- Comment colorer une cellule excel en fonction du contenu d'une autre cellule - Forum Bureautique
6 réponses
Bonjour,
cela n'est pas très compliqué, mais avec le VBA il faut être précis et comprendre ta demande
si je comprends bien en colonne A tu as une série de valeurs et lorsque tu clic sur une valeur de ta plage A tu veux coloriser les valeurs inférieures à cette valeur colonne C
Mais s'agit il toujours de la plage colonne C ou as tu d'autres plages à coloriser !
A+
Mike-31
Je suis responsable de ce que je dis, pas de ce que tu comprends...
cela n'est pas très compliqué, mais avec le VBA il faut être précis et comprendre ta demande
si je comprends bien en colonne A tu as une série de valeurs et lorsque tu clic sur une valeur de ta plage A tu veux coloriser les valeurs inférieures à cette valeur colonne C
Mais s'agit il toujours de la plage colonne C ou as tu d'autres plages à coloriser !
A+
Mike-31
Je suis responsable de ce que je dis, pas de ce que tu comprends...
Merci pour cette réponse rapide!
C'est exactement ça.
Il n'y a qu'une plage à colorer, dans l'exemple c'est la plage C1 C10 (enfin jusqu'à C5 seulement).
Merci
C'est exactement ça.
Il n'y a qu'une plage à colorer, dans l'exemple c'est la plage C1 C10 (enfin jusqu'à C5 seulement).
Merci
Re,
voilà un code dans ce genre
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("C1:C10").Interior.ColorIndex = 6
For Each i In Range("C1:C10")
If i < Target Then i.Interior.ColorIndex = 3
Next i
End Sub
certainement à compléter
voilà un code dans ce genre
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("C1:C10").Interior.ColorIndex = 6
For Each i In Range("C1:C10")
If i < Target Then i.Interior.ColorIndex = 3
Next i
End Sub
certainement à compléter
Ca marche impeccable!
Comment sélectionner maintenant les cellules actives uniquement dans la plage A1 A10?
Comment sélectionner maintenant les cellules actives uniquement dans la plage A1 A10?
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Re,
voila le code a coller dans les propriétés de ta feuille (clic droit sur l'onglet de ta feuille/Visualiser le code)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Selection, Range("A1:A20")) Is Nothing Then
Range("C1:C10").Interior.ColorIndex = xlNone
For Each i In Range("C1:C10")
If i < Target Then i.Interior.ColorIndex = 3
Next i
End If
End Sub
A+
Mike-31
Je suis responsable de ce que je dis, pas de ce que tu comprends...
voila le code a coller dans les propriétés de ta feuille (clic droit sur l'onglet de ta feuille/Visualiser le code)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Selection, Range("A1:A20")) Is Nothing Then
Range("C1:C10").Interior.ColorIndex = xlNone
For Each i In Range("C1:C10")
If i < Target Then i.Interior.ColorIndex = 3
Next i
End If
End Sub
A+
Mike-31
Je suis responsable de ce que je dis, pas de ce que tu comprends...