Copier les données d'une feuille à la fin d'une autre

Exemple 1

Sub CreeRecap
	GlobalScope.BasicLibraries.loadLibrary ("zBasic")
	
	sPlage = zPlage.SansEntete(zPlage.Occupation("Ali"))
	nIndex = zPlage.LigneVide ("Récap")
	zPlage.Copie("Ali", sPlage, "Récap", "A" & nIndex)
	
	sPlage = zPlage.SansEntete(zPlage.Occupation("Bob"))
	nIndex = zPlage.LigneVide ("Récap")
	zPlage.Copie("Bob", sPlage, "Récap", "A" & nIndex)

	sPlage = zPlage.SansEntete(zPlage.Occupation("Cal"))
	nIndex = zPlage.LigneVide ("Récap")
	zPlage.Copie("Cal", sPlage, "Récap", "A" & nIndex)

End Sub

1. Ce script permet la copie du contenu des 3 feuilles dénommées Ali, Bob et Cal.
2. Puis, le collage de chaque contenu à la suite les uns des autres dans la feuille Récap.

Exemple 2

On peut également simplifier ce code à l'aide d'une boucle si on avait beaucoup plus de feuilles à parcourir :

Sub CreeRecap
	GlobalScope.BasicLibraries.loadLibrary ("zBasic")
	
	lesFeuilles = array("Ali", "Bob", "Cal")
	for each uneFeuille In lesFeuilles
		sPlage = zPlage.SansEntete(zPlage.Occupation(uneFeuille))
		nIndex = zPlage.LigneVide ("Récap")
		zPlage.Copie(uneFeuille, sPlage, "Récap", "A" & nIndex)
	Next uneFeuille

End Sub

Il suffit de rajouter les feuilles concernées dans la déclaration array(...)