Bonjour,

Cette situation a été créée parce que vous avez activé le complément Analysis Toolpak. En effet, c’est bien documenté chez Microsoft que, pour d’obscures raisons, cela ajoute le fichier Funcres.xlam dans les projets VBA. Il n’est pas clair si cela affecte toutes les versions d’Excel, mais mon expérience me dit que oui.

Francis

Bonjour,

Votre macro VBA doit boucler sur l’ensemble des feuilles. Considérer une structure du genre

Sub TraiteFeuilles

Dim sh as Worksheet
For each sh in WorkSheets
‘ Ici, insérez vos commandes avec l’objet sh.Sous-Objet.Méthode
Next sh

End Sub

Voilà,

Bonjour,

Voici ma façon de décortiquer cette formule.

=IF($G33=0;
Effectivement, ce premier test permet de voir si l’amortissement est linéaire ou dégressif à taux constant.
IF($H33=0;0;
Si ce deuxième test est vrai, donc le bien n’est pas amortissable et on inscrit 0. Sinon, on fait le calcul, dans le présent cas, de l’amortissement dégressif :
SUMIF($J$6:$N$6;AO$7;$J15:$N15)*$H33/12+
La première partie de la formule s’occupe du solde d’ouverture.
IF(AO87=0;0;SUMIF($J$6:$N$6;AO$7;$J33:$N33)/2*$H33/SUMIF($J$6:$N$6;AO$7;$J87:$N87)));
La deuxième partie s’occupe de l’investissement durant l’année en cours. Cette formule évite de prendre de l’amortissement si l’investissement n’a pas encore eu lieu – IF(AO87=0;0;. Et elle répartit le montant sur le nombre de mois où il y a eu de l’investissement – /SUMIF($J$6:$N$6;AO$7;$J87:$N87). Le fait de diviser par deux est là afin de tenir en compte la règle de demi-année. Au Canada, la première année, le contribuable n’a droit qu’à 50% du montant total.

Ces formules, pour leur part, s’occupent de l’amortissement linéaire.
SUM(OFFSET(AO33;0;0;1;- MIN($G33;AO$9)))/$G33
La première partie considère les nouveaux investissements faits à date.
+IF($AM69=0;0;IF(AO$9<=$AM69;$AN69/$AM69;0)))
La deuxième partie s’occupe de l’amortissement des soldes d’ouverture. Ces soldes incluent un estimé du nombre de mois restants pour fins d’amortissement.

Merci,

Francis

Avez-vous vraiment besoin de modifier la propriété Refresh de cet objet? Si la commande bloque dans cette configuration, enlevez cette ligne de commande.

Francis

Bonjour,

Vous ne devriez avoir qu’une seule procédure dans un module.

Quand vous êtes dans la feuille A, que vous appuyez sur le bouton Imprimer dans cette feuille et que la macro contient du code qui réfère à la feuille active, le code ne va s’exécuter que pour la feuille active…

Le bouton dans chaque feuille peut appeler toujours la même macro qui est dans un module général, c’est aussi simple que ça.

Francis

Bonjour,

Il est difficile de faire mieux. Vous pourriez toutefois tenter une commande comme

         IF Sheets(i).Visible <> xlSheetVisible THEN Sheets(i).Visible = xlSheetVisible

Cela sauverait un peu de CPU…

Francis

Bonjour,

Je vous propose le code VBA suivant (pour sélectionner les onglets pairs au dessus de 3):

Sub SelectPair()
Dim i As Integer, iCount As Integer
Dim strSheetSelected() As String

    For i = 4 To Sheets.Count
        If i Mod 2 = 0 Then   '  C'est un index pair
            If Sheets(i).Visible = xlSheetVisible Then
                ReDim Preserve strSheetSelected(iCount)
                strSheetSelected(iCount) = Sheets(i).Name
                iCount = iCount + 1
            End If
        End If
    Next i
    
    Sheets(strSheetSelected).Select

End Sub

Pour les onglets impairs changer la condition pour IF i Mod 2 = 1 then.
Pour tous les onglets, enlever le premier IF (IF i Mod 2 = 0 then).

Voilà,

Francis

Bonjour Si_a,

Nous avons effectivement comme projet de développer notre excellente formation d’introduction à la Programmation VBA sous forme de elearning en 2017.

En attendant, vous pouvez utiliser le forum afin de nous faire part de vos problèmes, au fur et à mesure.

Francis