Discussion :

[Krimo_48]

Bonjour,

Dans le fichier ci-joint, Nouvellesfacturesfournisseurs_US_FR.xlsx , j'aimerais trouver une VBA qui supprime le contenu de la cellule AY si AW est pleine, et inversément.

J'ai bien trouver ça:

Code :

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

1
2
3
4
5
Sub Macro1()
 
Range("AY7").Select
Selection.ClearContents
End Sub

Mais je n'arrive pas à intégrer une fonction à condition

Ce fichier doit être exporté via un add-in et lorsque je l'envoie, il me met en disant que la valeur (importée par VBA) est incorrecte en AY. Lorsque je me mets sur la cellule et que j'appuie sur "Suppr", le add-in exporte bien le fichier.

Je vous remercie par avance de l'aide que vous voudrez bien m'apporter.

Cordialement

[fraflt69]

Bonjour Krimo_48,

J'ai mis ce code dans la feuille

Code :

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

1
2
3
4
5
6
7
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("AW:AW")) Is Nothing Then
    If (Cells(Target.Row, Target.Column) <> "") Then
    Cells(Target.Row, Target.Column + 2) = ""
    End If
End If
End Sub

Cordialement