incompatibilité de type

Re : incompatibilité de type

Bonsoir Yldie, le forum,

Je viens de tester ta macro sur une plage une peu plus petite (sinon, c'est un peu long) et je n'ai pas rencontré de problème.

Peux-tu préciser ?

Bonne nuit.

Jean-Pierre

Re : incompatibilité de type

Bonsoir,

Message reçu ce jour en MP :

Merci Jean Pierre,

En effet, je l'ai essayé dans 1 nouvelle feuille excel (vierge) et cette macro fonctionne parfaitement. Or elle contient 2 autres macros d'impression (comme suit) d'où ma question : peut-il y avoir une mauvaise interaction entre celles ci et provoquer par là même une incompatibilité de type qui déverrouille mon mot de passe et donc toutes mes formules qui peuvent alors être supprimées (ce qui n'est pas souhaitable évidemment.......). Encore merci pour votre aide.


Sub macro()
Dim Cellule As Range
ActiveSheet.Unprotect ("toto")
Application.ScreenUpdating = False
For Each Cellule In Range("B5:F139")
Select Case Cellule.Value
Case Is = ""
Cellule.Interior.ColorIndex = 0
Case Is = 0
Cellule.Interior.ColorIndex = 0
Cellule.Font.ColorIndex = 2
Case Is = "WE"
Cellule.Interior.ColorIndex = 48
Cellule.Font.ColorIndex = 2
Case Is = "piscine"
Cellule.Interior.ColorIndex = 34
Case Is = "muscu"
Cellule.Interior.ColorIndex = 40
Case Is = "R"
Cellule.Interior.ColorIndex = 41
Cellule.Font.ColorIndex = 2
Case Is = "sport"
Cellule.Interior.ColorIndex = 4
Case Is = "balade"
Cellule.Interior.ColorIndex = 38
Case Is = "P"
Cellule.Interior.ColorIndex = 44
Cellule.Font.ColorIndex = 1
Case Is = "vacances"
Cellule.Interior.ColorIndex = 39
Cellule.Font.ColorIndex = 2
End Select
Next Cellule
Range("a1").Select
Application.ScreenUpdating = True
ActiveSheet.Protect ("toto")
End Sub

Sub mois1Imp_sauf_zero()
Dim Cellule As Range, MemImp As String
MemImp = Application.ActivePrinter
' Si aucune imprimante n'a été mémorisée
If Range("F1") = "" Then
' On demande à l'utilisateur d'en chosir une
Application.Dialogs(xlDialogPrinterSetup).Show
' On mémorise le choix de l'imprimante
Range("F1") = Application.ActivePrinter
End If
ActiveSheet.PageSetup.PrintArea = "$A$1:$F$25"
' Pour chaque cellule de L1 à Lx (x=dernière cellule remplie
For Each Cellule In Range("L1:L" & Range("L" & Rows.Count).End(xlUp).Row)
If Cellule <> 0 Then
Range("A25") = Cellule
ActiveSheet.PrintOut
End If
Next Cellule
' Remettre l'imprimante par défaut
Application.ActivePrinter = MemImp
End Sub

Sub mois2Imp_sauf_zero()
Dim Cellule As Range, MemImp As String
MemImp = Application.ActivePrinter
' Si aucune imprimante n'a été mémorisée
If Range("F1") = "" Then
' On demande à l'utilisateur d'en chosir une
Application.Dialogs(xlDialogPrinterSetup).Show
' On mémorise le choix de l'imprimante
Range("F1") = Application.ActivePrinter
End If
ActiveSheet.PageSetup.PrintArea = "$A$26:$F$48"
' Pour chaque cellule de L1 à Lx (x=dernière cellule remplie
For Each Cellule In Range("L1:L" & Range("L" & Rows.Count).End(xlUp).Row)
If Cellule <> 0 Then
Range("A25") = Cellule
ActiveSheet.PrintOut
End If
Next Cellule
' Remettre l'imprimante par défaut
Application.ActivePrinter = MemImp
End Sub

Pour te répondre,

Déjà, il n'y a pas d'interaction entre macros.

Pour le reste et à vue, rien ne me choque, mais je ne peux pas tester n'ayant pas d'imprimante à dispo.

Sinon, il faudrait voir le fichier (sans données confidentielles telles que Noms, etc.).

Sous format Zip, il devrait passer sur le forum. -48.8 Ko

Bonne soirée.

Jean-Pierre

Edit : j'en profite pour saluer Bruno

Re : incompatibilité de type

Bonjour Yldie, bonjour JeanPierre 😉

Pour moi dans tes procédures, tu n'utilises pas de propriété pour ton Objet "Cellule", cela vient peut-être de là !?

Essaye dans ton code de mettre A+

Re : incompatibilité de type

Bonsoir à tous


Une autre version de ta macro

(Tu peux tester, spt, pour voir si tu vois une différence de rapidité )

Re : incompatibilité de type

Bonsoir le fil,

Tenté plein de chose.

Je n'ai jamais reproduit ce message d'erreur.

Il nous faut donc ton fichier, tel qu'il est, avec ses macros...

D'ici et à distance, difficile de faire mieux.

A te lire et en attente de ton fichier récalcitrant.

Bonne nuit.

Jean-Pierre