Discussion :

[EricQ]

Bonjour !

Considérons 3 cellules appelées A, B et C qui contiennent initialement le chiffre 0.
L’utilisateur place une valeur dans A différente de 0.
Puis, il place une autre valeur différente de 0 dans B, celle qu’il avait placée dans A passe alors automatiquement à 0.
Si ensuite, il place une autre valeur dans C différente de 0, celle dans B passe à 0…etc

Donc ne jamais avoir plus d’une cellule avec une valeur différente de 0.

Qui veux bien m'aider à traduire en lignes informatiques cette idée ?

[tomy7]

bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub test()
If Sheet1.Range("A1").Value > "0" Then
Sheet1.Range("B1").Value = 0
Sheet1.Range("C1").Value = 0
End If
End Sub

tu fais pareil pour chaque cellule et c est bon je pense!

est ce que ca te convient?

[cafeine]

Hello,

voici une fonction générique qui s'applique à une plage de cellules nommée "toto", ça peut évidemment être adapté.

à mettre sur le code de la feuille concernée

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub Worksheet_Change(ByVal Target As Range)
 
Dim c As Range
On Error GoTo smartExit
 
Application.EnableEvents = False
If Intersect(Target, Range("toto")) Then
    If Target.Value <> 0 Then
        For Each c In Range("toto").Cells
            If c.Address <> Target.Address Then
                c.Value = 0
            End If
        Next c
    End If
End If
 
smartExit:
Application.EnableEvents = True
 
Set c = Nothing
End Sub

[EricQ]

Merci cela marche impec !!!!

[House MD]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Worksheet_Change(ByVal Target As Range)
Dim A As Double
 
If Target > 0 Then
    A = Target.Value
    Cells(1, 1) = 0
    Cells(1, 2) = 0
    Cells(1, 3) = 0
    Target = A
End If
 
End Sub

[tomy7]

tu active sa avec un raccourci ou avec un bouton et c fini :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub test()
If Sheet1.Range("A1").Value > 0 Then
Sheet1.Range("B1").Value = 0
Sheet1.Range("C1").Value = 0
End If
 
If Sheet1.Range("B1").Value > 0 Then
Sheet1.Range("A1").Value = 0
Sheet1.Range("C1").Value = 0
End If
 
If Sheet1.Range("C1").Value > 0 Then
Sheet1.Range("B1").Value = 0
Sheet1.Range("A1").Value = 0
End If
End Sub

mais le code de cafeine est peut meilleur ....ca depend de ton besoin!

[EricQ]

Merci pour les réponses rapides mais j'ai encore un petit problème.

En court : Y’a moyen de mettre un toto 2 ?

En long : Avec Range("A1:C1", "A2:C2") par exemple, il me remet à zero les valeurs sur les deux lignes alors qu’il faudrait qu’il le fasse ligne par ligne.

Any help, please.

[House MD]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Str As String
 
If Target <> 0 Then
    str = Target.Value
    Cells(target.row, 1) = 0
    Cells(target.row, 2) = 0
    Cells(target.row, 3) = 0
    Target = str
End If
 
 
End Sub