Discussion :

[Maiden002]

Bonjour a tous,

Encore un petit probléme ^^

Je suis sur Excel 2003,

J'ai une code VBA a faire, je lé commencer, en faite il faut que je crée un Bouton "Add" qui me permet de créer une ligne de tableau a la fin de mon tableau, en meme temps qui crée une ligne mon code me sort une inputbox qui me demande deux choses (la référence et une description), aprés avoir rempli ces deux inputbox, en meme temps il me crée une nouvelle feuille (ou onglet) avec le nom de la reference demande auparavant.

bref ceci est marche parfaitement, c'est juste pour que vous compreniez mon probléme suivant.


Aprés avoir demande la référence et la description ceux ci se place directement dans la ligne créer et dans leur colonne aproprié, c'est a dire pour la références dans la colone A et description colone B.

Ceci marche avec ce code ci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Range("A" & i).Value = Feuille
Range("B" & i).Value = Description

Maintenant dans ma colone de C a H (sur la meme ligne) je dois mettre des valeurs qui sont dans la feuille crée avec le nom de la references

Mais je n'arrive pas a récupérer ces données.

voici ce que j'ai fais :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Range("C" & i).Formula = "='"Feuille"'!$B5"
Range("D" & i).Formula = "='"Feuille"'!$B7"
Range("E" & i).Formula = "='"Feuille"'!$B6"
Range("F" & i).Formula = "='"Feuille"'!$F5"
Range("G" & i).Formula = "='"Feuille"'!$F7"
Range("H" & i).Formula = "='"Feuille"'!$F6"

Un exemple car je peux comprends que c'est pas trés clair :

- Je Clic sur le bouton "Add"
- Une inputbox arrive et me demande la reference de ma feuille et sa description
- je tape "CT01" pour la reference et "hello" pour le description
- Automatiquement il me met ces données dans la lignes que j'ai créer
- Et il me crée une feuille appelé CT01


Il me manque juste la formule pour récupérer des données dans la feuille CT01 créer.

Normalement on fait ='CT01'!B3 mais je voudrai que ce soit général car j'ai plusieurs lignes et feuille a créer CT02, CF10, CA03, etc

merci de votre aide

[Krovax]

Bonjour
peut être ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

worksheets("CT01").range("A1")

Implicitement en mettant simplement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("A1")

Tu lui dit de prendre la cellule A1 de la feuille active,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

activesheet.range("A1")

si tu veux dans ta formule utiliser le nom de ton onglet
nom="CT01"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
.Range("C" & i).Formula = "='" & nom "'!$B5"
.Range("D" & i).Formula = "='" & nom "'!$B7"
.Range("E" & i).Formula = "='" & nom "'!$B6"
.Range("F" & i).Formula = "='" & nom "'!$F5"
.Range("G" & i).Formula = "='" & nom "'!$F7"
.Range("H" & i).Formula = "='" & nom "'!$F6"

en espérant que Feuille est le nom d'un de tes onglet dont tu veux récupérer les valeur

[Maiden002]

Bah non c'est sa le truc, je voudrai savoir si c'est possible

Car étant donné que je vais avoir plusieurs feuille a créer.

Je ne pense pas que ce soit bien, d'avoir a recopié le code pour chacun

car j'aurai par exemple CT01, CT02, CA09, etc


Feuille est une variable qui prendra comme valeur le nom de ma feuille créer .

Le truc c'est que je c'est pas comment mi prendre. Et d'aprés ton code, je devrai le faire pour chaque feuille que je vais créer.

[Krovax]

Pendant que tu répondais j'ai compris la question autrement et édité mon message ca correspond mieu?

[Maiden002]

si tu veux dans ta formule utiliser le nom de ton onglet
nom="CT01"
Code :

.Range("C" & i).Formula = "='" & nom "'!$B5"
.Range("D" & i).Formula = "='" & nom "'!$B7"
.Range("E" & i).Formula = "='" & nom "'!$B6"
.Range("F" & i).Formula = "='" & nom "'!$F5"
.Range("G" & i).Formula = "='" & nom "'!$F7"
.Range("H" & i).Formula = "='" & nom "'!$F6"

Cela ne revient pas a la meme chose que j'avai fait?

En recopiant ton code et changeant la variable que j'avai , sa me fait En attente Fin D'instruction surement parce qu'il manque le deuxieme "&" mais le truc sa me copie bien le code aprés mais aucune donné est exporté de la feuille CT01 a ma ligne

[Krovax]

non pas du tout essaye ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim varie as string
varie="n'importe quoi pourvu que ce soit du texte"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

msgbox "la variable vaut '"varie"' n'est ce pas,enfin si seulement cela fonctionné"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

msgbox "la variable vaut ""varie""n'est ce pas, en fait non"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

msgbox "la variable vaut " & varie & " n'est ce pas, et oui ca fonctionne"

Il faut faire de la concaténation de chaine de caractère le symbole est le & en vba.