Discussion :

[DubDub48]

Bonjour à tous

j'ai transféré mes applications de excel sous window à libreoffice calc sous mac

Je rencontre des problèmes au niveau des macros, concernant les niveaux de variables.

En particulier je cherche à fixer le nom de la feuille et les références d'une cellule de cette feuille, que je quitte pour aller chercher une valeur dans une autre feuille et que je veux copier à l'aide d'une macro dans la cellule quittée précédemment.

Ci après l'instruction qui fonctionnait avec Excell, que je n'arrive pas à introduire dans Libreoffice.

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Workbook_SheetDeactivate(ByVal Fl As Object)
Dim af As Worksheet
Set af = ActiveSheet
With Application: .EnableEvents = 0: .ScreenUpdating = 0: End With
Fl.Activate
feuille = ActiveSheet.Name
cellule = ActiveCell.Address
af.Activate
With Application: .ScreenUpdating = 0: .EnableEvents = 1: End With
End Sub

Merci d'avance, cordialement

[Michel]

Bonjour DubDub48
Au risque de passer pour un ignare, j'avoue ne pas comprendre la question qui ressemble à un copier-coller; mais je me trompe sûrement !
Pourrais-tu détailler un peu le principe de cette macro et comment elle est déclenchée, utilisée.

[DubDub48]

Bonjour DubDub48
Au risque de passer pour un ignare, j'avoue ne pas comprendre la question qui ressemble à un copier-coller; mais je me trompe sûrement !
Pourrais-tu détailler un peu le principe de cette macro et comment elle est déclenchée, utilisée.

Bonjour Michel

Est ce que je peux t'envoyer mon fichier à partir duquel je pourrais t'expliquer ma démarche.

En gros, je quite une feuille "Etude TCE" sur laquelle je fais des sous détails de prix et je vais chercher une valeur dans une autre feuille à l'aide d'un filtre que je veux copier dans la cellule que je viens de quitter sur la feuille "Etude TCE" .

Cela revient à conserver en mémoire les coordonnées de la cellule quittée.

En attendant ci après les macro qui me permettent de faire ma manip.

Avec la macro 1 je change de feuille
Avec la macro 5 je revient sur la feuille "Etude TCE" après avoir cherché ma valeur dans une table avec un filtre.

Cela marche bien sur Excell car les variables feuille et cellule sont identifiées dans un module qui est dans worksheet mais je ne retrouve pas l'équivalent dans libre office.

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
Sub Macro1()
' Macro1 Macro
' Aller à liste des taches
x = ActiveSheet.Name
y = Selection.Address
 'pour vérif avant ==>
MsgBox ("feuille (" & x & ") cellule (" & y & " )")
Sheets("Liste des tâches").Select
 Range("A2").Select
End Sub
 
Sub Macro5()
If feuille = "" Then Exit Sub
 With Application
 .ScreenUpdating = 0
  Range("A4").Copy
Sheets(feuille).Range(cellule).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
.CutCopyMode = False
.ScreenUpdating = 1
End With
Sheets(feuille).Select
End Sub

[Michel]

Bonjour DubDub48
Je pense que les réponses à tes problèmes d'identification et feuille et ce cellule sont dans la FAQ http://openoffice-libreoffice.develo...feuille-active
Exemple:
Comment afficher le nom de la feuille active ?

Code vb :

Code :

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

1
2
3
4
5
6
7
8
9
Dim oDoc As Object , Feuille As Object 
 
oDoc=ThisComponent 
 
Feuille = oDoc.getCurrentController().getActiveSheet() 
MsgBox Feuille.getName() 
 
'Une autre solution 
MsgBox oDoc.CurrentController.ActiveSheet.getName