copie de formule en fonction d'une textbox

[supercrapaud]

Bonjour à vous !

Comme je n'ai pas trouvé réponse à ma question alors je poste une sujet. Je souhaite créer un formulaire avec une textbox et un bouton qui me permette de recopier dans une cellule sélectionnée, une cellule (qui contient une somme) dans une autre feuille dont le nom est donné dans la textbox.

Voici la ligne de code qui ne marche pas :
nom = Me.TextBox1.Value
ActiveCell.FormulaR1C1 = "=Sheets(nom) & !R[2]C[12]"

j'ai eu beau essayer toutes les combinaisons qui me venaient à l'esprit, rien n'y fait alors si vous pouviez m'aider... Merci !

 

[Robert]

Re : copie de formule en fonction d'une textbox

Bonjour Superbatracien, bonjour le forum,

peut-être comme ça si tu veux juste la somme sans la formule :

nom = Me.TextBox1.Value
Activecell.value=Sheets(nom).range(ta_cellule)

ou ta_cellule est l'adresse de la cellule contenant la somme...

ou alors comme ça si tu veux la formule de la somme :

nom = Me.TextBox1.Value
Activecell.Formula= "=SUM(" & nom & "!A1:A10)"

plage A1:A10 à adapter...

 

[supercrapaud]

Re : copie de formule en fonction d'une textbox

Bonsoir !!

j'ai encore essayé plein de trucs mais sans succès... je veux juste que ma macro fasse comme si je mettais simplement dans la feuille 1 dans une cellule exemple A10 : +Feuil2!B4 mais impossible même en suivant l'enregistreur de macro alors je me retourne vers vous...🙁

Encore merci !

 

[supercrapaud]

Re : copie de formule en fonction d'une textbox

Personne ne sait comment faire pour m'aider ?? Il me manque juste cela pour pouvoir finir ma macro et mon fichier alors si quelqu'un pouvait me dire quoi écrire... je veux juste que ma macro fasse comme si je mettais simplement dans la feuille 1 dans une cellule exemple A10 : +Feuil2!B4
merci à vous !

 

[MJ13]

Re : copie de formule en fonction d'une textbox

Bonjour supercrapaud, Robert


Supercrapaud: Et bien si tu avais mis un fichier, il ne faudrait pas 1 mois mais 1 heure pour résoudre ce genre de problème.

Bonjour Roger. C'est vrai qu'en ce moment, je suis un peu à cran sur ce genre de demande. Merci et bonnes fêtes 🙂.

 

[ROGER2327]

Re : copie de formule en fonction d'une textbox

Bonjour à tous

Supercrapaud: Et bien si tu avais mis un fichier, il ne faudrait pas 1 mois mais 1 heure pour résoudre ce genre de problème.

Approuvé !
Ceci dit, essayez :

[COLOR="DarkSlateGray"][B]nom = Me.TextBox1.Value
ActiveCell.FormulaR1C1 = "=" & nom & "!R[2]C[12]"[/B][/COLOR]

ROGER2327
#2501

 

[supercrapaud]

Re : copie de formule en fonction d'une textbox

Voilà un fichier test pour vous montrer ce que je veux faire. j'ai volontairement tronqué la macro. En vous remerciant chaleureusement (et pas la peine de vous énerver !)

 

[MJ13]

Re : copie de formule en fonction d'une textbox

Re

Supertruc: Et le bonjour, c'est en option (mais non, je ne m'énerve pas, mais quand même faut pas pousser 😀).

 

[Ubot303]

Re : copie de formule en fonction d'une textbox

Bonjour,
Tu souhaites rajouter un onglet avec chacune des nouvelles références saisie ou une nouvelle ligne dans ton onglet?

Dans le premier cas, il faut déclarer ta variable Nom par un petit
Dim nom as String
En début de macro

Essaye cela...


Ta dernière ligne
ActiveCell.FormulaR1C1 = "=+Sheets(nom) & !RC"
devrait aussi planter car je n'ai pas du tout compris ce que tu allais faire en C54...

 

[ROGER2327]

Re : copie de formule en fonction d'une textbox

Suite...

Re-bonjour à tous

A supercrapaud :

Avez-vous pris la peine de tester la proposition du message #6 ?​

ROGER2327
#2504

 

[supercrapaud]

Re : copie de formule en fonction d'une textbox

Bonjour a tous

Oui, j'ai testé cette solution et je l'ai un peu modifiée pour pouvoir l'adapter à mes besoins. Donc voilà le code que j'ai rédigé :
nom = Me.TextBox1.Value
sheets(test).select
range(b4).end(xldown).offset(1,0)
ActiveCell.value= "=" & nom & "!C10"

Ce qui inscrit dans la cellule B... = nom(de la feuille)!C10

Merci en tout cas pour vos éclaircissements. Joyeuses fêtes !

 

[Ubot303]

Re : copie de formule en fonction d'une textbox

avec un :
Dim nom as String ?

Cela devrait passer un peu mieux 🙂

 

[supercrapaud]

Re : copie de formule en fonction d'une textbox

Bonjour à tous et très bonne année 2010 à vous.

Pardon pour la réponse tardive mais cela marche sans Dim nom as String. Cependant afin d'éviter les bugs je l'ai mis, histoire d'être bien sûr de ne pas avoir de pb.

Encore merci pour votre aide.