Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Tony44
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

Tony44

XLDnaute Occasionnel
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,
 
Trier par date Trier par votes
Re : Affichage de données en automatique (qques secondes) après une saisie

Bonjour,

on peut approcher le problème ainsi :
Code: 
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
@+
 
Vote positif 0 Vote négatif
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.
 
Vote positif 0 Vote négatif
Re : Affichage de données en automatique (qques secondes) après une saisie

Re,

essaye ceci :
Code: 
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
 
Vote positif 0 Vote négatif
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.
 
Vote positif 0 Vote négatif
Re : Affichage de données en automatique (qques secondes) après une saisie

Re,

Code: 
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
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 Création automatique de feuille et le remplissage correspondant
Réponses
8
Affichages
430
gbinforme
G
E
  • Question Question
Microsoft 365 Création d'un filtre sur une cellule avec recherche de mot indexé
Réponses
3
Affichages
343
elgringo123456
E
C
  • Résolu(e)
XL 2016 Ajustement automatique de la largeur d'une colonne
Réponses
5
Affichages
1 K
Phil69970
V
  • Question Question
XL pour MAC Changer de cellule automatiquement après avoir entré une valeur dans la cellule.
Réponses
7
Affichages
962
TooFatBoy
F
  • Résolu(e)
Microsoft 365 copier coller des colonnes en fonction de la valeur d'une cellule
Réponses
8
Affichages
1 K
loloboc
L
C
  • Question Question
XL 2016 Un chronomètre qui affiche TOUTES les secondes pendant la durée d'un traitement
2
Réponses
20
Affichages
2 K
crocrocro
C
S
  • Résolu(e)
Microsoft 365 Mailing mise en forme HTML : revenir à la ligne automatique si trop de texte saisie
2
Réponses
17
Affichages
1 K
spike29
S
XLS : Fonctionnement des chiffres Unicode
Réponses
0
Affichages
467
Lu76Fer
L
  • Résolu(e)
Microsoft 365 Aide : Colorer une cellule en fonction de sa valeur
Réponses
5
Affichages
666
Pi4
P
M
  • Question Question
XL 2010 Récupération de données et les transformer avec Power Query ?
Réponses
3
Affichages
794
DJunqueira
D
G
  • Résolu(e)
Microsoft 365 Affichage d'une valeur sous forme d'une fraction et de sa valeur en décimal
2
Réponses
19
Affichages
2 K
Modeste geedee
E
  • Question Question
Microsoft 365 effacer formule en fonction de ce qui a été saisi dans une autre cellule
Réponses
6
Affichages
668
Phil69970
Z
  • Question Question
Microsoft 365 Mise en forme de tableau et répétition de formule
Réponses
2
Affichages
652
DJunqueira
D
E
  • Question Question
XL 2019 empêcher l'incrémentation de la formule après une insertion de ligne
Réponses
3
Affichages
668
elnounech
E
Y
  • Résolu(e)
XL 2016 Afficher et masquer les lignes en fonction des critères
Réponses
14
Affichages
816
YANNISE
Y
A
  • Question Question
Microsoft 365 Fichier de statistique et roulement
Réponses
0
Affichages
591
Aurel’Byylieve
A
J
  • Question Question
Microsoft 365 Modification de lettre via une mise en forme conditionnelle
Réponses
6
Affichages
581
jeannot59
J
XLSM : Copie massive de ligne de données vers la grille
Réponses
3
Affichages
764
oguruma
M
  • Résolu(e)
Microsoft 365 Prendre les 10 1ère valeur d'une plage en fonction de 2 critères
2 3
Réponses
43
Affichages
3 K
merinos-BernardEtang
Office XLS : Fonction simplifiant l'utilisation de la fenêtre FileDialog
Réponses
6
Affichages
885
Lu76Fer
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…