Open Office 2 : Chaine de caractères à suppri
Résolu
ickyknox
Messages postés
1344
Statut
Membre
-
ICKYKNOX -
ICKYKNOX -
Bonjour,
J'ai un doc (type excel mais en open) avec une liste en colonne A.
Les données ont des valeurs type : ARPOT2632595512
De la cas 1 à la case 10000 j'aimerais que les 5 premiers caractères soient supprimés (donc les lettres).
On m'a donné ce langage, mais il ne fonctionne que sur la version 3 d'open office.
Est ce que quelqu'un a une idée de modification SVP?
Merci :
Sub SuppressionCarac
' déclaration des variables
Dim i As Long
Dim wkb As Object
Dim wks As Object
Dim rge As Object
wkb = ThisComponent
wks = wkb.getSheets.getByName("Feuille1")
'xray wks
For i = 1 to 10000
rge = wks.getCellRangeByName("A" & i)
rge.Value = Right(rge.Value,Len(rge.Value)-5)
Next i
End Sub
J'ai un doc (type excel mais en open) avec une liste en colonne A.
Les données ont des valeurs type : ARPOT2632595512
De la cas 1 à la case 10000 j'aimerais que les 5 premiers caractères soient supprimés (donc les lettres).
On m'a donné ce langage, mais il ne fonctionne que sur la version 3 d'open office.
Est ce que quelqu'un a une idée de modification SVP?
Merci :
Sub SuppressionCarac
' déclaration des variables
Dim i As Long
Dim wkb As Object
Dim wks As Object
Dim rge As Object
wkb = ThisComponent
wks = wkb.getSheets.getByName("Feuille1")
'xray wks
For i = 1 to 10000
rge = wks.getCellRangeByName("A" & i)
rge.Value = Right(rge.Value,Len(rge.Value)-5)
Next i
End Sub
Configuration: Windows XP Internet Explorer 6.0
