Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
isabelle
bonjour Les NEWS,
en nommant la plage avec Insertion, Nom, Définir, et en plaçant la formule =nbval(plage) sur cette feuille on provoque un recalcule de la feuille aussitôt qu'une cellule de "plage" est modifier.
à mettre sur le module de classe de cette feuille.
Private Sub Worksheet_Calculate() Set isect = Application.Intersect(Range("plage"), ActiveCell) If Not isect Is Nothing Then Range("D1") = Now 'à adapter à la bonne cellule End If End Sub
isabelle
Bonjour à toutes & tous
Et bien voilà mon problème
je souhaite mettre la date du jour dans une cellule si une plage de cellule a été modifiée.
et oui ! c'est tout ! ... mais tout pour moi : ) merci de votre aide !
bonjour Les NEWS,
en nommant la plage avec Insertion, Nom, Définir,
et en plaçant la formule =nbval(plage) sur cette feuille
on provoque un recalcule de la feuille aussitôt qu'une cellule de
"plage" est modifier.
à mettre sur le module de classe de cette feuille.
Private Sub Worksheet_Calculate()
Set isect = Application.Intersect(Range("plage"), ActiveCell)
If Not isect Is Nothing Then
Range("D1") = Now 'à adapter à la bonne cellule
End If
End Sub
isabelle
Bonjour à toutes & tous
Et bien voilà mon problème
je souhaite mettre la date du jour dans une cellule si une plage de cellule
a été modifiée.
et oui ! c'est tout ! ... mais tout pour moi : )
merci de votre aide !
en nommant la plage avec Insertion, Nom, Définir, et en plaçant la formule =nbval(plage) sur cette feuille on provoque un recalcule de la feuille aussitôt qu'une cellule de "plage" est modifier.
à mettre sur le module de classe de cette feuille.
Private Sub Worksheet_Calculate() Set isect = Application.Intersect(Range("plage"), ActiveCell) If Not isect Is Nothing Then Range("D1") = Now 'à adapter à la bonne cellule End If End Sub
isabelle
Bonjour à toutes & tous
Et bien voilà mon problème
je souhaite mettre la date du jour dans une cellule si une plage de cellule a été modifiée.
et oui ! c'est tout ! ... mais tout pour moi : ) merci de votre aide !
Les NEWS
Hummm... je ne dois pas tout comprendre.. ça ne marche pas =nbval(plage) marche effectivement, mais ne change pas si une lettre est modifiée
et le reste ne se déclenche pas : (
Peux tu me donner + d'expliquations : ) merci ; )
"isabelle" a écrit dans le message de news:
bonjour Les NEWS,
en nommant la plage avec Insertion, Nom, Définir, et en plaçant la formule =nbval(plage) sur cette feuille on provoque un recalcule de la feuille aussitôt qu'une cellule de "plage" est modifier.
à mettre sur le module de classe de cette feuille.
Private Sub Worksheet_Calculate() Set isect = Application.Intersect(Range("plage"), ActiveCell) If Not isect Is Nothing Then Range("D1") = Now 'à adapter à la bonne cellule End If End Sub
isabelle
Bonjour à toutes & tous
Et bien voilà mon problème
je souhaite mettre la date du jour dans une cellule si une plage de cellule
a été modifiée.
et oui ! c'est tout ! ... mais tout pour moi : ) merci de votre aide !
Hummm... je ne dois pas tout comprendre.. ça ne marche pas
=nbval(plage) marche effectivement, mais ne change pas si une lettre est
modifiée
et le reste ne se déclenche pas : (
Peux tu me donner + d'expliquations : )
merci ; )
"isabelle" <as.isabellevIE@videotron.ca> a écrit dans le message de news:
3F84C3EC.8ED3F738@videotron.ca...
bonjour Les NEWS,
en nommant la plage avec Insertion, Nom, Définir,
et en plaçant la formule =nbval(plage) sur cette feuille
on provoque un recalcule de la feuille aussitôt qu'une cellule de
"plage" est modifier.
à mettre sur le module de classe de cette feuille.
Private Sub Worksheet_Calculate()
Set isect = Application.Intersect(Range("plage"), ActiveCell)
If Not isect Is Nothing Then
Range("D1") = Now 'à adapter à la bonne cellule
End If
End Sub
isabelle
Bonjour à toutes & tous
Et bien voilà mon problème
je souhaite mettre la date du jour dans une cellule si une plage de
cellule
a été modifiée.
et oui ! c'est tout ! ... mais tout pour moi : )
merci de votre aide !
Hummm... je ne dois pas tout comprendre.. ça ne marche pas =nbval(plage) marche effectivement, mais ne change pas si une lettre est modifiée
et le reste ne se déclenche pas : (
Peux tu me donner + d'expliquations : ) merci ; )
"isabelle" a écrit dans le message de news:
bonjour Les NEWS,
en nommant la plage avec Insertion, Nom, Définir, et en plaçant la formule =nbval(plage) sur cette feuille on provoque un recalcule de la feuille aussitôt qu'une cellule de "plage" est modifier.
à mettre sur le module de classe de cette feuille.
Private Sub Worksheet_Calculate() Set isect = Application.Intersect(Range("plage"), ActiveCell) If Not isect Is Nothing Then Range("D1") = Now 'à adapter à la bonne cellule End If End Sub
isabelle
Bonjour à toutes & tous
Et bien voilà mon problème
je souhaite mettre la date du jour dans une cellule si une plage de cellule
a été modifiée.
et oui ! c'est tout ! ... mais tout pour moi : ) merci de votre aide !
AV
...si une plage de cellule a été modifiée.
Sous réserve de bonne compréhension du terme "modifiée" Dans le module de la feuille et avec plage nommée "laPlage"
Private Sub Worksheet_Change(ByVal zz As Range) If Intersect(zz, [laPlage]) Is Nothing Then Exit Sub [A1] = Date End Sub
AV
...si une plage de cellule a été modifiée.
Sous réserve de bonne compréhension du terme "modifiée"
Dans le module de la feuille et avec plage nommée "laPlage"
Private Sub Worksheet_Change(ByVal zz As Range)
If Intersect(zz, [laPlage]) Is Nothing Then Exit Sub
[A1] = Date
End Sub
Sous réserve de bonne compréhension du terme "modifiée" Dans le module de la feuille et avec plage nommée "laPlage"
Private Sub Worksheet_Change(ByVal zz As Range) If Intersect(zz, [laPlage]) Is Nothing Then Exit Sub [A1] = Date End Sub
AV
Yanov
Ouille, ouille, ouille... si je m'attendais à ça... je suis désolé.. je planne à 15 000, là. ... euh je ne sais pas koi dire... vous pouvez me la refaire ? : )
"AV" a écrit dans le message de news: bm56f0$1mh$
...si une plage de cellule a été modifiée.
Sous réserve de bonne compréhension du terme "modifiée" Dans le module de la feuille et avec plage nommée "laPlage"
Private Sub Worksheet_Change(ByVal zz As Range) If Intersect(zz, [laPlage]) Is Nothing Then Exit Sub [A1] = Date End Sub
AV
Ouille, ouille, ouille...
si je m'attendais à ça...
je suis désolé.. je planne à 15 000, là.
...
euh je ne sais pas koi dire...
vous pouvez me la refaire ? : )
"AV" <alain.vallon@wanadoo.fr> a écrit dans le message de news:
bm56f0$1mh$1@news-reader3.wanadoo.fr...
...si une plage de cellule a été modifiée.
Sous réserve de bonne compréhension du terme "modifiée"
Dans le module de la feuille et avec plage nommée "laPlage"
Private Sub Worksheet_Change(ByVal zz As Range)
If Intersect(zz, [laPlage]) Is Nothing Then Exit Sub
[A1] = Date
End Sub
Ouille, ouille, ouille... si je m'attendais à ça... je suis désolé.. je planne à 15 000, là. ... euh je ne sais pas koi dire... vous pouvez me la refaire ? : )
"AV" a écrit dans le message de news: bm56f0$1mh$
...si une plage de cellule a été modifiée.
Sous réserve de bonne compréhension du terme "modifiée" Dans le module de la feuille et avec plage nommée "laPlage"
Private Sub Worksheet_Change(ByVal zz As Range) If Intersect(zz, [laPlage]) Is Nothing Then Exit Sub [A1] = Date End Sub
