Discussion :

[coleoptere]

Bonsoir,
Je voudrai supprimer plusieures cellules contiguës sur une même ligne comme le fait la commande contextuelle (Clic droit, supprimer) tout en déplaçant les cellules se trouvant à droite de la sélection vers la gauche.
Comme j'ai un très gros ficher à traiter je voudrai effectuer cette opération à l'aide d'une macro.
J'ai essayé de créer un code avec "Enregistrer une macro mais cela ne me convient pas car l'adressage de la sélection est sous la forme "A1:F1" alors que j'ai besoin qu'elle soit sous la forme "0,1:0,5" (je ne suis pas sur de la syntaxe).
Afin de l'inclure dans une procédure qui balayerai tout le fichier.
J'ai un écrit un début de code que voici:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub Deb
Dim DOC as object, Les_Feuilles as object,La_Feuille as object,Zone as object
 
   Doc = thisComponent
   Les_Feuilles = Doc.Sheets
   La_Feuille = Les_Feuilles.getByName("Feuille1")
   Zone = La_Feuille.getCellRangeByName("A1:F1")
   Doc.currentController.Select(Zone)
 
End Sub

ainsi qu'un petit fichier d'exemple:Exemple 1.ods

Merci par avance de votre aide.

[Mobydick_62]

Bonjour,

Voici un exemple en utilisant un mix entre code et dispatcher. Ne connaissant pas ton fichier original, le code ne fonctionne que sur la ligne 3 de ton fichier exemple.
Si tu veux parcourir ton document d'un coup il va falloir forcément adapter le code et probablement boucler sur toutes les lignes d'une manière séquentielle pour tout décaler

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub Main
Dim DOC as object, Les_Feuilles as object,La_Feuille as object,Zone as object
Doc = thisComponent
Les_Feuilles = Doc.Sheets
La_Feuille = Les_Feuilles.getByName("Feuille1")
 
'Désignation de la zone en alphanumérique
Zone = La_Feuille.getCellRangeByName("A3:C3")
 
'Ou par coordonnées
'Zone = La_Feuille.getCellRangeByPosition(0,2, 2,2)
 
Doc.currentController.Select(Zone)
 
'Utilisation du dispatcher
Dim dispatcher As Object
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
 
Dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Flags"
args1(0).Value = "L"
 
dispatcher.executeDispatch(ThisComponent.CurrentController.Frame, ".uno:DeleteCell", "", 0, args1())
End Sub

Cordialement

[Amélie Ladoque]

Bizarre, quelqu'un a posé une question identique ici :
https://forum.openoffice.org/fr/foru...hp?f=8&t=65090