Ajouter Formule Quand la feuille active est modifé

[Nevil]

Bonjour,

Me voici une fois de plus obligé de vous demander 2-3 petites choses:
Ce que je souhaiterais, c'est que lorsque je modifie la cellule A1 dans la 'feuil1', qu'une formule s'ajoute dans la cellule C1.

Voici mon code qui ne fonctionne pas correctement:

Private Sub Worksheet_Change(ByVal Target As Excel.range)

Set isect = Application.Intersect(Target, range('A1:B1'))
If (isect Is Nothing) Then

Cells(1, 3) = 'oui'
End If
End Sub

Merci pour votre précieuse aide

Message édité par: nevil, à: 28/03/2006 15:32

 

[JC de Lorient]

Salut Nevil
essayes comme ceci :

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Application.Intersect(Target, Range('A1:B1')) Is Nothing Then
Cells(1, 3) = 'oui'
End If
End Sub


JC

 

[Nevil]

Hé bien je te remercie: simple, rapide et efficace! Impeccable quoi


MERCI

Julien