[VBA-E]Problème Variable/Graphique

Version imprimable

17/02/2006, 15h06
47-47

[VBA-E]Problème Variable/Graphique

Bonjour tout le monde,

comme je le dis dans le titre, j'ai un problème avec une variable au niveau d'un graphique... pour faire simple, voici ce que je souhaiterais faire:

j'ai un tableau contenant des clients et un nombre de commande sur le mois, mais vu le nombre de client qui peut être exhorbitant, c'est pas l'idéal sur un graphique en secteur pour s'y repérer... alors je souhaiterais y afficher que les 5 plus grandes valeurs, par exemple (en pourcent, par les étiquettes...)

puisque le graphique en secteur fonctionne utilise les numéros de ligne de la plage pour créer les quartiers, j'ai relevé les numéros de lignes des plus grandes valeurs, qui se situe dans une variable...

en gros, pour finir ma macro, il ne me reste plus qu'à placer cette variable dans les données de l'affichage des étiquettes, mais là, ca coince...

au début, j'avais une variable "Variant/Sting" que j'ai réussi à modifier en "Variant/Double"... mais l'un ou l'autre ne change rien...

Connaissant très mal le VB, je suis donc un peu coincé... si vous pouviez donc m'aider à résoudre ce problème... je vous en saurais gré ! :D

EDIT:

Si cela peut vous aider, voici une copie du fichier: http://cjoint.com/?crp6wBjHAM

Elle me sera peut-être également utile pour le week-end... lol :D
17/02/2006, 16h34
bouley

Bonjour 47-47,

essaye cette ligne

Code:

ActiveChart.SeriesCollection(1).Points(6).DataLabel.Characters.Text = a

Est-ce bien cela que tu veux ?
@+
17/02/2006, 17h57
47-47

Salut bouley,

je l'ai essayée... et... fonctionne pas... j'ai essayé de la modifer en regardant l'aide d'office, mais je n'y arrive pas... d'ailleurs, je comprends pas les erreurs qu'il me renvoie... lol

mais si je comprends bien ton code, tu affecte la valeur de "a" à l'étiquette du quartier, c'est ca???

Si oui... ben... non... ce n'est pas ca...

Ce que je souhaiterais, c'est trouvé quel quartier représente quel client afin de lui attribuer une étiquette en pourcent... et le a, représenterais donc le numéro de client/quartier...

en gros, ce que j'avais essayé de faire, c'était:

Code:

.Points(a)

avec ce qui va autour... mais là, il me reconnait la variable "a" comme une lettre et non pas comme variable, si je comprends bien l'erreur... lol

concernant ce que tu as fait, c'est vrai que mon classeur n'aidait pas très bien à comprendre ce point, car j'ai remis les nombres à la place des variables pour éviter les erreurs... :roll:
17/02/2006, 19h12
bouley

Je viens de tester ton code

Code:

ActiveChart.SeriesCollection(1).Points(a).Select

c'est bien cela que tu veux ?
Si oui, il fonctionne tres bien sauf avec a car a=7 dans ton exemple et tu n'as que 6 quartiers.
@+
17/02/2006, 19h19
47-47

pt1... là j'y comprends plus rien... j'avais essayé avec les autres variables, et ca ne fonctionnait pas non plus...

enfin bref... y a du avoir une couille à quelque part, soit le code, soit moi... chais pas... mais... l'important c'est que maintenant ce soit bon ! :D

Merci de m'avoir éclairé... lol même si les 3/4 étaient fait...
17/02/2006, 20h07
47-47

je reviens à la charge, mais avec d'autres questions... lol :D

est-il possible faire un processus comme suit:

- déprotéger la page
- selectionner un graphique
- faire un apercu avant impression (jusque là, OK !)
> laisser ouvert l'aperçu et une fois le bouton fermer comme suit
- selectionner la page
- protéger la page

Comme vous pouvez le voir, la première partie, no-soucis... mais une fois dans l'apercu, en réalité, la macro ne sait pas trop quoi faire car normalement elle devrait être dans la feuille excel... et donc... arret de la macro...

Y a-t-il moyen de relancer la macro quand on appuie sur le bouton fermer de l'apercu?? :D

Bonjour 47-47

cette macro à été générée par l'enregistreur de macro et elle fonctionne !
donc elle continue aprés le clic sur le bouton fermer de l'aperçu avant impression.
Code:

1 2 3 4 5 6 7 8 9 10 11 Sub Macro1() ActiveSheet.Unprotect ActiveSheet.ChartObjects("Graphique 1").Activate ActiveChart.ChartArea.Select ActiveWindow.SelectedSheets.PrintPreview ActiveWindow.Visible = False Windows("Classeur47.xls").Activate Range("D3").Select ActiveCell.FormulaR1C1 = "27" ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True End Sub
tu vois et tu dis ?
@+

18/02/2006, 12h07
47-47

Nom de diou va !

j'ai fait exactement ca hier, sauf la formule du 27, et ca ne reprennait pas !!!

Je n'y comprends plus rien ! lool
18/02/2006, 13h25
47-47

encore un truc que je ne comprends pas... mais j'espère que cette fois ce n'est pas moi ou que ca n'y ressemble pas... lool

j'essaie de concatener 2 éléments par une macro... donc je fais:

Code:

cells(r,c).formular1c1 = "=CONCATENER(r[-1]c,r[-2]c)"

mais il me marque dans la cellule de destination: "#NOM?"

le plus étonnant, c'est qu'il me suffit de rentrer dans la formule et lui faire "ENTER" pour que tout fonctionne !

Alors, grande question... que peut-il y avoir comme erreur??? Ou comment pourrais-je procéder autrement pour concatener ces valeurs (contenue en partie dans des variables)
18/02/2006, 13h48
bouley

en VBA avec FomulaR1C1 il faut utiliser le nom US des fonctions
Concatener = Concatenate
donc

Code:

Cells(r, c).FormulaR1C1 = "=CONCATENATE(r[-1]c,r[-2]c)"

cela devrai fonctionner
As-tu testé ce que je t'ai envoyé en mp (worksheetFunction.match)?
tu nous dis?
@+
18/02/2006, 13h51
47-47

je n'ai rien en MP...

Sinon, merci beaucoup pour l'info de l'anglais... ca, je ne le savais po ! lol Ce qui explique sans aucun doute mon problème ! :D

testes ceci c'est + court et plus rapide

Code:

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
Range("A1:B10").Select
    Selection.Sort Key1:=Range("B7"), Order1:=xlDescending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
 
a = Range("B6").Value
b = Range("B5").Value
c = Range("B4").Value
d = Range("B3").Value
e = Range("B2").Value
 
Range("A1:B10").Select
    Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
 
 
a = Application.WorksheetFunction.Match(a, Range("B:B"), 0)
b = Application.WorksheetFunction.Match(b, Range("B:B"), 0)
c = Application.WorksheetFunction.Match(c, Range("B:B"), 0)
d = Application.WorksheetFunction.Match(d, Range("B:B"), 0)
e = Application.WorksheetFunction.Match(e, Range("B:B"), 0)
 
 
 
ActiveSheet.ChartObjects("Graphique 1").Activate

Apres tu continues ton code

Qu'en pense-tu ?
@+

18/02/2006, 14h27
47-47

ca à l'air de fonctionner, en effet... tu pourrais juste m'expliquer le fonctionnement de "Match"?? :D

Les 2 premiers éléments, pas de problème, par contre, le 0...
18/02/2006, 14h37
bouley

Consulte l'aide sur la fonction EQUIV dans les fonctions Recherches & Matrices EQUIV = MATCH
@+
18/02/2006, 14h37
SfJ5Rpw8

Citation:

Envoyé par 47-47

ca à l'air de fonctionner, en effet... tu pourrais juste m'expliquer le fonctionnement de "Match"?? :D

voir aide en ligne excel ... "Match" = "EQUIV"
18/02/2006, 14h54
47-47

Oki ! merci pour l'info... c'est juste difficile de savoir ou chercher... savoir comment a été traduit le mot... ;)

par contre, en ce moment, j'ai un autre problème... vous me direz peut-etre que je saute du coq à l'ane... mais... c'est assez clair pour moi... lol car je suis dans un projet... et... je sais ce que je dois faire... mais pas forcément comment... lol

bref, j'essaie d'insérer une ligne, dans une feuille, à une ligne donnée... j'ai repris le code de l'aide en ligne, mais je n'arrive pas à le faire fonctionner... :(
18/02/2006, 15h05
bouley

utilise l(enregistreur de macro et tu te poseras moins de questions
sinon

Code:

Rows(8).Insert Shift:=xlDown

ou

Code:

Rows(8).Insert Shift:=xlUp

@+
18/02/2006, 18h23
47-47

Merci bcp ! C'est vrai que généralement avec la macro automatique, on peut voir comment procéder... et là... j'ignore pourquoi, je n'y ai plus pensé... ;) En tout cas, merci mille fois de t'occuper un peu de moi et mes macros... :D

Maintenant que j'arrive gentillement vers la fin de mes macros, j'ai juste une question... lol

j'ai une formule qui me fait la somme sur une colonne... avec la macro, j'insère une ligne juste au dessus, et retrie le tout pour trier sur les clients (après 4-5 filtres j'arrives à avoir quelques choses de correcte qui me garde les commandes et CA par clients... lol :D)

par contre, petit problème, la fonction de la somme ne se met pas à jour, si je peux dire, j'entends par là qu'elle garde la même plage qu'au début...

Y a-t-il un moyen, hormis de refaire la formule, de la mettre à jour (la refaire ne pose pas un vériable problème à vrai dire... ;):D)

Après ca, je crois que j'arrive au bout de mon cauchemard... j'aurais fait une macro assez compliquée (enfin, plusieurs), pas très catholique comme codage... mais... qui fonctionne... :D

PS: pendant que j'y suis, une question qui n'a pas trop à voir avec les macros, mais les échelles logarythmiques des graphiques en histogramme... j'obtiens par une formule les valeurs à y afficher, mais dès que j'ai des 0 (obtenu par les formules), il me dit que c'est impossible d'avoir des 0 avec ces échelles... alors que si je rentre manuellement le 0, ca passe... y a-t-il un remède??? :D

PS2: maintenant, tout d'un coup, il me fait un truc bizarre... il me marque ceci comme message:

Citation:

La méthode "Cells" de l'objet "_Global" a échoué

avec l'erreur d'exécution 1004... et d'une fois à l'autre, ca fonctionne... ca fonctionne pas... ca fonctionne pas, mais sur un autre truc... (dont un rows)
18/02/2006, 20h29
bouley

Pour ta première question ben refais ta formule !
pour la deuxième fais voir ton code et là ou cela "plante".
tous les endroit !!
@+
19/02/2006, 00h56
47-47
Bonsoir Bouley,

Oki, merci pour la première, suivant comment, c'est le plus simple... :D

Pour la 2ème, voici les portions:
Code:

1 2 3 4 5 Sheets(2).Select **Cells(1, 5).Value = r** Cells(2, 5).Value = "A" Cells(3, 5).FormulaR1C1 = "=CONCATENATE(r[-1]c,r[-2]c)"
(défaut trouvé sur la ligne avec les **)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Sheets(2).Select a1 = "A1" r = 1 c = 1 **While Cells(r, c) <> ""** r = r + 1 Wend
Voilà, cette fois, c'est les 2 seuls ou il me dit l'erreur, avant il me disait encore sur un row...

le premier morceau se situe à la troisième étape de la macro, quand je reviens sur la page des graphiques pour y faire un tri des entreprises (comme tu peux le voir, juste après la sélection), et avant cette étape, je trie la liste des clients (liste à part) par nom...

le 2ème, également juste après la sélection de la feuille... et au tout début du code... mais celui-ci foire après une première exécution qui plante (donc à la 2ème exécution de la macro)

Je viens de penser que cela pouvait peut-être venir d'une protection sur la feuille, mais non, elle n'est pas protégée... et il me semble que le message d'erreur est différent dans ce cas...

Bon, surement bonne nuit ! :D Peut-être à demain... :D
19/02/2006, 02h07
bouley

Je viens de tester tes lignes de code et pas de pb !!
Quel sont les messages d'erreur ?
Parce que là je vois pas ?
Ou est placé ton code ?
- dans un module
- dans le code d'une feuille ?
- dans une userform ?
Bonne nuit
@+
19/02/2006, 08h20
SfJ5Rpw8

Citation:

Envoyé par 47-47

Citation:

La méthode "Cells" de l'objet "_Global" a échoué

avec l'erreur d'exécution 1004... et d'une fois à l'autre, ca fonctionne... ca fonctionne pas... ca fonctionne pas, mais sur un autre truc... (dont un rows)

quand tu utilise Cells "tous seul " , sans rien devant ... celle-ci porte sur la feuille excel active... et si la feuille excel est un graphique ... tu as erreur ... !
active la feuille concerné... avant...

Code:

sheets(2).activate

:!:

Rebonjour tout le monde ! :D

Bon, vu que le code en lui-même semble bon, voici le code de toute la macro... à nouveau, je vais essayer de trouver les endroits ou plante le code et y mettre des **...

Code:

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
123
124
125
126
127
128
129
130
Sub Nouveau_client()
 
Sheets(2).Select
 
a1 = "A1"
 
r = 1
c = 1
 
**While Cells(r, c) <> ""**
 
    r = r + 1
 
Wend
 
Cells(1, 5).Value = r
Cells(2, 5).Value = "C"
Cells(3, 5).FormulaR1C1 = "=CONCATENATE(r[-1]c,r[-2]c)"
 
a2 = Cells(3, 5).Value
 
Cells(2, 5).Value = "B"
Cells(3, 5).FormulaR1C1 = "=CONCATENATE(r[-1]c,r[-2]c)"
 
a21 = Cells(3, 5).Value
 
Cells(2, 5).Value = "A"
Cells(3, 5).FormulaR1C1 = "=CONCATENATE(r[-1]c,r[-2]c)"
 
a3 = Cells(3, 5).Value
 
Cells(1, 5).Value = r - 1
Cells(3, 5).FormulaR1C1 = "=CONCATENATE(r[-1]c,r[-2]c)"
 
a4 = Cells(3, 5).Value
 
Cells(1, 5).Value = a1
Cells(2, 5).Value = a2
Cells(3, 5).Value = ":"
Cells(4, 5).FormulaR1C1 = "=CONCATENATE(r[-3]c,r[-1]c,r[-2]c)"
 
plage = Cells(4, 5).Value
 
Cells(1, 5).Value = a4
Cells(2, 5).Value = a3
Cells(4, 5).FormulaR1C1 = "=CONCATENATE(r[-3]c,r[-1]c,r[-2]c)"
 
plage1 = Cells(4, 5).Value
 
Cells(1, 5).Value = a1
Cells(2, 5).Value = a21
Cells(4, 5).FormulaR1C1 = "=CONCATENATE(r[-3]c,r[-1]c,r[-2]c)"
 
plagegraph1 = Cells(4, 5).Value
 
Range("E1:E4").Delete
 
For i = 2 To Sheets.Count
 
    Worksheets(i).Activate
 
    Rows(r).Insert shift:=xlDown
 
    Cells(r - 1, 1).Select
    Selection.AutoFill Destination:=Range(plage1), Type:=xlFillDefault
 
    Range(plage).Select
    Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
 
    ActiveSheet.ChartObjects("Graphique 1").Activate
    ActiveChart.ChartArea.Select
    ActiveChart.SetSourceData Source:=ActiveSheet.Range(plagegraph1), _
        PlotBy:=xlColumns
 
Next i
 
Sheets(1).Select
 
Cells(1, 8).Value = r
Cells(2, 8).Value = "F"
Cells(3, 8).FormulaR1C1 = "=CONCATENATE(r[-1]c,r[-2]c)"
 
a2 = Cells(3, 8).Value
 
Cells(1, 8).Value = a1
Cells(2, 8).Value = a2
Cells(3, 8).Value = ":"
Cells(4, 8).FormulaR1C1 = "=CONCATENATE(r[-3]c,r[-1]c,r[-2]c)"
 
plage = Cells(4, 8).Value
 
Range("H1:H4").Delete
 
Range(plage).Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
    DataOption1:=xlSortNormal
 
Sheets(2).Select
 
**Cells(1, 5).Value = r**
Cells(2, 5).Value = "A"
Cells(3, 5).FormulaR1C1 = "=CONCATENATE(r[-1]c,r[-2]c)"
 
a1 = "A2"
a2 = Cells(3, 5).Value
 
Cells(1, 5).Value = a1
Cells(2, 5).Value = a2
Cells(3, 5).Value = ":"
Cells(4, 5).FormulaR1C1 = "=CONCATENATE(r[-3]c,r[-1]c,r[-2]c)"
 
plage = Cells(4, 5).Value
 
Range("E1:E4").Delete
 
For i = 2 To Sheets.Count
 
    Worksheets(i).Activate
 
    Range(plage).Select
    Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
 
Next i
 
End Sub

Donc sur les 2, je sélectionne la feuille juste avant... donc à n'y plus rien comprendre...

19/02/2006, 18h37
SfJ5Rpw8

Citation:

Envoyé par 47-47

Donc sur les 2, je sélectionne la feuille juste avant... donc à n'y plus rien comprendre...

je n'ai pas dis sélectionner ... mais Activer
19/02/2006, 19h40
47-47

et bien... même en activant les feuilles, j'ai encore des erreurs...

Bonsoir 47-47
j'ai bien compris ton code qui sert à construire des adresses
Personellement je ne procède pas de cette façon car c'est très lourd d'écrire dans des cellules puis de concatener le tout etc...

je me sert de la propriété CurrentRegion qui prend tout le tableau situé autour de la selection.
Attention pas de ligne vide dans le tableau

Donc, dans ton cas, A1.currentRegion me delimite le tableau en A1:B10 pour Feuil2
Ensuite tu te sert de la propiété offset (si besoin est !!) pour determiner un point de départ
et de la propriété Resize pour determiner le nombre de lignes et de colonnes.
et pour finir la propriété Address pour avoir les coordonnées de la plage définie.

Ex : pour que a2 = "C2:D2" avec A1.CurrentRegion

Code:

a2 = tbl.Offset(1 , 2).Resize(1, 2).Address(RowAbsolute:=False, ColumnAbsolute:=False)

Voici comment je construis tes variables
mais toutes ne sont pas necessaires disont que c'est pour la compréhension !
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Set tbl = ActiveSheet.Range("A1").CurrentRegion r = tbl.Rows.Count + 1 a2 = tbl.Offset(tbl.Rows.Count, 2).Resize(1, 1).Address(RowAbsolute:=False, ColumnAbsolute:=False) a21 = tbl.Offset(tbl.Rows.Count, 1).Resize(1, 1).Address(RowAbsolute:=False, ColumnAbsolute:=False) a3 = tbl.Offset(tbl.Rows.Count, 0).Resize(1, 1).Address(RowAbsolute:=False, ColumnAbsolute:=False) a4 = tbl.Offset(tbl.Rows.Count - 1, 0).Resize(1, 1).Address(RowAbsolute:=False, ColumnAbsolute:=False) Plage = tbl.Resize(tbl.Rows.Count + 1, tbl.Columns.Count + 1).Address(RowAbsolute:=False, ColumnAbsolute:=False) Plage1 = tbl.Offset(tbl.Rows.Count - 1, 0).Resize(2, 1).Address(RowAbsolute:=False, ColumnAbsolute:=False) Plagegraph1 = tbl.Resize(tbl.Rows.Count + 1, 2).Address(RowAbsolute:=False, ColumnAbsolute:=False)
teste ceci comme cela tu ne sera pas embêté par tes messages d'erreur
et comme on dit c'est quand même plus mieux !!

Essaye de faire comme te dis bbil pour le .Activate

Allez Bonne fin de fin de semaine
@+

19/02/2006, 23h16
47-47

Oki, je vais essayer...

Et pour le code, je sais que le mien n'est pas optimale, même très loin de là, mais pour dire que ca fait 1 semaine que je code en VB-Excel... je trouve ca déjà pas mal... lool

Mais merci bcp pour ton code, je vais l'essayer dès que possible, et c'est vrai que ca va l'alléger un bon bout... :D

Bonne fin de soirée, week-end, et semaine... :D

Edit:

en relisant ton code, je me demande si j'ai pas meilleur temps de le faire ainsi, afin d'obtenir une adresse du genre "A1:C10" (pour faire un tri sur l'ensemble de mon tableau...)

Code:

a2 = tbl.Offset(0,0).Resize(tbl.Rows.Count, 3).Address(RowAbsolute:=False, ColumnAbsolute:=False)

Si je comprends bien le code, ceci devrait me donner ce que je disais plus haut... et même que dans ce cas, l'offset ne serait pas nécessaire, exact??!! :D

EDIT2:

après tester, j'ai corrigé le code, le offset se trouve à 0,0... mais peut également être supprimé... :D Et en effet, à mon avis, j'ai meilleur temps de faire comme dit plus haut, directement prendre la plage entière...
20/02/2006, 09h41
47-47

Voilà, à première vue, toutes mes macros fonctionnent ! :D Par contre, un dernier petit soucis... afin d'éviter quelques erreurs possibles...

Travaillant sur les graphiques, ceux-ci n'ont pas toujours le même nom interne... y a-t-il un moyen pour les changer???
20/02/2006, 14h04
bouley

Bonjour 47-47,

CTRL + clique sur le graphique
Son nom apparaîtra alors dans la zone Noms ( la même que pour les plages nommées ) et tu pourras renommer ton
graphique.

En VBA:

Code:

feuil1.shapes("graphique3").name = "Mon nouveau nom"

Voila cela te convient-il ?
@ +
20/02/2006, 20h52
47-47

J'ai regardé à l'instant, hormis le code VBA, et c'est bien celà ! C'est parfait :D
20/02/2006, 22h36
bouley

Si c'est parfait 47-47 profites-en pour un :resolu: !!
@+
21/02/2006, 08h20
47-47

Ben... je reviens à la charge, car c'est pas tout à fait résolu... :(

Je me suis peut-être un peu précipité, et je n'ai pas testé avec plusieurs graphiques...

Le problème que ca me pose maintenant, c'est que si un graphique a été nommé en interne "Graphique 1", je ne peux pas attribuer à un autre graphique ce même nom même si le premier a été renommé en "Graphique N"...

Je vais donc juste voir avec les macros, maintenant, si cela fonctionne... mais... si ca ne fonctionne pas, faudra que je cherche un autre moyen... je vous tiens au courant dès que possible... ;)

EDIT:
Il semble que le code de la macro que tu m'as montré précédemment fonctionne exactement de la même manière... :( donc... c'est peut-être un peu rapé pour cette méthode... :(

Mais en fouillant un peu plus, j'ai découvert une solution... lol :D Supprimé les graphiques présents, recréer les uns après les autres, et les renommés... Car une fois renommé, le nom présent est bien utilisé pour les macros, et vu que des précédents étaient là, le numéro est supérieur, mais comme il ne retrouve pas les numéros que je lui mets, il les attribue au nouveau graphique... :D
21/02/2006, 10h34
47-47
rebonjour (enfin, plutot bonjour, car je ne l'avais pas dit avant... lol),

j'ai 2 petites questions, dont une qui était en suspens...

1.- qui concerne plus excel lui-même que les macros, j'ai une erreur avec les échelles logarythmiques, et des formules...

en gros, j'ai un graphique qui prend des données fournies par des formules (sommes de 3 mois), mais il y en a qui sont à 0...

Dès que la valeur = 0, et qu'elle est donnée par une formule, il m'est impossible d'avoir une échelle logarythmique...

Vous est-il possible de me donner une solution??!!

2.- là, je ne comprends pas mon problème...

dans mon code (que tu m'as en partie fourni Bouley), il y a:
Code:

1 2 3 4 5 6 7 Sheets(2).Activate Set tbl = ActiveSheet.Range("A5").CurrentRegion r = tbl.Rows.Count + 1 plage = tbl.Resize(tbl.Rows.Count + 1, 3).Address(rowabsolute:=False, columnabsolute:=False)
Pourquoi est-ce que r vaut ici 46, et que plage me donne du style "A5:C50" ??!!

A part ca, j'arrive bientot au bout, j'ai bientot fini de copier les macros dans le fichier final... mais j'ai ce problème... :(

Grand merci d'avance pour m'aider à finir ces macros... et de m'avoir m'aidé jusqu'à présent ! :D

EDIT:

pour la 2ème, j'ai trouvé ! C'est l'histoire du +1 et du début du tableau, en A5...