Affichage de données en automatique (qques secondes) après une saisie

[Tony44]

Bonjour,

je souhaite savoir s'il est possible de faire apparaitre automatiquement et après qques secondes dans une cellule (par exemple A1) une info quelconque (par exemple "OK") après avoir saisi dans la cellule B1 une donnée (par exemple "1")

--> saisie en B1 du chiffre "1"
--> déclenchement après 3 secondes en A1 du motif "OK".

existe t'il une macro qui peut faire ça.
Merci,

 

[Pierrot93]

Re : Affichage de données en automatique (qques secondes) après une saisie

Bonjour,

on peut approcher le problème ainsi :

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$1" Then If Target = 1 Then MsgBox "OK"
End Sub

code à utiliser dans le module de la feuille concernée => click droit sur l'onglet => visualiser le code

bon après midi
@+

 

[Tony44]

Re : Affichage de données en automatique (qques secondes) après une saisie

Merci pour ta réponse rapide mais c'est pas exactement ça que je cherche.
en fait je veux pas faire une messagebox, je veux que l'info apparaisse automatiquement dans une cellule parès qques secondes.

je sais pas si c'est faisable.

 

[Pierrot93]

Re : Affichage de données en automatique (qques secondes) après une saisie

Re,

essaye ceci :

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$1" Then
    If Target = 1 Then
        With Application
            .EnableEvents = False
            Range("A1") = "OK"
            .Wait Now + TimeValue("0:00:03")
            Range("A1") = ""
            .EnableEvents = True
        End With
    End If
End If
End Sub

 

[Tony44]

Re : Affichage de données en automatique (qques secondes) après une saisie

on y est presque. Là le souci c'est que l'info reste pendant 3 secondes.
il faut qu'elle apparaisse au bout de 3 secondes.

 

[Pierrot93]

Re : Affichage de données en automatique (qques secondes) après une saisie

Re,

tu rajoutes une ligne de "wait" devant celle valorisant la cellule A1...

 

[Tony44]

Re : Affichage de données en automatique (qques secondes) après une saisie

a quel endroit exactement.
quand je le fais ça me bloque ma macro.

 

[Pierrot93]

Re : Affichage de données en automatique (qques secondes) après une saisie

Re,

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$1" Then
    If Target = 1 Then
        With Application
            .EnableEvents = False
            .Wait Now + TimeValue("0:00:03")
            Range("A1") = "OK"
            .Wait Now + TimeValue("0:00:03")
            Range("A1") = ""
            .EnableEvents = True
        End With
    End If
End If
End Sub

 

[Tony44]

Re : Affichage de données en automatique (qques secondes) après une saisie

merci bien