Désactiver un complément pendant qu'un macro s'exécute et
B
J'ai crée un fichier pour la planification de retraite dans lequel est intégré un complément pour les calculs fiscaux. Complément XLL et COM. Voici le code utilisé pour le désactiver :
Sub Desactiver_TaxAnalyzer()
'Desactive TaxAnalyzer :
AddIns("TaxAnalyzerXLLAddIn").Installed = False
'COM :
Excel.Application.COMAddIns.Item("TaxAnalyzer.AddinModule").Connect = False
End Sub
Sub Activer_TaxAnalyzer()
'Activer TaxAnalyzer :
AddIns("TaxAnalyzerXLLAddIn").Installed = True
'COM :
Excel.Application.COMAddIns.Item("TaxAnalyzer.AddinModule").Connect = True
End Sub
Pendant que ce code va masquer/afficher les lignes vides :
Sub HideAll()
'Afficher temporairement la colonne est necessaire pour masquer les lignes.
Range("C1").EntireColumn.Hidden = False
'Masque les lignes :
Dim i As Integer
For i = 1 To 500 '500 est une limite arbitraire.
If Range("C" & i).Text = "0" Then
Range("A" & i).EntireRow.Hidden = True
End If
Next i
Range("C1").EntireColumn.Hidden = True
'Masque les couleurs :
Dim j As Integer
For j = 1 To 500 '500 est une limite arbitraire.
If Range("B" & j).Interior.ColorIndex <> -4142 Then '-4142 = sans couleur.
Range("A" & j).Interior.ColorIndex = -4142
End If
Next j
End Sub
Sub ShowAll()
'Affiche les lignes :
Rows.EntireRow.Hidden = False
'Affiche les couleurs :
Dim i As Integer
For i = 1 To 500 '500 est une limite arbitraire.
If Range("B" & i).Interior.ColorIndex <> -4142 Then '-4142 = sans couleur.
Range("A" & i).Interior.Color = Range("B" & i).Interior.Color
End If
Next i
End Sub
Mais le problème est que le fichier plante, comme avant qu'on intègre ce code. J'ai tenté de désactiver manuellement les compléments et ça fonctionne nickel. Cela signifie que c'est les compléments qui font buger le reste du code. Mais je bloque sur comment faire pour que mon code de désactivation des compléments avant que le code ne masque les lignes vides et vice-versa...
Merci d'avance pour votre aide.