Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Mise à jour cellule quand F9 est pressé

Mise à jour cellule quand F9 est pressé

8 réponses
Avatar
Gregory Hilaire
Bien le bonjour!

Ma question est la suivante peut-on capturer en VBA la mise à jour manuelle
[F9]
Je voudrais que la cellule B2 contienne la valeur "Données à jour" quand on
presse [F9].

Merci pour tout aide!
Signaler un problème avec ce contenu

8 réponses

Supprimer
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
Avatar
Daniel.C
Bonsoir.
Dans le code de ta feuille :

Private Sub Worksheet_Calculate()
[B2] = "Données à jour"
End Sub

Daniel
"Gregory Hilaire" a écrit dans le message de news:


Bien le bonjour!

Ma question est la suivante peut-on capturer en VBA la mise à jour
manuelle [F9]
Je voudrais que la cellule B2 contienne la valeur "Données à jour" quand
on presse [F9].

Merci pour tout aide!




Avatar
Gregory Hilaire
Un grand Merci
C'est tout ce que je voulais et cela fonctionne bien!


"Daniel.C" a écrit dans le message de news:
%
Bonsoir.
Dans le code de ta feuille :

Private Sub Worksheet_Calculate()
[B2] = "Données à jour"
End Sub

Daniel
"Gregory Hilaire" a écrit dans le message de news:


Bien le bonjour!

Ma question est la suivante peut-on capturer en VBA la mise à jour
manuelle [F9]
Je voudrais que la cellule B2 contienne la valeur "Données à jour" quand
on presse [F9].

Merci pour tout aide!








Avatar
JB
Bonsoir,

Private Sub Worksheet_Calculate()
Application.EnableEvents = False
[B2] = "A jour"
Application.EnableEvents = True
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Application.CalculationState = 2 Then
[B2] = "Pas A jour"
End If
End Sub

http://cjoint.com/?ctuYnxQVob

JB



On 19 fév, 19:57, "Gregory Hilaire" wrote:
Bien le bonjour!

Ma question est la suivante peut-on capturer en VBA la mise à jour manue lle
[F9]
Je voudrais que la cellule B2 contienne la valeur "Données à jour" qua nd on
presse [F9].

Merci pour tout aide!


Avatar
Michel Samoey
Bonjour,
mais une fois que c'est écrit "Données à jour", est ce que ce sera
définitif ou est ce que ce sera effacé lors d'un nouveau chargement ?

Cordialement
Michel

"Daniel.C" a écrit dans le message de news:
%
Bonsoir.
Dans le code de ta feuille :

Private Sub Worksheet_Calculate()
[B2] = "Données à jour"
End Sub



Avatar
Gregory Hilaire
Un grand Merci à JB pour cette mise à jour. Maintenant je me pause une
question serait il possible de
généraliser cela à tout le classeur? Le changement ( à traquer ) pourrait
être dans différente feuilles...




Et comme ce n'est pour n'importe quel cellule que l'évènement doit se
déclencher j'avais modifié un peu:
Et créer un nom de range cible englobant uniquement les cellules à changer

Private Sub Worksheet_Change(ByVal Target As Range)
'Désactive l'évènement
Application.EnableEvents = False
If Application.Intersect(Target, Range("Cible")) Is Nothing Then
If [B2] <> "Données à jour" Then [B2] = ""
Else
[B2] = "Mettre à Jour données"
End If
'Réactive l'évènement
Application.EnableEvents = True
End Sub

Private Sub Worksheet_Calculate()
Application.EnableEvents = False
[B2] = "Données à jour"
Application.EnableEvents = True
End Sub





"JB" a écrit dans le message de news:

Bonsoir,

Private Sub Worksheet_Calculate()
Application.EnableEvents = False
[B2] = "A jour"
Application.EnableEvents = True
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Application.CalculationState = 2 Then
[B2] = "Pas A jour"
End If
End Sub

http://cjoint.com/?ctuYnxQVob

JB



On 19 fév, 19:57, "Gregory Hilaire" wrote:
Bien le bonjour!

Ma question est la suivante peut-on capturer en VBA la mise à jour
manuelle
[F9]
Je voudrais que la cellule B2 contienne la valeur "Données à jour" quand
on
presse [F9].

Merci pour tout aide!


Avatar
JB
Bonjour,

http://cjoint.com/?cvotvdvXui

Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
Application.EnableEvents = False
Sheets(1).[B2] = "A jour"
Application.EnableEvents = True
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As
Range)
If Application.CalculationState = 2 Then
Sheets(1).[B2] = "Pas à jour"
End If
End Sub

JB

On 21 fév, 13:49, "Gregory Hilaire" wrote:
Un grand Merci à JB pour cette mise à jour. Maintenant je me pause une
question serait il possible de
généraliser cela à tout le classeur? Le changement ( à traquer ) p ourrait
être dans différente feuilles...

Et comme ce n'est pour n'importe quel cellule que l'évènement doit se
déclencher j'avais modifié un peu:
Et créer un nom de range cible englobant uniquement les cellules à cha nger

Private Sub Worksheet_Change(ByVal Target As Range)
'Désactive l'évènement
 Application.EnableEvents = False
 If Application.Intersect(Target, Range("Cible")) Is Nothing Then
 If [B2] <> "Données à jour" Then [B2] = ""
 Else
 [B2] = "Mettre à Jour données"
 End If
 'Réactive l'évènement
  Application.EnableEvents = True
End Sub

Private Sub Worksheet_Calculate()
Application.EnableEvents = False
[B2] = "Données à jour"
Application.EnableEvents = True
End Sub

"JB" a écrit dans le message de news:

Bonsoir,

Private Sub Worksheet_Calculate()
  Application.EnableEvents = False
  [B2] = "A jour"
  Application.EnableEvents = True
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
  If Application.CalculationState = 2 Then
    [B2] = "Pas A jour"
  End If
End Sub

http://cjoint.com/?ctuYnxQVob

JB

On 19 fév, 19:57, "Gregory Hilaire" wrote:



Bien le bonjour!

Ma question est la suivante peut-on capturer en VBA la mise à jour
manuelle
[F9]
Je voudrais que la cellule B2 contienne la valeur "Données à jour" q uand
on
presse [F9].

Merci pour tout aide!- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -



Avatar
Gregory Hilaire
Un grand merci pour cette réponse hyper rapide JB mais
Je l'ai testé et cela ne semble pas faire l'affaire il reste tjrs
à A jour peut importe la feuille où l'on rentre des données
je vais continuer à Explorer pour voir si le problème est de
mon côté

Merci encore

"JB" a écrit dans le message de news:

Bonjour,

http://cjoint.com/?cvotvdvXui

Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
Application.EnableEvents = False
Sheets(1).[B2] = "A jour"
Application.EnableEvents = True
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As
Range)
If Application.CalculationState = 2 Then
Sheets(1).[B2] = "Pas à jour"
End If
End Sub

JB

On 21 fév, 13:49, "Gregory Hilaire" wrote:
Un grand Merci à JB pour cette mise à jour. Maintenant je me pause une
question serait il possible de
généraliser cela à tout le classeur? Le changement ( à traquer ) pourrait
être dans différente feuilles...

Et comme ce n'est pour n'importe quel cellule que l'évènement doit se
déclencher j'avais modifié un peu:
Et créer un nom de range cible englobant uniquement les cellules à changer

Private Sub Worksheet_Change(ByVal Target As Range)
'Désactive l'évènement
Application.EnableEvents = False
If Application.Intersect(Target, Range("Cible")) Is Nothing Then
If [B2] <> "Données à jour" Then [B2] = ""
Else
[B2] = "Mettre à Jour données"
End If
'Réactive l'évènement
Application.EnableEvents = True
End Sub

Private Sub Worksheet_Calculate()
Application.EnableEvents = False
[B2] = "Données à jour"
Application.EnableEvents = True
End Sub

"JB" a écrit dans le message de news:

Bonsoir,

Private Sub Worksheet_Calculate()
Application.EnableEvents = False
[B2] = "A jour"
Application.EnableEvents = True
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Application.CalculationState = 2 Then
[B2] = "Pas A jour"
End If
End Sub

http://cjoint.com/?ctuYnxQVob

JB

On 19 fév, 19:57, "Gregory Hilaire" wrote:



Bien le bonjour!

Ma question est la suivante peut-on capturer en VBA la mise à jour
manuelle
[F9]
Je voudrais que la cellule B2 contienne la valeur "Données à jour" quand
on
presse [F9].

Merci pour tout aide!- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -



Avatar
JB
-Si on entre un chiffre en C3 de Feuil2, B2 de Feuil1 contient 'Pas à
Jour'.
-Si on entre un chiffre qui n'est pas référencé par une formule, B2
nest pas modifié.

http://cjoint.com/?cvqHOgIDPo

JB
On 21 fév, 16:04, "Gregory Hilaire" wrote:
Un grand merci pour cette réponse hyper rapide JB mais
Je l'ai testé et cela ne semble pas faire l'affaire il reste tjrs
à A jour peut importe la feuille où l'on rentre des données
je vais continuer à Explorer pour voir si le problème est de
mon côté

Merci encore

"JB" a écrit dans le message de news:

Bonjour,

http://cjoint.com/?cvotvdvXui

Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
  Application.EnableEvents = False
  Sheets(1).[B2] = "A jour"
  Application.EnableEvents = True
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As
Range)
  If Application.CalculationState = 2 Then
    Sheets(1).[B2] = "Pas à jour"
  End If
End Sub

JB

On 21 fév, 13:49, "Gregory Hilaire" wrote:



Un grand Merci à JB pour cette mise à jour. Maintenant je me pause u ne
question serait il possible de
généraliser cela à tout le classeur? Le changement ( à traquer ) pourrait
être dans différente feuilles...

Et comme ce n'est pour n'importe quel cellule que l'évènement doit s e
déclencher j'avais modifié un peu:
Et créer un nom de range cible englobant uniquement les cellules à c hanger

Private Sub Worksheet_Change(ByVal Target As Range)
'Désactive l'évènement
Application.EnableEvents = False
If Application.Intersect(Target, Range("Cible")) Is Nothing Then
If [B2] <> "Données à jour" Then [B2] = ""
Else
[B2] = "Mettre à Jour données"
End If
'Réactive l'évènement
Application.EnableEvents = True
End Sub

Private Sub Worksheet_Calculate()
Application.EnableEvents = False
[B2] = "Données à jour"
Application.EnableEvents = True
End Sub

"JB" a écrit dans le message de news:

Bonsoir,

Private Sub Worksheet_Calculate()
Application.EnableEvents = False
[B2] = "A jour"
Application.EnableEvents = True
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Application.CalculationState = 2 Then
[B2] = "Pas A jour"
End If
End Sub

http://cjoint.com/?ctuYnxQVob

JB

On 19 fév, 19:57, "Gregory Hilaire" wrote:

Bien le bonjour!

Ma question est la suivante peut-on capturer en VBA la mise à jour
manuelle
[F9]
Je voudrais que la cellule B2 contienne la valeur "Données à jour" quand
on
presse [F9].

Merci pour tout aide!- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -