J'ai un petit problème d'impression.... Il semble qu'excel ne veut imprimer
que ce qui se trouve en 2005 sur ma feuille Excel, et ignore 2004...
Voici le code:
If OptionButton2 = True Then
Dim herrange As Range
Dim Mydate As Date
Mydate = Date
With Worksheets("Database")
.Range("E2").Select
Set herrange = .Range("PasseDue")
For Each cell In herrange
If cell.Value < Mydate And ActiveCell.Offset(,
104).Value > 0 Then
Call ImprimerAllPastDue
End If
ActiveCell.Offset(1, 0).Select
Next
Pour une raison que j'ignore, Excel n'imprime que 58 des 138 lignes
correspondant à ce code....
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Philippe.R
Bonjour Denys, Deux pistes, que tu as peut être déjà explorées : la taille de la plage PasseDue qui pourrait être mal définie la valeur de la cellule correspondante, en colonne DE, qui pourrait être non conforme -- Amicales Salutations XL 97 / 2000 / 2002 Préférez suivre facilement sur le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Denys" a écrit dans le message de news:
Bonjour à tous,
J'ai un petit problème d'impression.... Il semble qu'excel ne veut imprimer que ce qui se trouve en 2005 sur ma feuille Excel, et ignore 2004...
Voici le code:
If OptionButton2 = True Then Dim herrange As Range Dim Mydate As Date Mydate = Date With Worksheets("Database") .Range("E2").Select Set herrange = .Range("PasseDue") For Each cell In herrange If cell.Value < Mydate And ActiveCell.Offset(, 104).Value > 0 Then Call ImprimerAllPastDue End If ActiveCell.Offset(1, 0).Select Next
Pour une raison que j'ignore, Excel n'imprime que 58 des 138 lignes correspondant à ce code....
Y a-t-il quelque chose que je n'ai pas vu?
Merci
Denys
Bonjour Denys,
Deux pistes, que tu as peut être déjà explorées :
la taille de la plage PasseDue qui pourrait être mal définie
la valeur de la cellule correspondante, en colonne DE, qui pourrait être non conforme
--
Amicales Salutations
XL 97 / 2000 / 2002
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)
"Denys" <Denys@discussions.microsoft.com> a écrit dans le message de news:
4B5C6BD6-1831-44BF-B6E7-CADD034A7F14@microsoft.com...
Bonjour à tous,
J'ai un petit problème d'impression.... Il semble qu'excel ne veut imprimer
que ce qui se trouve en 2005 sur ma feuille Excel, et ignore 2004...
Voici le code:
If OptionButton2 = True Then
Dim herrange As Range
Dim Mydate As Date
Mydate = Date
With Worksheets("Database")
.Range("E2").Select
Set herrange = .Range("PasseDue")
For Each cell In herrange
If cell.Value < Mydate And ActiveCell.Offset(,
104).Value > 0 Then
Call ImprimerAllPastDue
End If
ActiveCell.Offset(1, 0).Select
Next
Pour une raison que j'ignore, Excel n'imprime que 58 des 138 lignes
correspondant à ce code....
Bonjour Denys, Deux pistes, que tu as peut être déjà explorées : la taille de la plage PasseDue qui pourrait être mal définie la valeur de la cellule correspondante, en colonne DE, qui pourrait être non conforme -- Amicales Salutations XL 97 / 2000 / 2002 Préférez suivre facilement sur le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Denys" a écrit dans le message de news:
Bonjour à tous,
J'ai un petit problème d'impression.... Il semble qu'excel ne veut imprimer que ce qui se trouve en 2005 sur ma feuille Excel, et ignore 2004...
Voici le code:
If OptionButton2 = True Then Dim herrange As Range Dim Mydate As Date Mydate = Date With Worksheets("Database") .Range("E2").Select Set herrange = .Range("PasseDue") For Each cell In herrange If cell.Value < Mydate And ActiveCell.Offset(, 104).Value > 0 Then Call ImprimerAllPastDue End If ActiveCell.Offset(1, 0).Select Next
Pour une raison que j'ignore, Excel n'imprime que 58 des 138 lignes correspondant à ce code....
Y a-t-il quelque chose que je n'ai pas vu?
Merci
Denys
Gaenonius
Si cell est bien déclaré As Range quelque part, tu pourrais essayer de remplacer If cell.Value < Mydate par If cell.Value2 < Mydate
Value2, qui renvoie un numéro de série, est souvent plus efficace pour faire des tests sur les dates.
-- Gaenonius
Bonjour à tous,
J'ai un petit problème d'impression.... Il semble qu'excel ne veut imprimer que ce qui se trouve en 2005 sur ma feuille Excel, et ignore 2004...
Voici le code:
If OptionButton2 = True Then Dim herrange As Range Dim Mydate As Date Mydate = Date With Worksheets("Database") .Range("E2").Select Set herrange = .Range("PasseDue") For Each cell In herrange If cell.Value < Mydate And ActiveCell.Offset(, 104).Value > 0 Then Call ImprimerAllPastDue End If ActiveCell.Offset(1, 0).Select Next
Pour une raison que j'ignore, Excel n'imprime que 58 des 138 lignes correspondant à ce code....
Y a-t-il quelque chose que je n'ai pas vu?
Merci
Denys
Si cell est bien déclaré As Range quelque part, tu pourrais essayer de remplacer
If cell.Value < Mydate
par
If cell.Value2 < Mydate
Value2, qui renvoie un numéro de série, est souvent plus efficace pour faire des
tests sur les dates.
--
Gaenonius
Bonjour à tous,
J'ai un petit problème d'impression.... Il semble qu'excel ne veut imprimer
que ce qui se trouve en 2005 sur ma feuille Excel, et ignore 2004...
Voici le code:
If OptionButton2 = True Then
Dim herrange As Range
Dim Mydate As Date
Mydate = Date
With Worksheets("Database")
.Range("E2").Select
Set herrange = .Range("PasseDue")
For Each cell In herrange
If cell.Value < Mydate And ActiveCell.Offset(,
104).Value > 0 Then
Call ImprimerAllPastDue
End If
ActiveCell.Offset(1, 0).Select
Next
Pour une raison que j'ignore, Excel n'imprime que 58 des 138 lignes
correspondant à ce code....
Si cell est bien déclaré As Range quelque part, tu pourrais essayer de remplacer If cell.Value < Mydate par If cell.Value2 < Mydate
Value2, qui renvoie un numéro de série, est souvent plus efficace pour faire des tests sur les dates.
-- Gaenonius
Bonjour à tous,
J'ai un petit problème d'impression.... Il semble qu'excel ne veut imprimer que ce qui se trouve en 2005 sur ma feuille Excel, et ignore 2004...
Voici le code:
If OptionButton2 = True Then Dim herrange As Range Dim Mydate As Date Mydate = Date With Worksheets("Database") .Range("E2").Select Set herrange = .Range("PasseDue") For Each cell In herrange If cell.Value < Mydate And ActiveCell.Offset(, 104).Value > 0 Then Call ImprimerAllPastDue End If ActiveCell.Offset(1, 0).Select Next
Pour une raison que j'ignore, Excel n'imprime que 58 des 138 lignes correspondant à ce code....