Est-il possible d'avoir par exemple un evènement lorsqu'on clique sur un
bouton :
Ex : Userform1 avec Texbox1 et un bouton.
Lorsque je clique sur le bouton, la valeur de Texbox1 va se greffer dans un
code qui se trouve dans le Module1, par exemple à la ligne 4.
Pour plus de détail, en fait j'ai un code dans le module 1 pour envoyer un
mail automatique avec Lotus notes.
Mais le destinataire change selon la valeur (initiales des personnes) qu'il
y a dans la texbox1. Mais je n'arrive pas à mettre de condition du style :
If TextBox1.Value = "LG" Then MailDoc.sento = "lg@wanadoo.fr"
Mais çà ne marche pas. Je pense que lorsque j'active la macro pour envoyer
le mail, il faut que l'adresse du destinataire doit déjà être inscrite.
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
denis P
Salut, pour te mettre sur la voie....
ex: remplace la ligne 4 du module1 par A = "ta variable" denis p.
''''''Denis Pasquier 2004''''''''''' Sub ccod() Dim cod As String Dim tonInput As String cod = "A = " tonInput = InputBox("tonInput ??") cod = cod & """" & tonInput & """" ' Ecriture du code dans le module de la feuille With ThisWorkbook.VBProject.VBComponents("Module1").CodeModule .ReplaceLine 4, cod End With End Sub ''''''''''''''''fin'''''''''''''''''''''''''
"Laurent" a écrit dans le message de news:
Bonjour,
Est-il possible d'avoir par exemple un evènement lorsqu'on clique sur un bouton :
Ex : Userform1 avec Texbox1 et un bouton.
Lorsque je clique sur le bouton, la valeur de Texbox1 va se greffer dans un
code qui se trouve dans le Module1, par exemple à la ligne 4.
Pour plus de détail, en fait j'ai un code dans le module 1 pour envoyer un mail automatique avec Lotus notes. Mais le destinataire change selon la valeur (initiales des personnes) qu'il
y a dans la texbox1. Mais je n'arrive pas à mettre de condition du style : If TextBox1.Value = "LG" Then MailDoc.sento = "" Mais çà ne marche pas. Je pense que lorsque j'active la macro pour envoyer le mail, il faut que l'adresse du destinataire doit déjà être inscrite.
Si quelqu'un peut m'aider.
Merci
Laurent
Salut,
pour te mettre sur la voie....
ex: remplace la ligne 4 du module1 par
A = "ta variable"
denis p.
''''''Denis Pasquier 2004'''''''''''
Sub ccod()
Dim cod As String
Dim tonInput As String
cod = "A = "
tonInput = InputBox("tonInput ??")
cod = cod & """" & tonInput & """"
' Ecriture du code dans le module de la feuille
With ThisWorkbook.VBProject.VBComponents("Module1").CodeModule
.ReplaceLine 4, cod
End With
End Sub
''''''''''''''''fin'''''''''''''''''''''''''
"Laurent" <Gadeyne.laurent@wanadoo.fr> a écrit dans le message de
news:uHU1tNBIFHA.1280@TK2MSFTNGP09.phx.gbl...
Bonjour,
Est-il possible d'avoir par exemple un evènement lorsqu'on clique sur un
bouton :
Ex : Userform1 avec Texbox1 et un bouton.
Lorsque je clique sur le bouton, la valeur de Texbox1 va se greffer dans
un
code qui se trouve dans le Module1, par exemple à la ligne 4.
Pour plus de détail, en fait j'ai un code dans le module 1 pour envoyer un
mail automatique avec Lotus notes.
Mais le destinataire change selon la valeur (initiales des personnes)
qu'il
y a dans la texbox1. Mais je n'arrive pas à mettre de condition du style :
If TextBox1.Value = "LG" Then MailDoc.sento = "lg@wanadoo.fr"
Mais çà ne marche pas. Je pense que lorsque j'active la macro pour envoyer
le mail, il faut que l'adresse du destinataire doit déjà être inscrite.
ex: remplace la ligne 4 du module1 par A = "ta variable" denis p.
''''''Denis Pasquier 2004''''''''''' Sub ccod() Dim cod As String Dim tonInput As String cod = "A = " tonInput = InputBox("tonInput ??") cod = cod & """" & tonInput & """" ' Ecriture du code dans le module de la feuille With ThisWorkbook.VBProject.VBComponents("Module1").CodeModule .ReplaceLine 4, cod End With End Sub ''''''''''''''''fin'''''''''''''''''''''''''
"Laurent" a écrit dans le message de news:
Bonjour,
Est-il possible d'avoir par exemple un evènement lorsqu'on clique sur un bouton :
Ex : Userform1 avec Texbox1 et un bouton.
Lorsque je clique sur le bouton, la valeur de Texbox1 va se greffer dans un
code qui se trouve dans le Module1, par exemple à la ligne 4.
Pour plus de détail, en fait j'ai un code dans le module 1 pour envoyer un mail automatique avec Lotus notes. Mais le destinataire change selon la valeur (initiales des personnes) qu'il
y a dans la texbox1. Mais je n'arrive pas à mettre de condition du style : If TextBox1.Value = "LG" Then MailDoc.sento = "" Mais çà ne marche pas. Je pense que lorsque j'active la macro pour envoyer le mail, il faut que l'adresse du destinataire doit déjà être inscrite.
Si quelqu'un peut m'aider.
Merci
Laurent
Laurent
Merci,
mais pour la ligne : With ThisWorkbook.VBProject.VBComponents("Module1").CodeModule.ReplaceLine 4, cod il me la met en rouge et surligne le 4. si je retape le code il accepte comme çà :
With ThisWorkbook.VBProject.VBComponents("Module1").CodeModule.ReplaceLine(4)
mais qu'est-ce que je dois mettre pour indiquer de remplacer par 'cod' ? le "= cod" ne marche pas.
Merci
Laurent
"denis P" a écrit dans le message de news: %
Salut, pour te mettre sur la voie....
ex: remplace la ligne 4 du module1 par A = "ta variable" denis p.
''''''Denis Pasquier 2004''''''''''' Sub ccod() Dim cod As String Dim tonInput As String cod = "A = " tonInput = InputBox("tonInput ??") cod = cod & """" & tonInput & """" ' Ecriture du code dans le module de la feuille With ThisWorkbook.VBProject.VBComponents("Module1").CodeModule .ReplaceLine 4, cod End With End Sub ''''''''''''''''fin'''''''''''''''''''''''''
"Laurent" a écrit dans le message de news:
Bonjour,
Est-il possible d'avoir par exemple un evènement lorsqu'on clique sur un bouton :
Ex : Userform1 avec Texbox1 et un bouton.
Lorsque je clique sur le bouton, la valeur de Texbox1 va se greffer dans un
code qui se trouve dans le Module1, par exemple à la ligne 4.
Pour plus de détail, en fait j'ai un code dans le module 1 pour envoyer un mail automatique avec Lotus notes. Mais le destinataire change selon la valeur (initiales des personnes) qu'il
y a dans la texbox1. Mais je n'arrive pas à mettre de condition du style : If TextBox1.Value = "LG" Then MailDoc.sento = "" Mais çà ne marche pas. Je pense que lorsque j'active la macro pour envoyer le mail, il faut que l'adresse du destinataire doit déjà être inscrite.
Si quelqu'un peut m'aider.
Merci
Laurent
Merci,
mais pour la ligne : With
ThisWorkbook.VBProject.VBComponents("Module1").CodeModule.ReplaceLine 4, cod
il me la met en rouge et surligne le 4. si je retape le code il accepte
comme çà :
With
ThisWorkbook.VBProject.VBComponents("Module1").CodeModule.ReplaceLine(4)
mais qu'est-ce que je dois mettre pour indiquer de remplacer par 'cod' ? le
"= cod" ne marche pas.
Merci
Laurent
"denis P" <dede@spam.toto.ch> a écrit dans le message de news:
%23Fu2GqBIFHA.2704@tk2msftngp13.phx.gbl...
Salut,
pour te mettre sur la voie....
ex: remplace la ligne 4 du module1 par
A = "ta variable"
denis p.
''''''Denis Pasquier 2004'''''''''''
Sub ccod()
Dim cod As String
Dim tonInput As String
cod = "A = "
tonInput = InputBox("tonInput ??")
cod = cod & """" & tonInput & """"
' Ecriture du code dans le module de la feuille
With ThisWorkbook.VBProject.VBComponents("Module1").CodeModule
.ReplaceLine 4, cod
End With
End Sub
''''''''''''''''fin'''''''''''''''''''''''''
"Laurent" <Gadeyne.laurent@wanadoo.fr> a écrit dans le message de
news:uHU1tNBIFHA.1280@TK2MSFTNGP09.phx.gbl...
Bonjour,
Est-il possible d'avoir par exemple un evènement lorsqu'on clique sur un
bouton :
Ex : Userform1 avec Texbox1 et un bouton.
Lorsque je clique sur le bouton, la valeur de Texbox1 va se greffer dans
un
code qui se trouve dans le Module1, par exemple à la ligne 4.
Pour plus de détail, en fait j'ai un code dans le module 1 pour envoyer
un
mail automatique avec Lotus notes.
Mais le destinataire change selon la valeur (initiales des personnes)
qu'il
y a dans la texbox1. Mais je n'arrive pas à mettre de condition du style
:
If TextBox1.Value = "LG" Then MailDoc.sento = "lg@wanadoo.fr"
Mais çà ne marche pas. Je pense que lorsque j'active la macro pour
envoyer
le mail, il faut que l'adresse du destinataire doit déjà être inscrite.
mais pour la ligne : With ThisWorkbook.VBProject.VBComponents("Module1").CodeModule.ReplaceLine 4, cod il me la met en rouge et surligne le 4. si je retape le code il accepte comme çà :
With ThisWorkbook.VBProject.VBComponents("Module1").CodeModule.ReplaceLine(4)
mais qu'est-ce que je dois mettre pour indiquer de remplacer par 'cod' ? le "= cod" ne marche pas.
Merci
Laurent
"denis P" a écrit dans le message de news: %
Salut, pour te mettre sur la voie....
ex: remplace la ligne 4 du module1 par A = "ta variable" denis p.
''''''Denis Pasquier 2004''''''''''' Sub ccod() Dim cod As String Dim tonInput As String cod = "A = " tonInput = InputBox("tonInput ??") cod = cod & """" & tonInput & """" ' Ecriture du code dans le module de la feuille With ThisWorkbook.VBProject.VBComponents("Module1").CodeModule .ReplaceLine 4, cod End With End Sub ''''''''''''''''fin'''''''''''''''''''''''''
"Laurent" a écrit dans le message de news:
Bonjour,
Est-il possible d'avoir par exemple un evènement lorsqu'on clique sur un bouton :
Ex : Userform1 avec Texbox1 et un bouton.
Lorsque je clique sur le bouton, la valeur de Texbox1 va se greffer dans un
code qui se trouve dans le Module1, par exemple à la ligne 4.
Pour plus de détail, en fait j'ai un code dans le module 1 pour envoyer un mail automatique avec Lotus notes. Mais le destinataire change selon la valeur (initiales des personnes) qu'il
y a dans la texbox1. Mais je n'arrive pas à mettre de condition du style : If TextBox1.Value = "LG" Then MailDoc.sento = "" Mais çà ne marche pas. Je pense que lorsque j'active la macro pour envoyer le mail, il faut que l'adresse du destinataire doit déjà être inscrite.
