Salut,
ci-dessous un code qui devrait correspondre à tes besoins
Sub Main
Fichier1 = thisComponent
Dim oSheets, oSheet as object ' Objet sheets Contenant toutes
les feuilles
oSheets = fichier1.Sheets ' Toutes les feuilles du fichier1
onglet = InputBox("Indiquez le nom de la feuille (Onglet) à Traiter ? ",
"Votre Choix") ' Feuille contenant les données
osheet = fichier1.getsheets.getbyname(onglet) ' Référencer cette feuille
oCellCursor = oSheet.createCursor() ' Créer un curseur sur la feuille
calc
oCellCursor.GotoEndOfUsedArea(True)
GetEndRow=oCellCursor.getRangeAddress.EndRow ' Derniere ligne
getEndCol=oCellCursor.getRangeAddress.EndColumn ' Derniere colonne
print "lignes : "; getendrow; " Colonnes : "; getendcol
for i = 1 to getendrow ' On prend la cellule A2 et on va jusqu a la
fin de la colonne
mafeuille = osheet.getcellbyposition(0,i).string ' Colonne A=0 et
ligne d indice i
if osheets.hasbyname(mafeuille) then ' Tester si la feuille existe
déjà
wreponse = msgbox("Feuille déjà existante !" & chr(13) & "
Voulez-vous la supprimer ?",4+32) ' Bouton [Oui] [Non] [?]
if wreponse = 6 then ' Réponse Oui
osheets.removebyname(mafeuille) ' supprimer la feuille
else ' sinon
msgbox("Veuillez corriger vos données, à bientôt")
exit sub ' Quitter la macro
end if
else
osheets.insertnewbyname(mafeuille,0) ' Insérer une feuille en
premiere position
endif
next i
'oSheets.insertNewByName("xx", 0) ' pour info :Créer les feuilles via
leur Index et les Nommer
'oSheets.insertNewByName("11", 1)
'oSheets.insertNewByName("30", 2)
'oSheets.removeByName("Feuille1") ' Supprimer les feuilles par leur Nom
'oSheets.removeByName("Feuille2")
'oSheets.removeByName("Feuille3")
End Sub
Amicalement Eric
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]