Demande de vérification code tablo 6 dimension [résolu]

[forsanta]

bonsoir tt le monde 😛

le problème :

je doit sauvegarder lors d'une opération une plage de cellule sur 6 ligne et X colones prenons 10 pour l'exemple

feuille source : feuilX
on partirais de la colonne 1 a la colonne 10 et de la ligne 1 a la ligne 6
le code serait donc :

option explicit
sub tablo1 ()
dim i as integer, j as integer,k as integer,l as integer,m as integer,n as integer,l as integer,c as integer
' definit le tableau a 6 dimention ainsi que leur taille soit ici 10 pour chaque
dim vartab(1 to 10 , 1 to 10 , 1 to 10 , 1 to 10 , 1 to 10 , 1 to 10 ) as string

'==================================================================== definition des point de depart
l = 1 ' premiere ligne de recherche d'information
c = 1 ' premiere colone de recherche d'information

'===================================================================== remplissage du tableau

for c= 1 to 10														' on parcourt la plage a remplir colonne par colone 



	for i to ubound(vartab,1) 										'boucle sur la premiere dimension
		for jto ubound(vartab,2)									'boucle sur la deuxieme dimension
			for k to ubound(vartab,3)								'boucle sur la troisieme dimension
				for l to ubound(vartab,4)							'boucle sur la quatrieme dimension
					for m to ubound(vartab,5)						'boucle sur la cinquieme dimension
						for n to ubound(vartab,6)					'boucle sur la sixieme dimension
						
						' on remplit le tableaux
						vartab(i,j,k,l,m,n) = feuilx.cells(l,c).value & _
												feuilx.cells(l+1,c).value & _
												feuilx.cells(l+2,c).value & _
												feuilx.cells(l+3,c).value & _
												feuilx.cells(l+4,c).value & _
												feuilx.cells(l+5,c).value & _
						
						next n
					next m
				next l
			next k
		next j
	next i
	
	
next c

end sub

la question que je me pose est de savoir si la boucle baser sur les colones soit la boucle avec la variable "C" est indiquer dans ce cas ??

 

[Caillou]

Re : Demande de vérification code tablo 6 dimension

Bonsoir,

Franchement, j'ai beau relire, je ne comprends pas la question.
Ca doit être l'heure !

Caillou

 

[Guest]

Re : Demande de vérification code tablo 6 dimension

Bonjour,

Un tableau devant comporter 10 colonnes et 6 lignes ne fait que 2 dimension et non 10 ou 6
Une dimension pour les lignes et une pour les colonnes:
Dim vartab(1 to 6, 1 to 10)

Pour t'en convaincre: Sélectionne A1:J6 (avec des données si possible) puis lance la macro ci-dessous en mettant un point d'arrêt sur la ligne End Sub

Sub truc()
 Dim t: t = Selection.Value
End Sub

Quand la macro s'arrête, Affichage->Variables locales -> déployer la branche de 't' dans l'arbre.

D'ailleurs remplir un tableau par VarTab=Range("A1:J10").Value est bien plus rapide que n'importe quelle boucle. VarTab doit alors être déclaré comme variant.

A+

 

[forsanta]

Re : Demande de vérification code tablo 6 dimension

ok merci Hasco en effet remplir directement avec VarTab=Range("A1:J10").Value me semble plus logique.
pour les dimension j'ai du penser 6 ligne 6 dimension et non pas en un axe X et un axe Y .

Comme caillou sa doit être l'heure merci

edit : on ne peut pas valider les discutions en résolue ??

 

[Guest]

Re : Demande de vérification code tablo 6 dimension

Re bonjour,

on ne peut pas valider les discutions en résolue ??

Serpent de mer xldien!

Rien n'est prévu pour cela, car, en autres, il y toujours une possibilité d'amélioration d'un fil de discussion. Toutefois certains réédite leur Titre pour mettre manuellement [Résolu]

A+

 

[forsanta]

Re : Demande de vérification code tablo 6 dimension [Résolu]

je vais valider sa de cette manière !