XL 2016 VBA effacer automatiquement cellule

[Yücel]

Bonjour,

Est-il possible de faire en sorte que si dans mon tableau dans la colonne débit nous avons déjà un montant de saisie et que nous voulons saisir un montant sur la colonne crédit, et bien le montant qui était saisie dans la colonne débit s’efface.

Et vice-versa, si nous avons déjà un montant de saisie dans la colonne crédit et que nous voulons saisir un montant sur la colonne débit, et bien le montant qui était saisie dans la colonne crédit s’efface.

Faire ceci pour chaque des lignes de mon tableau car il ne peut pas y avoir sur une même ligne de saisie à la fois un montant au débit et un montant au crédit.

Merci beaucoup pour votre précieuse aide !

 

[sylvanu]

Bonjour Yücel,
Un essai en PJ avec :

Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fin: If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [L:L]) Is Nothing Then
         Application.ScreenUpdating = False
         If LCase(Target) = "x" Then
            Cells(Target.Row, "M") = ""
         End If
    End If
    If Not Intersect(Target, [M:M]) Is Nothing Then
         Application.ScreenUpdating = False
         If LCase(Target) = "x" Then
            Cells(Target.Row, "L") = ""
         End If
    End If
Fin:
Application.ScreenUpdating = True
End Sub

Un "x" en L ou M efface la cellule d'à coté, à droite ou à gauche suivant le cas, en automatique.

 

[Yücel]

Bonjour Sylvanu !

Un grand plaisir de vous revoir vous m'aviez déjà beaucoup aidé dans le passé !

C'est tout à fait ça mais à une condition près c'est qu'au lieu d'avoir des croix ce sont des montants qui doivent être supérieur à 0

Un grand merci

 

[sylvanu]

Re,
Pourquoi donc avoir mis des "x" ? On y gagne toujours à avoir des fichiers test vraiment représentatif.
En PJ un essai avec :

Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fin: If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [L:L]) Is Nothing Then
         Application.ScreenUpdating = False
         If Val(Target) <> 0 Then
            Cells(Target.Row, "M") = ""
         End If
    End If
    If Not Intersect(Target, [M:M]) Is Nothing Then
         Application.ScreenUpdating = False
         If Val(Target) <> 0 Then
            Cells(Target.Row, "L") = ""
         End If
    End If
Fin:
Application.ScreenUpdating = True
End Sub

Ca ne change pas beaucoup.

 

[Yücel]

Les croix indiquaient juste l'endroit de saisie (je suis désolé).

Le résultat est bon seulement lorsque j'utilise un 0 à virgule (exemple : 0,2) ==> ça ne fonctionne pas.

 

[sylvanu]

Sorry, celle là, je ne l'avais pas vu.
Il suffit de supprimer les "Val"

 

[Yücel]

un grand MERCI à vous !! c'est parfait.

Je vous souhaite une Excellent journée.