Colorer les cellules d'une plage de données
Fermé
SIDER
-
28 janv. 2009 à 21:54
kadeh Messages postés 334 Date d'inscription vendredi 21 décembre 2007 Statut Membre Dernière intervention 15 novembre 2012 - 29 janv. 2009 à 01:05
kadeh Messages postés 334 Date d'inscription vendredi 21 décembre 2007 Statut Membre Dernière intervention 15 novembre 2012 - 29 janv. 2009 à 01:05
A voir également:
- Colorer les cellules d'une plage de données
- 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 Windows
- Excel colorer une cellule sous condition d'une autre cellule ✓ - Forum Excel
- Colorer cellule excel sous condition - Guide
- Célia doit nettoyer le tableau suivant pour l'ajouter à la base de données de son entreprise. les données sont ensuite traitées automatiquement. quelles sont les 4 cellules qui risquent de poser problème ? ✓ - Forum Excel
- Excel concatener une plage de cellules ✓ - Forum Excel
3 réponses
argixu
Messages postés
4814
Date d'inscription
dimanche 22 juillet 2007
Statut
Contributeur
Dernière intervention
3 février 2023
4 580
28 janv. 2009 à 22:31
28 janv. 2009 à 22:31
Bonsoir Sider,
A essayer :
sur les cellules à contrôler en saisie,
Avec Données / Validation
- Autoriser / Personnalisé
- formule =A2<>1
à copier sur toutes les cellules à contrôler
ça n'autorisera la saisie que si A2 est différent de 1
Sinon pour la MFC, ce serait la formule est =$A2=1 et la choisir couleur à appliquer sur la cellule.
S'il y a plusieurs cellules avec cette condition, reproduire cette MFC de A2 avec le pinceau jaune de mise en forme de la barre d'outils.
A essayer :
sur les cellules à contrôler en saisie,
Avec Données / Validation
- Autoriser / Personnalisé
- formule =A2<>1
à copier sur toutes les cellules à contrôler
ça n'autorisera la saisie que si A2 est différent de 1
Sinon pour la MFC, ce serait la formule est =$A2=1 et la choisir couleur à appliquer sur la cellule.
S'il y a plusieurs cellules avec cette condition, reproduire cette MFC de A2 avec le pinceau jaune de mise en forme de la barre d'outils.
kadeh
Messages postés
334
Date d'inscription
vendredi 21 décembre 2007
Statut
Membre
Dernière intervention
15 novembre 2012
92
28 janv. 2009 à 22:57
28 janv. 2009 à 22:57
Bonjour,
tu met ce qui suit dans le code de ta feuille, tu change la plage <Range("A1:B10")> par votre plage
bonne soirée
tu met ce qui suit dans le code de ta feuille, tu change la plage <Range("A1:B10")> par votre plage
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim plage As Range
Set plage = Range("A1:B10")
For Each cell In plage
If cell.Value = "1" Then
plage.Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Exit For
Next cell
End Sub
bonne soirée
kadeh
Messages postés
334
Date d'inscription
vendredi 21 décembre 2007
Statut
Membre
Dernière intervention
15 novembre 2012
92
29 janv. 2009 à 01:05
29 janv. 2009 à 01:05
désolé, ça na marche pas , tiens le code ci-dessous
mais ça ne sert qu'à changer la couleur et non interdire la saisi
pour interdir la saisi fait comme t'a dis argixu
bonne soirée
mais ça ne sert qu'à changer la couleur et non interdire la saisi
pour interdir la saisi fait comme t'a dis argixu
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim plage As Range, x As Integer
Set plage = Range("A1:A10")
Sheets("Feuil1").Select
For x = 1 To Range("A10").End(xlUp).Row
If Sheets("Feuil1").Range("A" & x).Value = "1" Then
With Range("A1:A10").Interior
.Color = 255
Sheets("Feuil1").Range("A" & x).Select
End With
Else
GoTo erreur
Exit For
End If
erreur: Next x
End Sub
bonne soirée