OK ça marche impec merci!
Le probléme vennais des caractéres interdits dans les noms de feuille
comme les "-" de Jean-claude ou des parentéses
(un nom de jeune fille)
avec un rechércher/remplacer sa vas
Encor merci
Etienne
eric Multeau a écrit :
Salut,
Nouvel envoi mais avec les commentaires sur une autre ligne afin
d'éviter les Pbmes lors du copier coller.
Je viens de la tester chez moi, tout marche impec, il s'agit surement
d'1 pbme de mise en forme.
Lors du coller à partir du forum, la fin de ligne des commentaires
trop longs passe à la ligne suivante, ce qui induit unne erreur de
compilation.
Nota : les dernières lignes en commentaires étaient la pour Info ;-)
Amicalement eric
REM ***** BASIC *****
Sub Main
Fichier1 = thisComponent
' Objet sheets Contenant toutes les feuilles
Dim oSheets, oSheet as object
' Toutes les feuilles du fichier1
oSheets = fichier1.Sheets
' Feuille contenant les données
onglet = InputBox("Indiquez le nom de la feuille (Onglet) à Traiter ?
","Votre Choix")
' Référencer cette feuille
osheet = fichier1.getsheets.getbyname(onglet)
' Créer un curseur sur la feuille
oCellCursor = oSheet.createCursor()
oCellCursor.GotoEndOfUsedArea(True)
' Derniere ligne
GetEndRow=oCellCursor.getRangeAddress.EndRow
' Derniere colonne
getEndCol=oCellCursor.getRangeAddress.EndColumn
print "lignes : "; getendrow; " Colonnes : "; getendcol
' On prend la cellule A2 et on va jusqu a la fin de la colonne
for i = 1 to getendrow
' Colonne A=0 et ligne d indice i
mafeuille = osheet.getcellbyposition(0,i).string
' Tester si la feuille existe déjà
if osheets.hasbyname(mafeuille) then
' Bouton [Oui] [Non] [?]
wreponse = msgbox("Feuille déjà existante !" & chr(13) & "
Voulez-vous la supprimer ?",4+32)
' Réponse Oui
if wreponse = 6 then
' supprimer la feuille
osheets.removebyname(mafeuille)
' sinon
else
msgbox("Veuillez corriger vos données, à bientôt")
' Quitter la macro
exit sub
end if
else
' Insérer une feuille en premiere position
osheets.insertnewbyname(mafeuille,0)
endif
next i
End Sub
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
