Discussion :

[PIEPLU]

Bonsoir,

J'ai commencé a faire un ptit fichier utile pour moi et que voici a la suite !

Pour voir le problème, rendez vous dans l'onglet 2007, ligne 220 par exemple
Et cliquez sur générer.

Et la vous verrais les erreur apparaitre dans les champs ###.....

Comment puis je resoudre ceci ?

Merci

[LeForestier]

Avant de charger le ZIP une explication du problème serrait indispensable.

[wilfried_42]

Bonjour pieplu, leforestier

Voila une ligne de modifier avec une syntaxe correcte, si j'ai compris ce que tu cherches

Code :

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

Worksheets("RJA").Range("J13:K13").Formula = "=CONCATENATE('2007'!$C$" & ligne & ",""h"")"

bonne soirée

[PIEPLU]

Ah bien wilfried_42, par contre, il reste encore un bug au niveau de ces deux requetes :

Code :

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

1
2
3
4
 
Worksheets("RJA").Range("Q17:S17").Formula = "=CONCATENATE(SUM(somme)-'2007'!$G$" & ligne & ",""h"")"
 
Worksheets("RJA").Range("W17:Y17").Formula = "=CONCATENATE('2007'!$G$" & ligne & " +SUM(somme)-'2007'!$G$" & ligne & ",""h"")"

Je vous remet le fichier que vous voyez le problème

Merci

[wilfried_42]

re:

Code :

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

Worksheets("RJA").Range("Q17:S17").Formula = "=CONCATENATE(SUM(somme)-'2007'!$G$" & ligne & ",""h"")"

somme est une variable :

Code :

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

somme = "'2007'!G" & ligne & ":'2007'!G" & ligne + 4

donc :

Code :

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

Worksheets("RJA").Range("Q17:S17").Formula = "=CONCATENATE(SUM(" & somme & ")-'2007'!$G$" & ligne & ",""h"")"

Ca devrait faire l'affaire

[PIEPLU]

Génial, tu es trop bon

Je vais encore te demander un trucs, tu as donc vu le bouton générer,
Serait il possible qu'il reste toujours visible quand je déscend la barre déroulante ?

Merci beaucoup

[wilfried_42]

re:

je te renvoie ton fichier, mais je n'ai pas corrigé les erreurs

Un petit userform qui s'affiche à l'activation de la feuile et se ferme au changement de feuille, avec dedans un bouton qui lance ta macro, la croix est desactivé, seul un changement de feuille ferme l'USF

[PIEPLU]

Est-ce que c'est possible qu'on chargement de Excel avec l'onglet 2007 actif, la ptit form soit déjà lancé ?

Peut on cacher/masquer l'onglet RJA ?

Merci 1000x

[wilfried_42]

re:

dans

Code :

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

1
2
3
4
5
 
sub workbook_open()
      sheets("2007").activate
      sheets("RJA").visible = xlveryhidden
end sub

pour ce qui est de masquer une feuille c'est assez simple voir le rouge
mais je crois que pour l'imprimer, elle doit etre visible donc

Code :

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

1
2
3
4
5
6
7
Application.screenupdating = false
sheets("RJA").visible = true
sheets("RJA").select
' Impression de ta feuille
Sheets("RJA").visible =xlveryhidden
sheets("2007").select
application.screenupdating = true

[gerard123]

Bonsoir,

Les ### apparaissent car les colonnes sont trop étroites.
Le message d'erreur est: #NAME?
Raison: la variable ligne ne semble pas créée dans les feuilles de calcul

Bye, Gerard

[PIEPLU]

Non, j'arrive pas a avoir la form au démarrage du xls lorsqu'on est sur 2007, ou 2006 au démarrage.

Je vous remet le fichier :

[wilfried_42]

re:

ton fichier en retour

les procedures ont ete deplacées dans le module workbook pour pouvoir gerer le multi pade 2006 et 2007

un sub workbook_open() se met toujours dans le module workbook

Cordialement

[PIEPLU]

Ca marche pas :S

Une question, peut ton faire une macro qui affiche un menu avec le clique droit ?

Merci

[wilfried_42]

re:

ton fichier en retour
et un autre fichier avec un exemple de menu popup, click droit dans le carre

par contre, si le bouton est multipage, tes formules sont liées à la page 2007
il te faut les modifier : ........'" & activesheet.name & "!'.........

[PIEPLU]

Merci pour tout, je vais essayer de faire ca
Trop sympa de ta part, je te tiens au courant ...