Meuble de rangement en pin première étape…

Voilà un nouveau projet dont voici le plan…

C’est un meuble d’angle de 2,07m sur 2,65m pour habiller une salle de jeu dépouvue de rangements… A priori, il sera toute hauteur (3,15m) mais  c’est encore en négociation.

Pour cela, j’ai acheté 20 planches en pin de 2m sur 40cm et 18mm d’épaisseur et un kit « gabarit de perçage en serie » de wolfcraft pour l’assemblage des planches (pareil que Métabo, je veux bien recevoir des produits pour les tester…comme Le vissage du bois invisible)

Pour rigidifier l’ensemble et pour faire moins massif, les deux extremités sont des étagères d’angles (de 20×40 au lieu des  40×40 initialement prévus…) Je vais commencer par elle de droite.

L’outils est une aide au perçage en positionnement et en équerrage (trous pour les tourillons et pour les étagères) :


La règle ainsi positionnée permet de faire des trous à 50mm du bord espacés de 37mm, comme les meubles IKEA !


Là, c’est une vue d’artiste ! 😉


Assemblage des étagères pour l’angle


En bleu ce sont les sert-joints, essentiels !


La première partie non poncée en position

Bon c’est tout pour ce soir !

 

Redimensionner un tableau ASP à deux dimensions sans perdre les données

Un tableau ASP peut être redimensionné

Voilà une solution aux erreurs suivantes « This array is fixed or temporarily locked » ou « Tableau fixe ou temporairement verrouillé » sur le redimensionnement d’un tableau à deux dimensions :

Dim a
Redim a(3,0)
au lieu de
Dim a(3,0)
 
Il  faut dimensionner le tableau à une dimension, puis lui ajouter la deuxième avec un redim
ensuite, on peut faire
 
<%
Dim a
Redim a(3,0)
‘Dim a(3,0)

fc = split(« toto,titi,tutu,tyty », », »)
For Each f In fc
Redim Preserve a(3,UBound(a,2)+1)
a(1,UBound(a,2)) = f
a(2,UBound(a,2)) = f
a(3,UBound(a,2)) = f
Next
%>

Dim a ‘Déclaration du tableau
Redim a(3,0) ‘redimensionnement du tableau

fc = split(« toto,titi,tutu,tyty », », »)
For Each f In fc
   Redim Preserve a(3,UBound(a,2)+1) ‘redimensionnement de la dernière dimension uniquement
   a(1,UBound(a,2)) = f
   a(2,UBound(a,2)) = f
   a(3,UBound(a,2)) = f
Next