bonjour André ,Tibo et tous,
j'ai compris de façon differente que Tibo.
Tu as une formule dans une cellule, et tu voudrais que le calcul se fasse sur la valeur de la cellule active, exemple :
formule en G1 = CellActive & ' bonbons'
Tu selectionnes A1 et tu entres 12, en G1 tu obtiens '12 bonbons'
Tu selectionnes B15 et tu entres 6, en G1 tu obtiens '6 bonbons'
Si c'est ça :
'************************************************
Sub NewActiveCell(Cellule As Range)
ActiveWorkbook.Names.Add Name:='CellActive', RefersTo:=Cellule
End Sub
'************************************************
et dans le module de feuille :
'************************************************
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [G1:H6]) Is Nothing Then Exit Sub
NewActiveCell Target
End Sub
'************************************************
ici la plage [G1:H6] est exclue, pour éviter d'avoir des réferences circulaires
cordialement
Message édité par: AeroPlanneur, à: 13/05/2006 12:01
Message édité par: AeroPlanneur, à: 13/05/2006 12:02