Bonjour,
quelqu'un pourrait il m'aider à résoudre
cette macro.
 
1) je sélectionne 2 cellules comme input, Ex: C1 & C2
2) je désire obtenir ceci:
   si C1>0 then C2=0  
   si C2>0 then C1=0
autrement dit si j'introduit un un nbr >0 dans une
des 2 cellules automatiquement l'autre cellule est
remise à 0
J'ai fait le code suivant qui marche bien dans un
sens mais je n'obtient pas l'effet bascule.
On dirait flip-flop en électronique
 
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("c6" ).Value > 0 Then Range("c7" ).Value = 0
End Sub  
   
j'ai également essayer le code ci-dessous
mais sans résultat
 
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("c6" ).Value > 0 Then Range("c7" ).Value = 0
If Range("c7" ).Value > 0 Then Range("c6" ).Value = 0
End Sub
 
Si dans votre résolution vous pouvez travailler avec
"Range" cela me permettrait d'affecter les conditions
a plusieurs cellules,exemple:
 
If Range("C6,D6,E6" ).Value > 0  
Then Range("C7,D7,E7" ).Value = 0
& l'inverse.
 
Merci d'avance

bonsoir
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$6" And Target.Value > 0 Then
Range("C7" ).FormulaR1C1 = ""
End If
If Target.Address = "$C$7" And Target.Value > 0 Then
Range("C6" ).FormulaR1C1 = ""
End If
End Sub
 
pour l'instant j'en suis la
je regarde pour ton range

ca peut peut-etre servir
 
for each cell in selection
next
 
 
a+