copie de formule en fonction d'une textbox

Robert

XLDnaute Barbatruc

Repose en paix

• 3 Décembre 2009

• #2

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 :

Code:

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 :

Code:

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

plage A1:A10 à adapter...

 

Vote positif 0 Vote négatif

S

supercrapaud

XLDnaute Occasionnel

• 4 Décembre 2009

• #3

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 !

 

Vote positif 0 Vote négatif

S

supercrapaud

XLDnaute Occasionnel

• 31 Décembre 2009

• #4

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 !

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 31 Décembre 2009

• #5

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 🙂.

 

Dernière édition: 31 Décembre 2009

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 31 Décembre 2009

• #6

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.

Cliquez pour agrandir...

Approuvé !
Ceci dit, essayez :

Code:

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

ROGER2327
#2501

 

Vote positif 0 Vote négatif

S

supercrapaud

XLDnaute Occasionnel

• 31 Décembre 2009

• #7

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 !)

 

Pièces jointes

• test.zip

  18.1 KB · Affichages: 22
• test.zip

  18.1 KB · Affichages: 20
• test.zip

  18.1 KB · Affichages: 21

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 31 Décembre 2009

• #8

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 😀).

 

Vote positif 0 Vote négatif

U

Ubot303

XLDnaute Occasionnel

• 31 Décembre 2009

• #9

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...

 

Dernière édition: 31 Décembre 2009

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 31 Décembre 2009

• #10

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

 

Vote positif 0 Vote négatif

S

supercrapaud

XLDnaute Occasionnel

• 31 Décembre 2009

• #11

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 !

 

Vote positif 0 Vote négatif

U

Ubot303

XLDnaute Occasionnel

• 31 Décembre 2009

• #12

Re : copie de formule en fonction d'une textbox

avec un :
Dim nom as String ?

Cela devrait passer un peu mieux 🙂

 

Vote positif 0 Vote négatif

S

supercrapaud

XLDnaute Occasionnel

• 4 Janvier 2010

• #13

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.

 

Vote positif 0 Vote négatif