Discussion :

[PJ_VBA]

Bonjour,

Je viens de passer sur LibreOffice et je souhaiterais faire une macro me permettant de supprimer plusieurs colonnes non adjacentes dans un tableau (Cf. Pièce jointe ou j'ai simplifié : 3 colonnes sur fond jaune à supprimer). J'ai essayé le code ci-après mais cela ne fonctionne pas (j'ai un problème avec la syntaxe de la zone à retenir et avec celle concernant la suppression en elle-même).

sub Suppr_col

Code :

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

1
2
3
4
5
6
7
8
9
Dim monDocument As Object, maTable As Object
Dim lesColonnes As Object
monDocument = ThisComponent
maTable = monDocument.TextTables.getByName("H,N,P")
lesColonnes = maTable.Columns
 
lesColonnes.removeByIndex(1,3)' supprimer ces trois colonnes
 
end sub

Quelqu'un pourrait-il m'aider ?

Par avance merci

[zoom61]

Bonjour,

Voici comment supprimer 3 colonnes :

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub SupprColonnes()
    Dim monDocument As Object, lesFeuilles As Object, maFeuillee As Object
    Dim lesSep As Variant, lesColonnes As Object
 
    monDocument = ThisComponent
    lesFeuilles = monDocument.Sheets
    maFeuille = lesFeuilles.getByName("Feuille1")
    lesColonnes = maFeuille.Columns
    lesColonnes.removeByIndex(1,3) ' supprimer trois colonnes
End Sub

[PJ_VBA]

Bonsoir et merci.

Cela ne répond pas précisément à mon problème qui est de supprimer les colonnes non adjacentes : H, N et P de la feuille "Destination" (Cf.Mon tableau joint).

Bonne soirée

[zoom61]

Euh... il suffit de modifier et de répéter la ligne suivante lesColonnes.removeByIndex(1,3).

[PJ_VBA]

Pouvez-vous préciser au regard de mon problème ?

Par avance merci

Bonne soirée

[jurassic pork]

hello,
un truc du genre :

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
sub Suppr_col
 
   Dim monDocument As Object, lesFeuilles As Object, maFeuillee As Object
    Dim lesSep As Variant, lesColonnes As Object
    monDocument = ThisComponent
    lesFeuilles = monDocument.Sheets
    maFeuille = lesFeuilles.getByName("Destination")
    lesColonnes = maFeuille.Columns
    IndexColumn =  maFeuille.getCellRangeByName("P1").getRangeAddress().StartColumn
    lesColonnes.removeByIndex(IndexColumn,1) ' supprimer  Colonne P
    IndexColumn =  maFeuille.getCellRangeByName("N1").getRangeAddress().StartColumn
    lesColonnes.removeByIndex(IndexColumn,1) ' supprimer  Colonne N
    IndexColumn =  maFeuille.getCellRangeByName("H1").getRangeAddress().StartColumn
    lesColonnes.removeByIndex(IndexColumn,1) ' supprimer  Colonne H     
end sub

devrait faire l'affaire. Il faut supprimer les colonnes de la droite vers gauche, sinon il y aura décalage dans les colonnes : si on supprime la colonne H en premier la colonne N devient M, la colonne P devient O.

Ami calmant, J.P

[PJ_VBA]

Bonjour et surtout un grand merci. Cela fonctionne. Mon problème est résolu. C'est vrai qu'il faut penser au décalage des colonnes.

Je vous souhaite une belle journée