bloquer

[Guest]

Bonjour!

J'ai un tableau avec deux lignes et je voudrai que, lorsque j'écris une donnée dans une cellule d'une des deux lignes, la cellule de l'autre ligne se bloque automatiquement de manière à ce que l'utilisateur puisse entrer des données dans l'une des deuc lignes mais PAS les deux.... Si en se bloquant la celule pouvait aussi se noircir, ca serait le top du top!!! Merci beaucoup!

 

[Jocelyn]

Re : bloquer

Bonjour le Forum,
Bonjour Lililette,

un essai dans le fichier joint sur les cellules A1 et A2

jocelyn

Bonjour tibo, bonjour André, ca c'est bien vrai pas facile de faire plus proche 🙂 bonne journée a vous deux

 

[andré]

Re : bloquer

Salut,

Un petit exemple en pièce jointe.

Â+

EDITION :

Salut Jocelyn,
On ne peut pas faire "plus mieux identique" !

Salut Tibo,
J'ai hésité quant à la même interprétation de la question que la tienne.
Il faut avouer que ce n'était pas très clair.

 

[Tibo]

Re : bloquer

Salut Lililette,

Dans la continuité de ce que je t'ai déjà proposé :

Pour "bloquer" l'autre ligne, il faut passer par une validation (menu Données) :

Sélectionner A1:I1

Données - Validation - Personnalisé
Formule : =NBVAL($A$2:$I$2)=0

Sélectionner A2:I2

Données - Validation - Personnalisé
Formule : =NBVAL($A$1:$I$1)=0

Pour colorier, reprendre la MFC proposée hier :

A1:I1 : La formule est : =NBVAL($A$2:$I$2) + Motif noir

A2:I2 : La formule est : =NBVAL($A$1:$I$1) + Motif noir

Cet exemple s'applique à une plage de cellules A1:I2

A adapter à ton cas.

Bonne et chaude journée.

@+

Salut André,

Après avoir lu ta réponse, je me suis dit que j'avais mal interprété. A voir. A Lililette de faire le tri et de nous dire quoi 😛
@+

 

[Guest]

Re : bloquer

Un grand merci à vous trois!!! Bonne journée

 

[abc]

Re : bloquer

Bonjour,
Code trouvé sur le forum,a adapter suivant tes besoins,il manque la couleur.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B3:E9")) Is Nothing Then
If Target.Column = 2 And Target.Value <> "" Then
Target.Offset(0, 1).ClearContents
End If
If Target.Column = 3 And Target.Value <> "" Then
Target.Offset(0, -1).ClearContents
End If
End If
End Sub
A +

 

[abc]

Re : bloquer

Bonjour,
fichier ci joint avec ex de MEFC
A +