Discussion :

[elodiemart]

Bonjour,
Pour mon fichier, j'ai réussi à créer une macro pour masquer certaines colonnes :

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub cachecolonnes
dim plage as object
dim feuille as object
dim col as object
 
feuille = ThisComponent.Sheets.getByName("NF")
plage = feuille.getCellRangeByName("A1:F1")     'selectionne les colonnes A à F
col = plage.Columns
col.IsVisible = False         ' cache les colonnes
End Sub

Par contre, j'essaye de trouver le moyen avec une nouvelle macro d'afficher les colonnes masquées par la précédente macro

Code :

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

1
2
3
4
5
6
7
8
9
10
 
REM  *****  BASIC  *****
 
Sub affichcolonnes
dim plage as object
dim feuille as object
dim col as object
  laFeuille.Rows.IsVisible = True
  laFeuille.Columns.IsVisible = True
End Sub

Mais cela ne fonctionne pas, pouvez vous m'aide?
Merci d'avance
Elodie

[zoom61]

Salut,

Voici le code pour masquer une colonne :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
sub Masquer()
Dim monDocument As Object, oFeuille as object, maCellule As Object, oCol as object
 
monDocument = ThisComponent
oFeuille = monDocument.CurrentController.ActiveSheet
maCellule = monDocument.CurrentSelection
 
Colonne = maCellule.CellAddress.column
 
oCol = oFeuille.columns.getByIndex(Colonne)
oCol.isVisible = false
 
end sub

Et l'autre pour afficher une colonne :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
sub Afficher()
Dim monDocument As Object, oFeuille as object, maCellule As Object, oCol as object
 
monDocument = ThisComponent
oFeuille = monDocument.CurrentController.ActiveSheet
maCellule = monDocument.CurrentSelection
 
Colonne = maCellule.CellAddress.column
 
oCol = oFeuille.columns.getByIndex(Colonne-1)
oCol.isVisible = true
 
end sub

@+.

[elodiemart]

Merci, par contre quand je lance la requête j'ai cette fenêtre qui apparait
avec ce message :
Une erreur de structure de script s'est produite lors de l'exécution du script vnd.sun.star.script:Afficher.Module1.afficheCol?language=Basic&location=document de Basic.

Message*: The following Basic script could not be found:
library: 'Afficher'
module: 'Module1'
method: 'afficheCol'
location: 'document'

Je ne sais pas si cela provient de la macro...

[zoom61]

Il faut que tu sélectionnes une cellule de ta colonne.

@+.

[elodiemart]

désolée je n'ai pas préciser, autant le masquage des colonnes fonctionne bien mais c'est pour les réafficher que j'ai le message d'erreur

[zoom61]

Cela fonctionne très bien chez moi, peux-tu faire du pas à pas dans ta macro (F8) et me dire la ligne qu pose problème...

@+.

[elodiemart]

Quand je fais du pas à pas, je n'ai pas d'erreur, c'est ce qui est bizarre.
Je suis novice dans la matière donc je ne sais pas si c'est la façon dont j'ai créé le module qui ne va peut être pas
Je joins l'arborescence de mes modules au cas où cela viendrait de là
merci beaucoup pour les réponses et la patience ....

[zoom61]

Change le nom du sub, tu as peut-être un autre avec le même nom
Car ton code est correct, et ta structure aussi.

@+.

[elodiemart]

Alors en effet si tu parles du Module1, il apparait 2 fois.
Par contre encore question de débutante, comment le changer? j'ai essayé dans gérer mais il n'y a rien pour modifier le nom

[zoom61]

Alors en effet si tu parles du Module1, il apparait 2 fois.
Par contre encore question de débutante, comment le changer? j'ai essayé dans gérer mais il n'y a rien pour modifier le nom

Je parle du sub afficher, mettant afficher_colonne par exemple.

Sinon pour changer le nom du module, il faut faire un double clic dessus quand tu es dans le gestionnaire de macro.

@+.

[elodiemart]

non pourtant je n'ai rien qui porte le même nom ...
Le plus facile est peut être de t'envoyer le fichier ....

[zoom61]

Cela marche t-il mieux avec ce fichier ?

@+.