Lien difficile
Gustav
-
cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention -
cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour à tous et merci à celui qui réglera mon problème. Le voici :
J'ai un liaison qui s'effectue entre une cellule (F16) d'une feuille excel (2011) et un textbox (2) dans l'UserForm.
Voici la formule dans VBA :
Private Sub UserForm_Initialize()
TextBox1 = Format(Now, "dd mmmm yyyy")
TextBox2 = Sheets("Home").Select
TextBox2.Value = Format(Range("F16").Value, "0.00" & " €")
TextBox2 = Replace(TextBox2.Value, ".", ",")
End Sub
Cette liaison n'est pas automatique, je dois fermer plusieurs l'Userform et la réouvrir pour qu'au final cette liaison se fasse.
Je cherche un moyen d'accélérer cette liaison pour qu'elle devienne automatique et immédiat!
Un grand merci pour votre précieuse aide.
PS: la date du jour telle qu'elle apparaît dans la formule ci-dessus ne présente aucun problème
Bonne journée
Gustav
J'ai un liaison qui s'effectue entre une cellule (F16) d'une feuille excel (2011) et un textbox (2) dans l'UserForm.
Voici la formule dans VBA :
Private Sub UserForm_Initialize()
TextBox1 = Format(Now, "dd mmmm yyyy")
TextBox2 = Sheets("Home").Select
TextBox2.Value = Format(Range("F16").Value, "0.00" & " €")
TextBox2 = Replace(TextBox2.Value, ".", ",")
End Sub
Cette liaison n'est pas automatique, je dois fermer plusieurs l'Userform et la réouvrir pour qu'au final cette liaison se fasse.
Je cherche un moyen d'accélérer cette liaison pour qu'elle devienne automatique et immédiat!
Un grand merci pour votre précieuse aide.
PS: la date du jour telle qu'elle apparaît dans la formule ci-dessus ne présente aucun problème
Bonne journée
Gustav
A voir également:
- Lien difficile
- Lien url - Guide
- Créer un lien pour partager des photos - Guide
- Verificateur de lien - Guide
- Lien copié - Forum Mobile
- Lien mega ✓ - Forum Webmastering
3 réponses
bonjour,
supprime cette ligne qui ne veut rien dire:
et si ton UserForm ne s'ouvre pas sur la bonne feuille mets ceci:
supprime cette ligne qui ne veut rien dire:
TextBox2 = Sheets("Home").Select
et si ton UserForm ne s'ouvre pas sur la bonne feuille mets ceci:
Private Sub UserForm_Initialize()
Sheets("Home").Select
TextBox1 = Format(Now, "dd mmmm yyyy")
TextBox2.Value = Format(Range("F16").Value, "0.00" & " €")
TextBox2 = Replace(TextBox2.Value, ".", ",")
End Sub
Bonjour,
Je crois que tu devrais essayer d'intégrer quelques notions de base car ce que tu appelles des liaisons n'en sont pas ce ne sont que des adressages.
De même "la cellule F16 dans "Home" converge vers deux Userform" ne veux pas dire grand chose.
Pour que tu sois compris il faudrait que tu ais des notions claires et que tu emploies le bon vocabulaire.
Si tu vas à l'étranger en voulant leur imposer ton langage, je doutes que tu sois compris.
Je crois que tu devrais essayer d'intégrer quelques notions de base car ce que tu appelles des liaisons n'en sont pas ce ne sont que des adressages.
De même "la cellule F16 dans "Home" converge vers deux Userform" ne veux pas dire grand chose.
Pour que tu sois compris il faudrait que tu ais des notions claires et que tu emploies le bon vocabulaire.
Si tu vas à l'étranger en voulant leur imposer ton langage, je doutes que tu sois compris.
Je rejoins gbinforme que je salue.
J'ai parcouru tes post, mais tu ne mets pas en pratique les conseils que l'on te donne.
un exemple parmi d'autres
quand je lis cela:
Probablement à insérer quelque part dans la formule :
TextBox2.Value = Format(Range("F16").Value, "0.00" & " €")
alors que l'on t'avait donné la réponse ici:
https://forums.commentcamarche.net/forum/affich-35265812-format-valeur-a-ajouter#1
consulte ce site pour apprendre l'ABC du vba
https://www.excel-pratique.com/fr/vba.php
bon courage
@+ Le Pivert
J'ai parcouru tes post, mais tu ne mets pas en pratique les conseils que l'on te donne.
un exemple parmi d'autres
quand je lis cela:
Probablement à insérer quelque part dans la formule :
TextBox2.Value = Format(Range("F16").Value, "0.00" & " €")
alors que l'on t'avait donné la réponse ici:
https://forums.commentcamarche.net/forum/affich-35265812-format-valeur-a-ajouter#1
consulte ce site pour apprendre l'ABC du vba
https://www.excel-pratique.com/fr/vba.php
bon courage
@+ Le Pivert
Je devrais insérer le nom de la page auquel fait référence cette liaison.
Si tu pouvais à ma place le faire, ca serait sympa.
La feuille où se trouve le F16 s'appelle "Home"
Probablement à insérer quelque part dans la formule :
TextBox2.Value = Format(Range("F16").Value, "0.00" & " €")
Mais je ne sais pas où!
Un grand merci à toi pour ce que tu peux faire
Gustav