Ajouter une condition à un code VBA

Bonjour

mes amis j'ai un code VBA qui transforme les valeurs sous la forme de 03022017 en 03-02-2017 dans les colonnes A, B et C.

je cherche à ajouter une condition à ce code de la façon suivante

si le contenu de la cellule E5 est différent de 0 alors exécuter ce macro si non ne rien faire.

voila le code VBA

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Count > 1 Then Exit Sub

Select Case Target.Column

Case 1, 2, 7

If Target.Row > 5 Then

If IsEmpty(Target) Then Exit Sub

Application.EnableEvents = False

With Target

.NumberFormat = "General"

.Value = ConvertToDate(Target.Value)

.NumberFormat = "m/d/yyyy"

End With

Application.EnableEvents = True

End If

End Select

End Sub

Très gentille de m'aider

siga

Bonjour,

ça aurait était plus simple avec un fichier. Essaye de remplacer la ligne comme suivant :

If Target.Count > 1 Or Range("E5") = 0 Then Exit Sub
Raja a écrit :

Bonjour,

ça aurait était plus simple avec un fichier. Essaye de remplace la ligne comme suivant :

If Target.Count > 1 Or Range("E5") = 0 Then Exit Sub

Merci Raja

Rechercher des sujets similaires à "ajouter condition code vba"