XL 2010 option base 1

TooFatBoy

XLDnaute Barbatruc

• 12 Janvier 2022

• #2

Bonjour,

As-tu vu cette page : https://docs.microsoft.com/fr-fr/of...nce/user-interface-help/option-base-statement ?

 

Vote positif 0 Vote négatif

herve62

XLDnaute Barbatruc

Supporter XLD

• 12 Janvier 2022

• #3

Ben ouais !!!

herve62 à dit:

je mets bien en 1ère ligne comme le dit MS !

Cliquez pour agrandir...

MS > c'est le site de Microsoft qu'on regarde en 1er , ensuite on fouine
Donc
Sub xxxx
Option base 1
dim tbs(4,3)
dès le passage sur Option base 1 > Erreur ?

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 12 Janvier 2022

• #4

Comme le dit le message d'erreur, ça se met en dehors d'une procédure.
C'est comme un Option Explicit.

 

Vote positif 0 Vote négatif

herve62

XLDnaute Barbatruc

Supporter XLD

• 12 Janvier 2022

• #5

Donc c'est obligé pour tout le module ?
On peut pas faire une sub avec et une autre sans ?
J'ai JAMAIS utilisé !!! là c'est pour un test
Mon fichier d'essai ne fonctionne plus ? j'ai bien eu tous mes rectangles avant certainement autre chose ?

 

Pièces jointes

• test_shape2.xlsm

  19.7 KB · Affichages: 9

Dernière édition: 12 Janvier 2022

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 12 Janvier 2022

• #6

Tu as vu MS que j'ai lu, donc de toute façon cette option n'a pas grand intérêt

 

Vote positif 0 Vote négatif

herve62

XLDnaute Barbatruc

Supporter XLD

• 12 Janvier 2022

• #7

Oui je vois ! puisque de toute façon si on a besoin de 4 items on laisse T(4) et à la rigueur on peut utiliser de 0 à 4 donc un tableau de 5 items sans intérêt !!
Sinon de ce fait une idée qui fait que ?? à 19h quand j'ai fermé mon fichier c'était Ok ????
c'est pour ajouter des formes

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 12 Janvier 2022

• #8

herve62 à dit:

Oui je vois ! puisque de toute façon si on a besoin de 4 items on laisse T(4) et à la rigueur on peut utiliser de 0 à 4 donc un tableau de 5 items sans intérêt !!

Cliquez pour agrandir...

Ou plutôt tu définies de 1 à 4 et tu utilises de 1 à 4 tout simplement
Option base 1 sert à rien en fait

 

Vote positif 0 Vote négatif

herve62

XLDnaute Barbatruc

Supporter XLD

• 12 Janvier 2022

• #9

Ok comme ça c'est réglé
Une idée sur la faute ?? si jamais chez toi ça bug aussi ?? je pige plus
j'écris , je lance j'ai mes 4 rectangles , je les supprime , relance et .... ?? bug
Là moi dodo !!

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 12 Janvier 2022

• #10

Chez moi ça plante aussi mais pas d'idée j'y connais rien en shape.

 

Vote positif 0 Vote négatif

laurent950

XLDnaute Barbatruc

• 13 Janvier 2022

• #11

Bonsoir @herve62 , @Marcel32

herve62 à dit:

j'écris , je lance j'ai mes 4 rectangles , je les supprime , relance et .... ?? bug

Cliquez pour agrandir...

Sheets("feuil1").Shapes.AddShape msoShapeRectangle, TSH(k, 1), TSH(k, 2), TSH(k, 3), TSH(k, 4)

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 13 Janvier 2022

• #12

re
bonjour à tous
je ne vois pas trop l'utilité de reconstruire un tableau dans une double boucle
sur la base d'une plage
d'autant plus que ce tableau est de 4 ligne et 5 colonnes et non 4
en prenant le range.value on obtient toujours une variable tableau en base 1
donc pour faire simple
les shapes sont nommées avec le nom en colonne "A"

VB:

Sub Adshape()
    Dim TSH
    Dim shap As Shape

    TSH = Feuil2.[A1:E4].Value

    For k = 1 To 4    '
        Set shap = Sheets("feuil1").Shapes.AddShape(msoShapeRectangle, TSH(k, 2), TSH(k, 3), TSH(k, 4), TSH(k, 5))
        shap.Name = TSH(k, 1)
    Next k

End Sub

je pense que le résultat attendu est celui ci

 

Vote positif 0 Vote négatif

herve62

XLDnaute Barbatruc

Supporter XLD

• 13 Janvier 2022

• #13

Bonjour
Oui c'est ça mais je n'utilise pas le nom en A et je ne savais pas qu'une variable plage était assimilable à un tableau !! , bon à savoir ; Mais je cuisine toujours à l'ancienne et je ne suis plus à écrire 10 lignes de + !!!!!!
Au fait si je les efface ( supprimer) comment faire pour que la numérotation n'arrive pas à par exemple : Rectangle9999
Je me rappelle qu'avec les graphiques on pouvait faire style :
ActiveSheet.ChartObjects(ActiveChart.Parent.Name).Name = "rect_1"

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 13 Janvier 2022

• #14

re
@herve62
non ce n'est pas la plage qui est assimilé a une variable tableau c'est le value de la plage qui en est un

x=[A10:B20].value
x est alors une variable tableau 2 dim en base 1 avec 10 lignes et 2 colonnes

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 13 Janvier 2022

• #15

patricktoulon à dit:

x=[A10:B20].value
x est alors une variable tableau 2 dim en base 1 avec 10 lignes et 2 colonnes

Cliquez pour agrandir...

Ca va pas être un peu à l'étroit ??? 😁

 

Vote positif 0 Vote négatif