macro en fonction de la saisie de deux cellules

[ychc]

Bonjour à tous,

J'utilise un fichier qui s'enregistre automatiquement si des cellules sont renseignées.
Ces cellules vont de A1 à A10.

Je cherche en vain a faire la même chose, mais seulement en renseignent une ou deux cellules.
Par exemple A1 ou A10.

Mon code est le suivant:

[CODEPrivate Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, [A1 : A10]) Is Nothing Then

Application.OnTime Now + TimeValue("00:00:03"), "EnregistrerFichier"

End If

End Sub][/CODE]

Est-ce seulement un problème de ponctuation, ou dois-je changer la ligne de code.

Merci à ceux qui pourront m'aider.

 

[phlaurent55]

Re : macro en fonction de la saisie de deux cellules

Bonjour ychc,

remplace:
If Not Intersect(Target, [A1 : A10]) Is Nothing Then

par:
If Not Intersect(Target, Range("A1,A10")) Is Nothing Then

à+
Philippe

 

[ychc]

Re : macro en fonction de la saisie de deux cellules

Merci Philippe,

Cela fonctionne,

Bonne soirée et bon WE.