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
- Comment colorer une cellule excel avec une formule si - Guide
- Effacer les données de navigation - Guide
- Excel additionner des cellules - 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 VB / VBA
- 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 Musique / Radio / Clip
3 réponses
Utilisateur anonyme
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
