OVH Cloud OVH Cloud

Procédure déclenchée par un événement sur une cellule d'une feuille de calcul

3 réponses
Avatar
Decaplan
Bonjour,

Je souhaite déclencher une procédure suite à un événement (ex chgt de
valeur) qui survient à une cellule précise d'une feuille de calcul. Est
ce possible. Merci de votre aide.

Decaplan

3 réponses

Avatar
Philippe.R
Bonjour tonton,

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("a1")) Is Nothing Then MsgBox "coucou"
End Sub

dans la feuille souhaitée déclenchera un message si et seulement si a1 change de valeur
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002

"Decaplan" a écrit dans le message de
news:
Bonjour,

Je souhaite déclencher une procédure suite à un événement (ex chgt de
valeur) qui survient à une cellule précise d'une feuille de calcul. Est
ce possible. Merci de votre aide.

Decaplan


Avatar
Decaplan
On 22 mai 2004, you wrote in microsoft.public.fr.excel:

Bonjour tonton,

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("a1")) Is Nothing Then MsgBox "coucou"
End Sub

dans la feuille souhaitée déclenchera un message si et seulement si a1
change de valeur


Merci pour cette réponse. elle ne correspond hélas pas exactement à ce qu'il
me faut. Je m'explique. Je souhaite "mettre à disposition" d'une feuille de
calcul une procédure sous-jacente unique que je puis affecter à une ou
plusieurs cellules (selon les besoins du moment). Par exemple:

Si le contenu de la cellule appelante change alors donner la velur "Toto" à
la celle immédiatement en dessous.

Decaplan

Avatar
Philippe.R
Bonsoir,
J'ai beau relire ta réponse, mon neurone ne voit pas trop ce que tu voudrais faire et surtout les
conditions dans lesquelles tu souhaites le faire.
Es tu certain que la solution ne serait pas plus simple avec une formule de feuille de calcul ?
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002

"Decaplan" a écrit dans le message de
news:
On 22 mai 2004, you wrote in microsoft.public.fr.excel:

Bonjour tonton,

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("a1")) Is Nothing Then MsgBox "coucou"
End Sub

dans la feuille souhaitée déclenchera un message si et seulement si a1
change de valeur


Merci pour cette réponse. elle ne correspond hélas pas exactement à ce qu'il
me faut. Je m'explique. Je souhaite "mettre à disposition" d'une feuille de
calcul une procédure sous-jacente unique que je puis affecter à une ou
plusieurs cellules (selon les besoins du moment). Par exemple:

Si le contenu de la cellule appelante change alors donner la velur "Toto" à
la celle immédiatement en dessous.

Decaplan