Discussion :

[nathieb]

Bonjour,

Je cherche à produire une macro , qui sélectionne une colonne dans une feuille excel, et compte le nombre d'occurrence d'un mot.

JE n'arrive pas à trouver une doc, simple pour au moins sélectionner une colonne
Olivier

[mach1974]

Code :

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

1
2
3
4
5
6
7
8
9
10
sub compte-mot () 
dim col as integer
dim  word as string 
sheets("Feuil1").activate 
inputbox("quelle colonne";a)
sheets("Feuil1").Column(col).select  
inputboxt("Mot",word)
sheets("Feuil1").cells(1,col+1).formula = "=nb.si("& chr$(col) & ":" & chr$(col) & ";"& word")"
 
End sub

[Bidouille]

@mach1974 Ce code n'est pas du Basic mais du VBA

Il n'y a pas besoin de macro pour sélectionner une colonne.
Le raccourci clavier Ctrl + Maj. + Espace suffit.

[mach1974]

@mach1974 Ce code n'est pas du Basic mais du VBA

Il n'y a pas besoin de macro pour sélectionner une colonne.
Le raccourci clavier Ctrl + Maj. + Espace suffit.

La question portait sur une macro pas une action . Je réponds à la question posé

[Bidouille]

Votre code VBA ne fonctionnera pas sous Calc.

L'enregistrement d'une macro avec le raccourci va donner en Basic pur :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
sub test
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
 
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:SelectColumn", "", 0, Array())
end sub