Discussion :

[familymoteau]

Bonjour,

J'avais une macro sous Libre office mais je n'arrive pas à la mettre sous excel. Pouvez vous m'aider ?
Voici la macro 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
REM  *****  BASIC  *****
Sub MaJPilote
oDoc = thiscomponent
oFeuilleEnum = oDoc.sheets.createEnumeration
While oFeuilleEnum.hasMoreElements()
   oFeuille = oFeuilleEnum.nextElement()
   oPilotes = oFeuille.getDataPilotTables()
   oPiloteEnum = oPilotes.createEnumeration
   While oPiloteEnum.hasMoreElements()
      oPiloteElement = oPiloteEnum.nextElement()
       oPiloteElement.refresh
   Wend
Wend
End Sub

Cette macro sert à mettre à jour des données comptables pour la compta d'une association.

Merci

[unparia]

Bonjour
Nous sommes ici dans la section VBA/Office et les intervenants n'ont pas à connaître nécessairement Libre Office.
Je t'invite donc à reformuler en précisant les tenants et aboutissants (clairs, précis et détaillés) , sans même un seul mot ni une seule allusion à un autre logiciel.
Merci de faire cet effort.

[familymoteau]

Oups, je suis novice, excusez moi.

Le but est de faire une macro pour actualiser les données d'une feuille, Les données à actualiser sont des sommes si d'un tableau croisé dynamiques qui se trouvent dans le même fichier mais sur une autre feuille.
Je suis pas sur d'être assez claire.
Je débute et je voudrais apprendre à faire de petite macro.

Merci pour votre aide

[unparia]

Rappel :

Je t'invite donc à reformuler en précisant les tenants et aboutissants (clairs, précis et détaillés) , sans même un seul mot ni une seule allusion à un autre logiciel

cela peut se traduire:
- soit par un algorithme
- soit par la reprise d'un code "tiers", mais dont tu as alors à commenter chaque ligne. Car (je l'espère) tu sais au moins ce que tu as écrit en Libre Office et ne viens pas nous demander de traduire en VBA/Office quelque-chose simplement "trouvé" ailleurs ... (rassure-moi).
Mais en aucun cas par une espèce de "résumé d'un cahier des charges"

[anasecu]

Bonsoir,

Les données à actualiser sont des sommes si d'un tableau croisé dynamiques

Sous excel, cela devrait suffire :

Code :

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

1
2
3
Public Sub MaJPilote()
    ThisWorkbook.RefreshAll
End Sub

[familymoteau]

Génial,

Je vais mettre en application.

Je n'arrive pas aussi à faire ma formule de somme si.

Je veux aller chercher la somme de mes comptes qui commence par 601 (601100, 601200, 601300...) dans un TCD (feuille dans le même fichier).

Voici ma formule mais elle ne marche pas : =SOMME.SI(TCD!A:A;"601*";TCD!C:C).
Mon TCD c'est
Colonne A mes comptes '601100, 601200...
Colonne B le libellé des comptes
Colonne C la somme du compte 601100...

Merci pour votre aide, c'est grâce à des gens comme vous que les petits comme moi avant !!

[anasecu]

Bonjour,

Je n'arrive pas aussi à faire ma formule de somme si.

Avec une formule matricielle à valider par ctrl+maj+entrée simultanées

Code :

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

=SOMME(SI(GAUCHE(A:A;3)="601";TCD!C:C))