création de formules

[ahu]

Bonjour à tous,

Je recherche un moyen pour créer mes formules simples qui font référence à un onglet.
en fait sur une colonne j'ai en premiere cellule(A1) le nom de mon onglet (Semaine 1) en dessous je remplis mes cellule en faisant appel à l'onglet Semaine 1 (par exemple la cellule A3 est égale à ='Semaine 1'$J$4)

Je n'arrive pas à trouver le moyen pour que ma formule prenne en compte la valeur de la cellule A1.
En fait je voudrais faire A3='"A1"'$J$4 au lieu de A3='Semaine 1'!$J$4.

est ce possible?

 

[Tibo]

Re : création de formules

Bonjour,

Tu peux y parvenir avec la fonction INDIRECT :

[SIZE=3]=INDIRECT("[COLOR=red]'[/COLOR]"&$A$1&"[COLOR=red]'[/COLOR]!J4")[/SIZE]

Valable pour la cellule J4

On peut adapter la formule pour d'autres cellules.

@+

 

[ahu]

Re : création de formules

Merci ca fonctionne à merveille.
bonne journée

 

[ahu]

Re : création de formules

Nouvelle petite question,

je souhaite créer un bouton qui mette a jour les requetes externe se trouvant sur un nombre défini d'onglet.
Mes onglets se tous S1, S2, S3,...S53
j'ai écrits cela mais j'ai toujours le droit a l'erreur d'execution '1004'.:

Private Sub CommandButton1_Click()
Dim i, y, z
y = InputBox("MAJ de la semaine N°:", "De")
z = InputBox("à la semaine N° ", "A")
For i = y To z
    Sheets("S" & i).Select
    Range("A1").Select
    Selection.QueryTable.Refresh BackgroundQuery:=False
    Next i
Sheets("Détail PROD projets").Select
End Sub

je pense que c''est au niveau du select que ca plante, quelqu'un a t'il une idée?
Merci

 

[ahu]

Re : création de formules

d'autres fois ca plante également au niveau du refresh.
peut etre dois je modifier ma macro?

 

[Dolichotis]

Re : création de formules

Salut ahu !

Essaie de remplacer :

dim i, y,z

par :

dim i as byte, y, as byte, z as byte

 

[Dolichotis]

Re : création de formules

Et

Sheets("S" & i).Select
    Range("A1").Select

Par :

Sheets("S" & i).Range("A1").Select

 

[ahu]

Re : création de formules

non ca ne change rien
Ce qui est bizarre c'est que si je lance ma macro en allant sur outil, macro puis executer, cela fonctionne Par contre si je lance ma macro a partir de l'onglet "Détail PROD projets" avec mon bouton cela ne fonctione pas.
Je pense que c'est du au bouton, les parties:

Private Sub CommandButton1_Click()
...
End Sub

sont elles correctes?

 

[Dolichotis]

Re : création de formules

Re

Ca m'a l'air correct...
Par contre, je ne connais pas l'instruction avec Refresh !


Dans quelle feuille de code as-tu mis ce code ? Dans Détails PROD Projets ? S'il est là ça devrait marcher...

 

[ahu]

Re : création de formules

Re

Ca m'a l'air correct...
Par contre, je ne connais pas l'instruction avec Refresh !


Dans quelle feuille de code as-tu mis ce code ? Dans Détails PROD Projets ? S'il est là ça devrait marcher...

ouai c'est dans cette feuille que j'ai mis le bouton qui devrait enchainer ce code

 

[Dolichotis]

Re : création de formules

Désolée, je vois pas ce que ça peut être... Si la macro fonctionne quand tu l'exécutes par le menu Outils.

C'est toujours la même erreur ? '1004' ?

 

[ahu]

Re : création de formules

la macro ne fonctionne pas avec le bouton: erreur 1009
la macro fonctionne quand je la lance avec executer

 

[mromain]

Re : création de formules

Bonjour

juste au cas où...

n'aurais-tu pas changé le nom de ton bouton "CommandButton1" par hasard?

A+

 

[Dolichotis]

Re : création de formules

Erreur 1009 : Il est impossible d'accéder à la propriété ou à la méthode d'une référence d'objet nul.

Tu es sûre que dans Visual Basic Editor, le code du bouton se trouve dans la feuille de code correspondante à celle où se trouve le bouton ? Si le bouton se trouve dans la feuille 1 (détails PROD projets) le code doit se trouver dans la feuille de code 1.
Sinon essaye de le mettre dans ThisWorkbook.

Private Sub CommandButton1_Click()
...
End Sub

Sinon, je sais pas ! Désolée, Bonne chance.