suppression valeurs cellules adjaccentes

[MICHAEL]

Bonjour,
je souhaiterais faire en sorte que lorsque j'écris une lettre (x) en a1 les valeurs des cellules adjacentes b1,c1,d1
s'éffacent automatiquement.
de meme si je rentre une valeur dans b1 les cellules a1,c1,d1 s'éffacent et ainsi de suite...........
merci de votre aide

 

[Modeste]

Re : suppression valeurs cellules adjaccentes

Bonsoir MICHAEL,

On est d'accord sur le fait que la chose ne sera pas possible par formule?
Ne reste donc plus, comme solution qu'une petite macro événementielle, comme:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, [A1:D11]) Is Nothing Then
        If Target.Count > 1 Then Exit Sub
        If Target = "" Then Exit Sub
        temp = Target
        Application.EnableEvents = False
        Cells(Target.Row, 1).Resize(1, 4).ClearContents
        Target = temp
        Application.EnableEvents = True
    End If
End Sub

à coller dans la fenêtre de code de la Feuil1

[Edit:] salut Philippe 🙂

 

[phlaurent55]

Re : suppression valeurs cellules adjaccentes

Bonjour Michael,

voir fichier joint,

avec ce code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:D11")) Is Nothing Then
Application.EnableEvents = False
cellule = Target.Address
contenu = Target
Range(Cells(Target.Row, 1), Cells(Target.Row, 4)).ClearContents
Range(cellule) = contenu
Application.EnableEvents = True
End If
End Sub

à+
Philippe

Edit: Bonjour Luc ................ le sprinteur

 

[MICHAEL]

Re : suppression valeurs cellules adjaccentes

Merci a tous, cela me convient tout a fait

Cordialement et bonne soirée

michael

 

[MICHAEL]

Re : suppression valeurs cellules adjaccentes

Je reviens vers vous.
J' ai modifié mon fichier et je n'arrive pas a inserer dans celui-ci le code VB de la précedente version
de ce fichier. (colonne E H K N )
quelqu'un peut il m'aider?

MERCI

 

[Modeste]

Re : suppression valeurs cellules adjaccentes

Re,

Un fichier 111.xlsm, c'est celui de Philippe ... mais à cette heure, il est dans les bras de Morphée!

Il vaut toujours mieux qu'un exemple soit représentatif de la structure réel du fichier. La situation est bien différente, puisque les cellules ne sont pas adjacentes!
Essaie ceci (pendant que je vais, moi aussi rejoindre Morphée mais pas dans le même lit!)

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Union([E:E], [H:H], [K:K], [N:N])) Is Nothing Then
Application.EnableEvents = False
cellule = Target.Address
contenu = Target
Union(Cells(Target.Row, 5), Cells(Target.Row, 8), Cells(Target.Row, 11), Cells(Target.Row, 14)).ClearContents
Range(cellule) = contenu
Application.EnableEvents = True
End If
End Sub

 

[MICHAEL]

Re : suppression valeurs cellules adjaccentes

merci c'est OK!

Bonne nuit.

 

[phlaurent55]

Re : suppression valeurs cellules adjaccentes

Bonjour à tous,

Quelle complication !!!!!!!!!!!!!

Voir fichier joint, pour un même résultat, sans macro et avec une seule colonne pour le choix du taux de TVA

à+
Philippe