OpenOffice Calc Supprimer plusieures cellules contiguës
Fermé
Patou134
Messages postés
3
Date d'inscription
lundi 10 janvier 2022
Statut
Membre
Dernière intervention
10 février 2022
-
Modifié le 9 févr. 2022 à 23:58
Patou134 Messages postés 3 Date d'inscription lundi 10 janvier 2022 Statut Membre Dernière intervention 10 février 2022 - 10 févr. 2022 à 23:10
Patou134 Messages postés 3 Date d'inscription lundi 10 janvier 2022 Statut Membre Dernière intervention 10 février 2022 - 10 févr. 2022 à 23:10
A voir également:
- OpenOffice Calc Supprimer plusieures cellules contiguës
- Telecharger openoffice - Télécharger - Suite bureautique
- Supprimer une page word - Guide
- Formule excel pour additionner plusieurs cellules - Guide
- Supprimer compte instagram - Guide
- Supprimer pub youtube - Accueil - Streaming
2 réponses
yclik
Messages postés
3763
Date d'inscription
vendredi 25 juillet 2014
Statut
Membre
Dernière intervention
13 février 2025
1 534
10 févr. 2022 à 17:25
10 févr. 2022 à 17:25
Bonsoir
2 lièvres à la fois ?![](https://img-19.ccm2.net/aH_UkKevVhi-zNscVSWCNvg5x7Y=/f5e7559315db44adae64945c9aff10c3/ccm-ugc/LIEVREANIM.gif)
2 lièvres à la fois ?
![](https://img-19.ccm2.net/aH_UkKevVhi-zNscVSWCNvg5x7Y=/f5e7559315db44adae64945c9aff10c3/ccm-ugc/LIEVREANIM.gif)
Patou134
Messages postés
3
Date d'inscription
lundi 10 janvier 2022
Statut
Membre
Dernière intervention
10 février 2022
10 févr. 2022 à 23:10
10 févr. 2022 à 23:10
Bonsoir,
J'ai trouvé la réponse à mon problème.
Voici le code pour ceux que ça intéresse.
J'ai trouvé la réponse à mon problème.
Voici le code pour ceux que ça intéresse.
Sub SuppCell
Print "Debut"
Dim Doc As Object
Dim Sheet As Object
Dim CellRangeAddress As New com.sun.star.table.CellRangeAddress
Dim indlig,indcol, startcol as integer
'Doc = StarDesktop.CurrentComponent
Doc = thisComponent
Sheet = Doc.Sheets(0)
startcol = 0
indlig = 0
indcol = 0
For indlig = 0 to 6
indcol = indcol + 1
CellRangeAddress.Sheet = 0
CellRangeAddress.StartColumn = startcol
CellRangeAddress.StartRow = indlig
CellRangeAddress.EndColumn = indcol
CellRangeAddress.EndRow = indlig
' print startcol & " " & indlig & " " & indcol & " " & indlig
Sheet.removeRange(CellRangeAddress, com.sun.star.sheet.CellDeleteMode.LEFT)
Next indlig
Print "Fin"
End Sub