Effacer le contenu d'une cellule quand une autre est vide VBA Fermé

Question

Bonjour, 
j'ai ces quelques lignes VBA pour me palcer automatiquement des dates:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 4 Then
Target.Offset(0, 1) = Date
Target.Offset(0, 5) = Date + Range("J4").Value
Target.Offset(0, 9) = Date + Range("N4").Value
Target.Offset(0, 13) = Date + Range("R4").Value
End If

Le problème c'est que comme c'est sur change même lorsque Column4 = 0 la date est mise

J'aimerais rajouter une condition qui dit que quand column4 = "" alors target.offset(0,1) = ""

J'ai essayé mais sans succes donc si vous pouviez m'aider, ce serait cool merci!


EDIT : Ajout des balises de code (la coloration syntaxique).
Explications disponibles ici :
https://codes-sources.commentcamarche.net/faq/10686-le-nouveau-codes-sources-comment-ca-marche#balises-code 

Merci d'y penser dans tes prochains messages.
.

Configuration: Windows / Chrome 43.0.2357.130

jordane45 · Answer

Bonjour,



J'aimerais rajouter une condition qui dit que quand column4 = "" alors target.offset(0,1) = ""

if target.value ="" Then target.offset(0,1) = ""

Le Pingou · Answer

Bonjour,
C'est peut-être cela que vous cherchez :
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column = 4 Then
    If Target.Value <> 0 Then
        Target.Offset(0, 1) = Date
        Target.Offset(0, 5) = Date + Range("J4").Value
        Target.Offset(0, 9) = Date + Range("N4").Value
        Target.Offset(0, 13) = Date + Range("R4").Value
    Else
        Target.Offset(0, 1) = ""
        Target.Offset(0, 5) = ""
        Target.Offset(0, 9) = ""
        Target.Offset(0, 13) = ""
    End If
End If
Application.EnableEvents = True
End Sub

Salutations.
Le Pingou

lilounice · Answer

j'avais fait presque pareil If Target.Column = 4 And Target.Value <> 0 ThenTarget.Offset(0, 1) = DateTarget.Offset(0, 5) = Date + Range("J4").ValueTarget.Offset(0, 9) = Date + Range("N4").ValueTarget.Offset(0, 13) = Date + Range("R4").ValueEnd IfIf Target.Column = 4 And Target.Value = 0 ThenTarget.Offset(0, 1) = ""Target.Offset(0, 5) = ""Target.Offset(0, 9) = ""Target.Offset(0, 13) = ""End If Je viens d'essayer ce code avec else mais ça fait planter excel, je veux dire tout le programme pas le code De plus avec mon code j'ai un probleme lorsque je supprime une seule entrée (que ce soit target.column ou target.offset) Mais lorsque j'en supprime plusieurs le code bug et me met en surbrillance la ligne If Target.Column = 4 And Target.Value <> 0 Then

Le Pingou · Answer

Bonjour, 
Je vous ai proposé un code que j'ai testé et qui fonctionne et ceci sans modification.
Le minimum serait de l'essayer sans oublie bonjour et salutations.
Libre à vous de ne pas le faire.

Le Pingou · Answer

Bonjour,
De la peine à vous croire car il y a aucune raison que cela fonctionne chez moi et des erreurs chez vous.
Vous pouvez toujours mettre le fichier sur  https://www.cjoint.com/ et poster le lien et comme cela on trouvera ou le chat à mal à la patte.

Le Pingou · Answer

Bonjour,
Mon fichier test : http://www.cjoint.com/c/EGwpW7nQCqY

Le Pingou · Answer

Bonjour,
Une possibilité dans le message 8 ....!

Le Pingou · Answer

Bonjour,
C'est dur de recevoir des informations : Sauriez-vous ce qui cloche ?

Si vous ne voulez pas mettre le fichier à disposition alors au minimum, le message d'erreur et son numéro et sur quelle ligne de code est-il arrêtée (surligner en jaune)

Le Pingou · Answer

Bonjour lilounice,
Merci pour l'information.
Merci eriiic (il me donne une petite erreur sur : pl = Intersect(Target, [D:D]) ....je cherche le pourquoi...)
Entre temps j'avais préparé ce qui suit :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim pl As Range, c As Range
Application.EnableEvents = False
If Target.Column = 4 Then
        For Each c In Target
            If c.Value <> 0 Then
                c.Offset(0, 1) = Date
                c.Offset(0, 5) = Date + Range("J4").Value
                c.Offset(0, 9) = Date + Range("N4").Value
                c.Offset(0, 13) = Date + Range("R4").Value
            Else
                c.Offset(0, 1) = ""
                c.Offset(0, 5) = ""
                c.Offset(0, 9) = ""
                c.Offset(0, 13) = ""
            End If
        Next c
    End If
    Application.EnableEvents = True
End Sub

Effacer le contenu d'une cellule quand une autre est vide VBA

9 réponses

Discussions similaires