Code trouvé sur XLD mais fonctionne pas

[rudymagny]

Bonjour,

J'ai trouvé sur le forum un code qui permet de ne pas imprimer des cellules mais je n'arrive pas à le faire marcher:

Attribute VB_Name = 'MasquerCellulesPourImprimer'
'masquer des cellules à l'impression
Sub masqImp()
'ChrisV, mpfe
Dim masQ As Range
    Set masQ = Range('B22, B24') 'à adapter...
    formI = masQ.NumberFormat
    masQ.NumberFormat = ';;;'
    ActiveSheet.PrintOut
    masQ.NumberFormat = formI
End Sub

Déjà la partie Attribute VB_Name = 'MasquerCellulesPourImprimer'
apparait en rouge et il bloque sur la ligne
formI = masQ.NumberFormat


Merci d'avance

 

[Eric C]

Bonjour le forum
Bonjour rudymagny

Pour commencer, tu n'as pas trouvé ce code sur le présent forum car il est de Chrisv (mpfe).
Ensuite, il est normal que ton code plante dans la mesure où tu as fait un copié/collé de tout le code y compris le titre : Attribute VB_Name = 'MasquerCellulesPourImprimer' :whistle:

Ne copies que la partie qui t'intéresse et tout ira bcp mieux 😉

Sub masqImp()
'ChrisV, mpfe
Dim masQ As Range
Set masQ = Range('A1, A3, A13') 'à adapter...
formI = masQ.NumberFormat
masQ.NumberFormat = ';;;'
ActiveSheet.PrintOut
masQ.NumberFormat = formI
End Sub

Bonne soirée à toutes & à tous 😉

 

[rudymagny]

bonjour Eric C,

j'avais retiré le

Attribute VB_Name = 'MasquerCellulesPourImprimer'

mais la où ça bloque c au :
formI = masQ.NumberFormat
je pense que c parce que formI n'est pas déclaré mais je vois pas de quel type le daclarer.

Merci

 

[Eric C]

Re le forum
Re bonjour rudymagny

Pour ma part, le code fonctionne sans problème. Le contenu des cellules A1, A3 & A13 n'apparaît pas ?
Je ne peux pas plus désolé.

Bonne soirée à toutes & à tous 😉

 

[myDearFriend!]

Bonsoir rudymagny, Eric C,

rudymagny écrit :

mais la où ça bloque c au :
formI = masQ.NumberFormat
je pense que c parce que formI n'est pas déclaré mais je vois pas de quel type le declarer.

Alors Eric, on ne travaille plus en 'Option Explicit' ?... pas bien ça.... pas bien... 😉


rudymagny, tu devrais pouvoir essayer en déclarant :

Dim formI As Variant

Et si tu es sûr que tes cellules B22 et B24 ont à l'origine le même format de nombre, tu devrais même pouvoir faire simplement :

Dim formI As String

Cordialement,

Message édité par: myDearFriend!, à: 28/03/2006 22:28

 

[rudymagny]

Bonjour le forum, MyDearFriend,
Merci pour ta réponse!

J'ai déclaré le formI en variant et c bon mais je l'essaierais demain au boulot parce que je n'ai po d'imprimante chez moi!

Sinon une petite confirmation à l'impression ça fonctionne peut être mais quand je fais un aperçu je les vois toujours mes 2 cellules est-ce normal?

MERCI