Formule
apdf
Messages postés
22
Statut
Membre
-
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention -
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention -
Bonjour,
Voila je suis à la recherche d'une formules pour que lorsque je clic sur une cellule de la ligne "B3:B12" la cellule B1 devienne rouge
Un très grand merci à tout ceux qui pourront m'aider...
Cordialement
Max
Voila je suis à la recherche d'une formules pour que lorsque je clic sur une cellule de la ligne "B3:B12" la cellule B1 devienne rouge
Un très grand merci à tout ceux qui pourront m'aider...
Cordialement
Max
2 réponses
-
Bonjour,
1- "B3:B12" n'est pas une ligne, mais une colonne.
2- Ce ne sera pas une formule, mais une macro.
3- Uniquement pour la colonne B ou pour d'autres également? si oui lesquelles?-
-
-
-
Alors :
- vous vous placez sur la feuille concernée,
- Clic droit sur l'onglet de cette feuille,
- Visualiser le code,
- Copiez collez ce code dans la fenêtre VBE qui vient de s'ouvrir :Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'On sort de la procédure si la cellule sélectionnée, dans l'ordre : '- sa colonne est inf à K : Target.Column < 11 OU '- sa colonne est sup à Y : Target.Column > 25 OU '- on a sélectionnée plusieurs cellules : Target.Count > 1 OU '- sa ligne est inf à 4 : Target.Row < 4 '- sa ligne est sup à 50 : Target.Row > 50 '- alors on sort de la procédure : Then Exit Sub If Target.Column < 11 Or Target.Column > 25 Or Target.Count > 1 Or Target.Row < 4 Or Target.Row > 50 Then Exit Sub 'sinon, si tous ces cas sont respectés, ça veux dire que nous avons cliqué 'entre K4 et Y50, sur 1 seule cellule, alors 'on efface toutes les couleurs de la colonne A : 'pour supprimer cette option, vous pouvez simplement placer 'une apostrophe (') en début de la ligne de code suivante : Columns(1).Cells.Interior.ColorIndex = xlNone 'on colorie la cellule A de la ligne en cours Cells(Target.Row, 1).Interior.ColorIndex = 3 End Sub
- fermez la fenêtre VBE et testez.......
-
-
Re,
Je vous remercie beaucoup cet exactement ma recherche mais juste une petite modif j'ai mes feuilles quelles ont un fond beige et lorsque je clic sur une cellule concerner toute la colonne "A" passe blanche Y a-t-il quelque chose a faire?
Je vous remercie d'avance
Max-
re,
J'ai bien les commentaires ou vous dite:
'on efface toutes les couleurs de la colonne A :
'pour supprimer cette option, vous pouvez simplement placer
'une apostrophe (') en début de la ligne de code suivante :
Mais si je mais l'apostrophe toutes les cellules de la colonne "A" se mette en rouge aprés avoir cliquer mais non pas une seul a la fois...
@+
Max -
Chez moi ce code fonctionne très bien...
Avec l'apostrophe ça nous donne :Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column < 11 Or Target.Column > 25 Or Target.Count > 1 Or Target.Row < 4 Or Target.Row > 50 Then Exit Sub Cells(Target.Row, 1).Interior.ColorIndex = 3 End Sub
-
Re,
Oui chez moi aussi sa marche le seul probléme est que les cellules de la colonne A mis en rouge reste en toutes en rouge, que si on enléve l'apostrophe les cellules de la colonne A mis en rouge re deviennent comme a l'origine quand on selectionne une autre cellule, le seul probleme est que le fond de toute la colonne A devienne toute blanche alor que moi j'ai un dond beige.
@+ -
Essaye ceci :
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim Tabl(46) As Long, Ind As Long If Target.Column < 11 Or Target.Column > 25 Or Target.Count > 1 Or Target.Row < 4 Or Target.Row > 50 Then Exit Sub For Ind = 0 To 45 Tabl(Ind) = Cells(Ind + 4, 1).Interior.ColorIndex Next For Ind = 0 To 45 If Ind + 4 = Target.Row Then Cells(Ind + 4, 1).Interior.ColorIndex = 3 Else Cells(Ind + 4, 1).Interior.ColorIndex = Tabl(Ind) End If Next End Sub
-
