Faire apparaitre une forme quand on écrit dans certaines cellules

[libellule85]

Bonsoir le forum, 🙂

Après maintes recherches, je me tourne une nouvelle fois vers vous pour résoudre mon petit problème.
Voilà : j'aimerais que quand on écrit quelque chose dans les cellules de E19 à E40 apparaisse une forme (Rectangle 3) et que cette forme disparaisse au bout de 5 s.
le codename où l'action doit se passer c'est Feuil1
le code name où se trouve la forme c'est Feuil3
Est ce possible ? 😕
D'avance merci pour vos réponses

 

[mth]

Re : Faire apparaitre une forme quand on écrit dans certaines cellules

Bonsoir Libellule 🙂

Un essai (pas terrible ...) dans le classeur ci-joint, avec ce code affecté à la feuille 1:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("E19:E40")) Is Nothing And Target.Count = 1 Then
    Shapes("Rectangle3").Visible = True
    t = Timer + 5
    Do While Timer < t: DoEvents: Loop
    Shapes("Rectangle3").Visible = False
End If
End Sub

Bonne soirée,

mth

 

[job75]

Re : Faire apparaitre une forme quand on écrit dans certaines cellules

Bonsoir libellule85, bonsoir Mireille 🙂

Mireille, le rectangle est en Feuil3...

Dans le code de Feuil1 :

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [E19:E40]) Is Nothing Or Target.Count > 1 Then Exit Sub
Dim ac As Range, o As Object
Application.ScreenUpdating = False
Set ac = ActiveCell
Target.Offset(0, 1).Select
Feuil3.Shapes("Rectangle 3").Copy
Me.Paste
Set o = Selection
ac.Select
Application.ScreenUpdating = True
Application.Wait Now + 5 / 86400
o.Delete
End Sub

Edit : peut-être ajouter une ligne pour le cas où l'on efface :

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [E19:E40]) Is Nothing Or Target.Count > 1 Then Exit Sub
If Target = "" Then Exit Sub
'suite du code

Salut kjin 🙂 pas compris ton fichier 😕

A+

 

[kjin]

Re : Faire apparaitre une forme quand on écrit dans certaines cellules

Salut
Voir PJ
A+
kjin

 

[mth]

Re : Faire apparaitre une forme quand on écrit dans certaines cellules

re 🙂
Hello Job 🙂 🙂

Mireille, le rectangle est en Feuil3...

Oui j'ai vu, et volontaire de ma part (sourire... suis têtue quand je m'y mets) car je ne voyais pas l'intérêt d'un copier/effacer alors qu'un visible/caché me semblait suffire, mais bon, certainement une mauvaise interprétation de ma part, du coup c'est super que tu sois passé sur le fil 🙂 🙂 comme ça libellule a la réponse exacte à sa question 🙂

Bise et @ ++ 🙂

m

Edit: re kjin 🙂 🙂

 

[kjin]

Re : Faire apparaitre une forme quand on écrit dans certaines cellules

Re

pas compris ton fichier

Moi non plus ! 😀
A+
kjin

 

[libellule85]

[Résolu] Faire apparaitre une forme quand on écrit dans certaines cellules

Bonjour mth, job75, kjin,
Je vous remercie beaucoup pour vos réponses, c'est sympa.
Une fois de plus vous avez résolu mon problème, merci.
Bonne journée
@+