Colorer les cellules d'une plage de données
SIDER
-
kadeh Messages postés 341 Statut Membre -
kadeh Messages postés 341 Statut Membre -
Bonjour,
Je souhaiterais que lorsque l'une des cellules de ma plage de données contient le chiffre 1, les autre cellules se colorent automatiquement afin que rien ne soit saisi dans ces mêmes cellules.
J'ai essayé la mise en forme conditionnelle mais cette fonction ne correspond pas à ma demande.
Existe-t-il une formule spécifique ?
Merci par avance pour vos réponses,
SIDER
Je souhaiterais que lorsque l'une des cellules de ma plage de données contient le chiffre 1, les autre cellules se colorent automatiquement afin que rien ne soit saisi dans ces mêmes cellules.
J'ai essayé la mise en forme conditionnelle mais cette fonction ne correspond pas à ma demande.
Existe-t-il une formule spécifique ?
Merci par avance pour vos réponses,
SIDER
A voir également:
- Colorer les cellules d'une plage de données
- Fuite données maif - Guide
- Effacer les données de navigation sur android - Guide
- Comment colorer une cellule excel avec une formule si - Guide
- Somme de plusieurs cellules excel - Guide
- Faites afficher avec un fond coloré les cellules qui contiennent une valeur comprise entre 250 et 350. - Forum VB / VBA
3 réponses
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.
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
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
