Activer une macro quand une cellule est remplie

[Julien69]

Bonjour a tous,

Je cherche a créer une macro qui me permettrait de quand une cellule est remplie par exemple "E3", un userform s'active qui me permet de rentrer une valeur exemple "23.5" et en validant la text box place la valeur en "E10".

Ci joint un petit fichier...
Si quelqu'un peu m'aider, j'avoue que la je coince

Merci🙄

 

[job75]

Re : Activer une macro quand une cellule est remplie

Bonjour Julien69,

j'avoue que la je coince

Pas pour créer un UserForm quand même ? Alors créez-le...

Pour l'ouvrir créez une macro Worksheet_Change, multiples exemples sur le forum.

Et si après tout ça vous coincez encore, revenez nous voir.

A+

 

[laetitia90]

Re : Activer une macro quand une cellule est remplie

bonjour Julien69, l'ami Job🙂

Private Sub Worksheet_Change(ByVal Target As Range)
If Target = [e3] Then UserForm1.Show
End Sub

dans userform1 une textbox & 1 commandbutton

Private Sub CommandButton1_Click()
[e10] = TextBox1.Value: Unload Me
End Sub

 

[Julien69]

Re : Activer une macro quand une cellule est remplie

Bonjour,

Oui j'ai bien créer l'user form juste oublier d'enregistré avant de placé la pièce jointe.
Je remet donc la pièce jointe avec l'user form.
Mon souci et de coder l'user c'est la que j'ai du mal.

 

[laetitia90]

Re : Activer une macro quand une cellule est remplie

re le code de ton bouton ok

Private Sub OK_Click()
[e10] = TextBox1.Value: Unload Me
End Sub

ou sans utiliser le bouton en tapant entrée une fois la textbox remplie

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
[e10] = TextBox1.Value: Unload Me
End Sub

 

[job75]

Re : Activer une macro quand une cellule est remplie

Bonjour Laetitia 🙂

Je suis très surpris par ton If Target = [e3] Then UserForm1.Show 😕

Efface par exemple la plage A1:A3...

Tu as oublié .Address !

A+

 

[laetitia90]

Re : Activer une macro quand une cellule est remplie

re, bien vu Job🙂🙂🙂🙂🙂

ecris trop vite comme souvent !!! & pas surtout pas teste🙁🙁🙁🙁
merci

 

[JDO]

Re : Activer une macro quand une cellule est remplie

Bonjour,

Votre sujet m'intéresse mais dans un autre but.
(J'essaie d'apprendre VBA).
Moi je voudrais faire apparaître une boîte de dialogue proposant l'insertion de lignes, quand on arrive au bout du tableau de saisie.
Pourriez-vous svp indiquer votre macro que j'essaie de comprendre ?
Merci d'avance

 

[Julien69]

Re : Activer une macro quand une cellule est remplie

Bonjour,

Merci à laetitia et job pour vos réponses super ca fonctionne. Pas tout compris par la remarque de job "Je suis très surpris par ton If Target = [e3] Then UserForm1.Show

Efface par exemple la plage A1:A3...

Tu as oublié .Address !"
J'ai rentré le code de laetitia et cela fonctionne comme je le souhaité merci à vous deux vraiment

 

[Julien69]

Re : Activer une macro quand une cellule est remplie

Bonjour,

Encore besoin de vous, l'utilisation du code de laetitia marche nickel mais je voudrais maintenant que l'user form s'active au bout d'1 minute quand le fichier excel est ouvert. J'ai don,c mis le code suivant:
Private Sub Workbook_Open()

Application.OnTime Now + TimeValue("00:01:00"), UserForm1.Show
End sub

J'ai placé le code dans This Workbook.

Bien sur comme vous vous en douter, cela ne marche pas, message qui me dit Incomptabilité de type.


Si quel qu'un à une idée ....

🙄

 

[laetitia90]

Re : Activer une macro quand une cellule est remplie

re attention il faut mettre .Address autrement user va s'ouvrir sur autre cellule

 

[Julien69]

Re : Activer une macro quand une cellule est remplie

Merci laetitia pour ta réponse; mais ou es qu'il faut mettre .Address?

 

[laetitia90]

Re : Activer une macro quand une cellule est remplie

re ,

comme dit plus haut en fonction de la cellule e3

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = [e3] Then UserForm1.Show
End Sub

autrement pour ta derniere demande Workbook

Private Sub Workbook_Open()
 Application.OnTime Now + TimeValue("00:01:00"), "es"
End Sub

tu appel la macro nommee es pour l'exemple cette macro tu la met dans un module standard

Sub es()
UserForm1.Show
End Sub

 

[Julien69]

Re : Activer une macro quand une cellule est remplie

Génial ca marche!!!!
Trop top merci Laetitia vraiment je vois que tu maitrise bien le vba.

Juste une dernière chose et je t'embête plus promis.
Le bouton "Ok" de mon userform renvoie la valeur rentré dans la cellule Y21.

Private Sub OK_Click()
[y21] = TextBox1.Value: Unload Me
End Sub

Mon fichier a plusieurs feuille je souhaiterai que la valeur se plce dans la cellule Y21 mais que dans la feuille 1. Que faut il rajouter ?
Merci d'avance

 

[laetitia90]

Re : Activer une macro quand une cellule est remplie

re,

Private Sub OK_Click()
    Feuil1.[y21] = TextBox1.Value: Unload Me
End Sub

j'utilise le code_name de la sheet bien plus simple si tu renomme la feuille marcheras toujours

on peut egalement utiliser with