debeuger macro

[julia]

bonsoir,
je suis bloquer sur une macro ( c est ma premiere)
pouriez vous me dire ce ki beugue

Sub m1()

If ('A1') = '' Then Sheets(part1).Visible = False
End If

If 'A2' = '' Then Sheets(part1).Visible = False
End If


End Sub

cette macro me sert a masquer des feuilles si je n ai pas besoin de les imprimer

 

[Baside]

Bonjour Julia, le Forum,

Pour désigner une cellule, il faut dire à Xl qu'elle fait partie d'une collection d'objets, ici Worksheets, soit

Worksheets('Feuil1').range('A1')

Notes bien les '' et les parenthèses sinon ...

Ce code

Sub Effacer()
If Sheets(1).Range('A1') = '' Then Sheets('Feuil1').Visible = False
End Sub

Dérivé du tin m'a éliminé purement et simplement la Feuille 1

Pour l'impression, comme je n'ai pas encore rendu invisible des zones, mais je regarde.

Baside

part1 remplace Feuil1 dans ton cas

 

[julia]

merci bastide de m avoir repondu si vite
j essaie maintenant voir si tout fonctionne bien
bonne soirée

 

[Baside]

Re

Eureka

Il faut préciser à Xl ce que tu veux lui faire imprimer.

Ex:

ActiveSheet.PageSetup.PrintArea = '$A$6:$G$18'

imprime la zone (A6:G18). Les $ pour les réf absolues.

Baside

 

[julia]

excuz mais j ai un message d erreur qui me dit propritte ou methode non gere par cet objet
voici ma macro actuel

Sub m1()
Worksheets('Feuil1').Range ('A1;A2')
If Range('A1') = '' Then Sheets('part1').Visible = False
If Range('A2') = '' Then Sheets('part2').Visible = False

End Sub

je ne sais pas ce ki cloche car je n y comprend pas encore grand chose
si vos lumieres peuvent m éclairer ce serait sympq g peur du noir!!!

 

[Baside]

Bonjour Julia, le Forum,

Indique quelle est l'aire à impimer et celle qui ne doit pas l'être et la codition pour pouvoir la rédiger.

Baside