Calc – Manipulation de textes

Auteur : Bernard Marcelly

Problème :

La Feuille 1 d'un tableur Calc contient les informations de clichés photos, une ligne par cliché.

La colonne D contient le descriptif du sujet. On voudrait que chaque descriptif commence par une majuscule.

Solution :

La macro balaie la colonne D à partir de la ligne 2 ( ligne de rang=1 ), lit le texte de la cellule, le modifie, le ré-écrit.

Cette macro peut servir de base pour toute autre manipulation de texte.

REM ***** BASIC *****

Option Explicit

Sub ModifTexte

Dim oDocument, oSheets As Object

Dim FeuilleCliches, oSheetref As Object

Dim oCellSujet As Object

Dim y1, MaxCliche As Integer

Dim sj1, car1 As String

oDocument = ThisComponent

oSheets=oDocument.Sheets()

FeuilleCliches = oSheets(0)

MaxCliche = 2300

For y1= 1 to MaxCliche

oCellSujet = FeuilleCliches.getCellByPosition(3,y1) 'dans colonne D

sj1 = oCellSujet.getString ' le descriptif du cliché

car1 = UCase(Left(sj1, 1)) ' majuscule pour le 1er caractère de la chaine

sj1 = car1 & Mid(sj1, 2) ' ne garder que à partir du 2è caractère

oCellSujet.setString(sj1)

Next y1

End Sub

Sophie Gautier

2003-05-04T08:47:27