Vider cellule si une autre est remplie

Bonjour à tous,

J'aimerai avoir un peu d'aide pour mon fichier de travail :

Dans mon fichier j'aimerai qu'entre les cellules E9 jusqu'à H9, quant on en rempli une , les autre s'efface. De façon à n'avoir toujours qu'une cellule remplie.

Je rempli mes cellules uniquement avec des "1" (j'ai un petit code qui rempli la cellule dans cette plage avec "1" quand je clique dessus)

Et cela pour toutes les cellules de mon tableau qui va jusqu

'à la ligne 162.

Si quelqu'un à une idée...Je sèche là!

D'avance un grand merci!

Eric

Impossible de charger ce fichier de mon côté (fichier corrompu).

Une possibiité :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Row <> 9 Or Target.Column < 5 Or Target.Column > 8 Then Exit Sub
    Range("E9:H9").Value = ""
    Cells(Target.Row, Target.Column).Value = 1
End Sub

Bonjour,

corrompu pour moi aussi...

Dans le module de la feuile :

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim tmp
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("E9:H9")) Is Nothing Then
        tmp = Target.Value
        Application.EnableEvents = False
        Range("E9:H9").ClearContents
        Target.Value = tmp
        Application.EnableEvents = True
    End If
End Sub

eric

Oups, désolé eriiic, j'ai publié en 2 temps.

Pas de quoi être désolé
C'est moi qui n'avais pas rafraichi.
Pour ma part je remet la saisie, que ce soit 1 ou autre chose.
eric

Waou ! vous répondez super vite ! Enorme !

Alors je vais tester vos solutions cet aprem ! Un super grand merci ;)

Je reviens vers vous pour vous dire si ça fonctionne et si je m'en sors !

Bonjour Eriiic et Optimist, et tous les autres

J'ai uploadé mon fichier, (message précédent).

Je n'ai pas réussi à faire fonctionner vos codes respectifs, possible que ça vienne de moi, je ne suis pas un monstre en Excel (mais j'essaye ! ).

Si quelqu'un a envie d'y jeter un œil, c'est cool !

Et du coup petit mémo :

Dans mon fichier j'aimerai qu'entre les cellules E9 jusqu'à H9, quant on en rempli une , les autre s'efface. De façon à n'avoir toujours qu'une cellule remplie.

Je rempli mes cellules uniquement avec des "1" (j'ai un petit code qui rempli la cellule dans cette plage avec "1" quand je clique dessus)

Et cela pour toutes les cellules de mon tableau qui va jusqu'à la ligne 162.

D'avance merci,

Eric

Encore fichier corrompu. Je t'ai fait passer mon adresse e-mail en MP pour que tu m'envoies ce @/!!yw de fichier sans le compresser. Le défaut de CRC vient probablement de ton logiciel de compression.