Discussion :

[Aimey]

Bonjour,
J'ai besoin de protéger mes formules sans utiliser le verrouillage. Le code suivant entre en conflit avec le code d'impression.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' Code de verrouillage
    If Not Intersect(Range("A3:J2038"), Target) Is Nothing Then
       Target.Offset(0, 1).Select
    End If
End Sub
 
' code d'impression
 
Private Sub Imprimer_Click()
' Imprimer les données
 
   Set champ = Range("$A$1:$J$2000")
   champ.Find("*", , , , xlByRows, xlPrevious).Offset(1, 0).Select
   n = champ.Columns.Count
   champ.Cells(65000, 1).End(xlUp).Offset(1, 0).Select
   For i = 1 To champ.Rows.Count
     k = 0
     For Each c In champ.Cells(i, 1).Resize(1, n)
       If c <> 0 And c <> "" Then k = k + 1
     Next c
     If k = 0 Then Union(Selection, champ.Cells(i, 1)).Select
   Next i
   Selection.EntireRow.Hidden = True
   ActiveSheet.PageSetup.PrintArea = champ.Address
   ActiveWindow.SelectedSheets.PrintPreview
   Cells.EntireRow.Hidden = False
End Sub

Est-ce que vous avez une suggestion?

Merci!
Aimey

[casefayere]

Bonsoir,

Il faut déjà ne pas utiliser les "Select"

Que cherches-tu avec ces lignes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
.......
champ.Find("*", , , , xlByRows, xlPrevious).Offset(1, 0).Select
 n = champ.Columns.Count
........

[Aimey]

Je cherche les cellules contenant des valeurs car je veux imprimer seulement des valeurs et omettre les zéros.

Merci

Bonsoir,

Il faut déjà ne pas utiliser les "Select"

Que cherches-tu avec ces lignes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
.......
champ.Find("*", , , , xlByRows, xlPrevious).Offset(1, 0).Select
 n = champ.Columns.Count
........

[Aimey]

Effectivement, ce n'est pas ce que je recherche. Je ne sais vraiment pas qui faire. Est-ce que vous avez quelques choses à me proposer.

Merci

[casefayere]

ton code me parais effectivement bien confus, comment est constituée ta plage (champ), tu as des cellules vides ? des vides et des 0 ? pas de vides mais des 0 ? des formules ?

De toutes façon, vu ton code précédent, ne pas utiliser de "Select" qui ne servent à rien

[Pierre Fauconnier]

Salut.

Normalement, ton code pour imprimer ne devrait faire qu'une chose: imprimer. Si tu dois d'abord préparer les données à imprimer, alors, crée une procédure qui prépare et une procédure qui imprime.

Je rejoins Casefaeyre sur le fait de ne pas devoir sélectionner (ce qui éviterait le conflit). Mais si tu dois sélectionner, alors, tu aurais intérêt à désactiver la gestion des évènements en début de macro et à la réactiver en fin de traitement (avec une gestion d'erreur pour être certaine de repasser en gestion 'ON').

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
sub Print()
  on error goto endhandler
 
  application.enableevents = false
  ...
  ...
  range("...").select ' ne lève pas l'évènement
  ...
 
endhandler:
  application.enableevents = true
  if err<>0 then msgbox ...

[Aimey]

J'ai des zéros et des valeurs.

Merci

ton code me parais effectivement bien confus, comment est constituée ta plage (champ), tu as des cellules vides ? des vides et des 0 ? pas de vides mais des 0 ? des formules ?

De toutes façon, vu ton code précédent, ne pas utiliser de "Select" qui ne servent à rien

[casefayere]

j'essayerai de te guider surtout avec les conseils de Pierre, j'ai bien dit "guider", mais pas avant demain après-midi
Je pense que les "Select" pourront être évités
bonne soirée

[Pierre Fauconnier]

La lecture de ton code ne me permet pas de comprendre ce que doit faire la procédure d'impression.
Pourrais-tu nous dire, en français (pas en code VBA) ce que tu dois faire pour préparer tes données pour l'impression?

• Déplacer les cellules <>0 dans une autre feuille?
• Masquer ou supprimer la ligne d'une cellule qui contient 0?
• ...?
• ...?

[casefayere]

Bonjour,

Suite à ce dernier message de Pierre, je confirme car je viens d'essayer de deviner ce que tu veux faire mais je me pose trop de questions alors, plutot que de préparer un code au pif, expliques clairement ce que tu veux faire
-les données égales à 0, se situent t'elles dans toute la plage (de A à J) ?
-n'importe ou ?
si oui aux 2 questions, impossible de passer par un masquage de lignes ou de colonnes

......... !

[Aimey]

Bonjour,
Désolé de ce long délais, une hospitalisation. J'ai besoin d'imprimer les données d'une feuille qui ont des valeurs plus grande que 0 et je peux avoir jusqu'à environ 3000 lignes. Mais, à la fin je dois aussi afficher un sommaire de toutes ces lignes. Je ne veux pas avoir de pages blanches entre la liste et le sommaire. Je ne vois pas comment faire.

Merci de votre aide.
Aimey