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.

[Maiden002]

J'ai fais sa maintenant , sa ne me donne pas la valeur mais sa me donne #REF en clair il trouve rien alors qu'il y a quelque chose

Pourtant en fesant le meme code manuellement sa marche

mon code doit faire ='CT01'!B7 sa me fais #REF

par contre si je rentre manuellement la formule sa me met bien le résultat que je devrai avoir

[Krovax]

heu enlève les . devant les range j'avais un bloc with et je l'ai viré. (ca ne te fait as d'erreur?)

La formule quand tu sélectionne la cellule est la bonne?

Edit bon en fait je suis a l'ouest

Code :

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

1
2
3
4
5
6
7
8
9
 
with worksheets("NomdeTafeuillePourecrire")
.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"
end with

Et celui la je l'ai testé ainsi

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 Sub test()
 Dim nom As String
 Dim i As Integer
 i = 5
 nom = "feuil3"
With Worksheets("Feuil2")
    .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"
End With
End Sub

[Maiden002]

Code :

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

With Worksheets("Feuil2")

pour ce code la il faut que je rendre manuellement le nom de la feuille?

Y'a pas de moyen de récupérer le nom de la Feuille , car si je recrée d'autre feuille dans le code y'aura toujours par exemple Feuil2 alors que j'aurai changer de nom.

ou alors je suis completement a l'ouest désolé

[Krovax]

Feuil2 cest la feuille ou tu veux écrir les formule si j'ai bien compris tu veu que se soit toujour la même non?
Sinon remplace "feuil2" pas une variable qui contient le nom de ta feuille.

Mieu on reprend au début et tu explique point par point ce que tu veux faire ou tu veux le faire et dou vienne les valeur

Car

- Automatiquement il me met ces données dans la lignes que j'ai créer

je ne sais pas ou est la ligne et je ne voi pas ou tu la créé
Tu peux aussi essayé de donné toute la partie de ton code qui nous interesse

[Maiden002]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
Sub Add_QuandClic()
        Dim i As Integer
		Dim Feuille As String
		Dim Description As String
 
 
             Range("A14").Select
                For i = 14 To 9999
                    If Range("A" & i).Interior.ColorIndex = xlNone Then
                            Exit For
                    End If
         Next i
            Range("A" & i).EntireRow.Insert
 
 
            Range("A" & i & ":H" & i).Select
 
            With Selection.Borders(xlEdgeLeft)
            .LineStyle = xlContinuous
            .Weight = xlThin
            .ColorIndex = xlAutomatic
            End With
 
            With Selection.Borders(xlEdgeTop)
            .LineStyle = xlContinuous
            .Weight = xlThin
            .ColorIndex = xlAutomatic
            End With
 
            With Selection.Borders(xlEdgeBottom)
            .LineStyle = xlContinuous
            .Weight = xlThin
            .ColorIndex = xlAutomatic
            End With
 
            With Selection.Borders(xlEdgeRight)
            .LineStyle = xlContinuous
            .Weight = xlThin
            .ColorIndex = xlAutomatic
            End With
 
            With Selection.Borders(xlInsideVertical)
            .LineStyle = xlContinuous
            .Weight = xlThin
            .ColorIndex = xlAutomatic
            End With
 
			With Selection.Borders(xlInsideVertical)
            .LineStyle = xlContinuous
            .Weight = xlThin
            .ColorIndex = xlAutomatic
            End With
 
			With Selection.Borders(xlInsideVertical)
            .LineStyle = xlContinuous
            .Weight = xlThin
            .ColorIndex = xlAutomatic
            End With
 
 
 
                'Rajoute une lignes a la fin du tableau avec les Couleurs et les Bords
 
                With Sheets("Init")
                    If .Range("C4") <> "FR" Then
                        Feuille = InputBox("Please enter References of Campaign ")
                    Else
                        Feuille = InputBox("Veuillez entrer la Références de votre Campagne ")
                    End If
                End With
                With Sheets("Init")
                    If .Range("C4") <> "FR" Then
                        Description = InputBox("Please enter .... of your Campaign ")
                    Else
                        Description = InputBox("Entrer l'intitulé de votre Campagne ")
                    End If
                End With
				'Si l'utilisateur choisi la Langue FR le texte sera en français sinon en anglais
 
            Range("A" & i).Value = Feuille
            Range("B" & i).Value = Description
            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"
            ' Inscrit différentes formules dans des cases précises et incrémentes dans la case A et B les données enregistrer par l'utilisateur
 
 
        If Feuille = "" Then
 
                With Sheets("Init")
                    If .Range("C4") <> "FR" Then
                       MsgBox "Failed", vbOKOnly + vbExclamation
                       Selection.EntireRow.Delete
                    Else
                       MsgBox "Campagne Annulé", vbOKOnly + vbExclamation
                       Selection.EntireRow.Delete
                    End If
                End With
 
 
        Else
 
            Sheets("FeuilleTest").Copy Before:=Sheets("References")
            ActiveSheet.Name = Feuille
 
 
 
                With Sheets("Init")
                    If .Range("C4") <> "FR" Then
                        MsgBox "Your sheets is created !", vbOKOnly + vbInformation
                    Else
                        MsgBox "Votre Feuille vient d'être créer !", vbOKOnly + vbInformation
                    End If
                End With
 
                'Si l'utilisateur choisi la Langue FR le texte sera en français sinon en anglais
        End If
 
End Sub

Voici entiérement le code que j'ai fais

Je te laisse le regarder d'abord

PS : désolé dans mon message mon code est indenté mais pas quand je l'édite

[Krovax]

c'est parce que tu utilise les balise de citation
[Quote] et non pour le code [Code]
Je regarde ton code

edit
en fait ma question reste entière

quand tu ecrit les formule dans quel onglet ecrit tu les formule et de quel onglet vienne les valeur (précise si une variable contient le nom)

[Maiden002]

a la base la variable Feuille doit comprendre le nom de la nouvelle Feuille crée

d'ou :

Code :

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

Feuille = InputBox("Veuillez entrer la Références de votre Campagne ")

Ensuite dans ma feuille principal on va dire j'ai un tableau (et c'est dans cet page qu'il y a mon bouton Ajouter )

mon tableau commence a la ligne 14 de la colone A a H

Colone A c'est les références (la variable "Feuille" /et nom de la feuille créer)
Colone B c'est la description (la variable "Description")

de C a H ce sont des formules qui proviennent de la feuille crée (de la ligne correspondantes)

Si je crée avec la feuille appelé "coucou" de la ligne C a H je vais avoir un code différents ='coucou'!B7 , ='coucou'!B8, etc jusqu'a la colone H

c'est juste pour une feuille

aprés je voudrai avoir la possibilité de recréer une lignes avec une nouvelle feuille créer aussi en meme temps avec un autre nom genre "hello" ce qui fera dans la meme ligne ='hello'!B7 , etc

[Krovax]

Donc tu met

Code :

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

1
2
3
4
5
6
7
8
with worksheets("NomdeTafeuillePrincipale")
.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"
end with

Cela permet de s'assurer que les formule sont écrite dans le bon onglet

A toi de t'arranger pour que i ai la bonne valeur

[Maiden002]

Je viens de mettre ce code,

pour i sa marche nikel, j'ai mi le nom de ma feuille.

Le seul bémole c'est comme je disai, en faite dans ma case il met #REF par contre j'ai bien la formule que je veux dans la case.

Pour que sa marche il faut que j'aille dans la case et que je clique sur ENTRER (comme si pour validé la formule quand on la rentre manuellement)

j'ai l'impression qu'il met la formule dedans, sans la validé c'est pour cela que je ne retrouve pas les valeurs que je voulai, hors si aprés je fais ENTRER dedans, je retrouve les valeurs que je devrai avoir.

[Krovax]

Sans trop de conviction essaye de finir par

Code :

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

Calculate

[Maiden002]

Non cela ne marche pas ou alors je l'ai mal utilisé :s

[Krovax]

Dans ce cas comme je n'ai pas cette erreur et que je ne l'ai jamais eu je ne peux pas t'aider d'avantage, je vais devoir passer la main désolé

(la seule solution que je vois est vraiment mais alors vraiment pas jolie, c'est de sélectionner la cellule et de balancer Entrée avec un sendkeys mais c'est un peu désespérée comme méthode )

[Maiden002]

J'ai Trouvé

En faite j'ai mal placé déja mon Code, car je lé mis avant qu'il crée ma feuille donc ce qui est normal qu'il trouve pas les Valeurs

il fallai deja que je le place aprés ce code :

Code :

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

1
2
3
 
            Sheets("FeuilleTest").Copy Before:=Sheets("References")
            ActiveSheet.Name = feuille

Ensuite il a fallu que je rajoute devant les Range un point ".Range"

car sinon il m'était mes valeurs dans la feuille active c'est a dire la feuille crée ce que je ne voulai pas.

maintenant sa marche nikel avec ce code .

Code :

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

1
2
3
4
5
6
7
8
With Sheets("Globalprogress")
                .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"
            End With

Merci a toi Krovax pour m'avoir mi sur la voie ... de la lumiére

[Krovax]

C'est sur que si tu lui parle de ce qui n'existe pas encore il va avoir du mal
Par contre je tiens a signaler que j'avais le point tu avais juste a faire un copier collé prochaine fois j'essayerai de mettre des grande barrière au bord de la voie pour éviter que tu ne la quittes