Discussion :

[Mod77]

Bonjour,

Je cherche en vain à trouver le moyen d'imprimer toute ma feuille jusqu'à l'endroit où plus rien n'est écrit entre les colonnes A et G.

J'ai trouvé ce lien:
[URL="http://www.developpez.net/forums/d450923/logiciels/microsoft-office/excel/contribuez/derniere-ligne-derniere-colonne-renseignees-d-feuille/"]

et j'ai essayé de mettre en oeuvre comme ça:

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
 
Private Sub CommandButton2_Click()  'Imprime de la feuille PV
Dim lgfin As Long
Dim c As Integer
 
    'Recherche de la dernière ligne écrite
        'ActiveWorksheet().PrintOut  'impression de la page active
        'lgfin = Sheets("PV").Range("A" & Application.Rows.Count).End(xlUp).Row
        'lgfin = Range("A1:G" & Range("G65536").End(xlUp).Rows)
 
    For c = 1 To 7
     lgfin = Cells(Columns(c).Cells.Count, 1).End(xlUp).Row
    Next
 
        'Worksheets("PV").Rows(25).PageBreak = xl.PageBreakManual
 
    Sheets("PV").PageSetup.PrintArea = "A1:G" & lgfin ' Définition de la zone d'impression avec variable lgfin
 
        'Worksheets(Array("PV")).PrintOut
End Sub

Mais sans succès. Il trouve la dernière ligne où A est vide mais il ne prend pas les lignes où les colonnes "C" et "D" sont seules remplies.

Je tourne en rond . Quelqu'un pourrait-il m'aider svp?

[unparia]

Bonjour
Peux-tu nous expliquer clairement et précisément la finalité de cette boucle ? :

Code :

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

1
2
3
For c = 1 To 7
     lgfin = Cells(Columns(c).Cells.Count, 1).End(xlUp).Row
Next

qui est telle (ainsi écrite) que lgfin sera TOUJOURS celui déterminé par le 7ème tour de boucle ...

Et de surcroît :

Code :

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

Cells(Columns(c).Cells.Count, 1)

sera TOUJOURS (quelle que soit la valeur de c) :

Code :

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

Cells(rows.count,1)

Ce n'est quand même pas la mer à boire que de faire ce petit test assez parlant :

Code :

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

1
2
3
For c = 1 To 10
 MsgBox c & " ===> " & vbCrLf & Cells(Columns(c).Cells.Count, 1).Address & vbCrLf & Cells(Rows.Count, 1).Address
Next

[unparia]

Bon ...
Je vais te tendre une petite perche par cette question toute bête :
Comment ferais-tu (hors informatique) pour déterminer quelle est la dernière étagère contenant au moins un objet, dans un meuble comportant plusieurs étagères composées (chacune, donc) de plusieurs compartiments ?
Je te laisse réfléchir ...

[Menhir]

A moins que tu ais des données en dehors des colonnes A à G, ceci devrait suffire en lieu et place de ta boucle.

Code :

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

lgfin = ActiveSheet.UsedRange.Rows.Count

Pour une programmation propre, il faut déclarer les variables avec leur type :
https://msdn.microsoft.com/fr-fr/lib.../gg251750.aspx

[unparia]

Bonjour Menhir
Nous ne savons (rien n'en est dit) si les colonnes concernées ne contiennent que des constantes (des saisies, donc).
Le Usedrange inclut, lui, les formules, les mises en forme, etc ...

[Menhir]

Charge au demandeur de le tester.
Si ça marche, ça simplifie (et accélère) le code.
Sinon, il peut signaler que ça ne marche pas (et pourquoi ça ne marche pas) pour envisager d'autres solutions.

[Mod77]

Bonsoir,

Que de mécontentement .. désolé de vous décevoir à ce point mais j'ai essayé tellement de code avant que j'en ai perdu la tête.
Alors j'ai eu l'idée de faire une boucle sur mes 7 colonnes pour chercher à savoir laquelle à la ligne vide la plus loin.
Car je ne comprends pas, malgré les explications sur le lien que j'ai trouvé, pourquoi je n'avais pas la dernière ligne pleine (ou première ligne vide)
sur toute la largeur de page. Car pour moi une ligne fait toute la largeur de page.
Voilà pour ma justification.
Ensuite, j'ai bien essayé avec le debugger et F8 mais je n'ai pas compris pourquoi j'avais cela.

Néanmoins, merci pour votre aide, j'ai essayé le code unparia mais il donne toujours la même chose 1=A$65536 2=A$65536

Pour être plus clair sur ce que je souhaite, c'est : imprimer de "A1" à la ligne qui est vide entre les colonnes A et G.

[unparia]

1)

Néanmoins, merci pour votre aide, j'ai essayé le code unparia mais il donne toujours la même chose 1=A$65536 2=A$65536

Tu m'étonnes !
Ce test était là pour te prouver ce que je disais, non pour solutionner ton problème
2) où en es-tu de tes réflexions (exemple des étagères) ?
3) As-tu lu les derniers messages (ceux de mehnir et les miens) ?
Ils attendent des précisions de ta part :
- que contiennent les colonnes (toutes) de ta feuille ? Uniquement des constantes où également des formules, des mises en forme, etc ..?
- si ta feuille contient des formules : y en-a-t'il également en colonne A à G ou ces colonnes-là ne contiennent-elles que des constantes ?
- ta feuille contient-elle d'autres colonnes susceptibles de contenir des données au delà de la colonne G ?
Il faut que tu comprenne qu'une solution éventuelle dépend très fortement de ces précisions.

[Mod77]

Désolé encore j'avais oublié. Mes colonnes ont que des noms et des chiffres sans formule ou autre.
Elles sont le résultat d'un copier -collé.

Mais j'ai enfin trouvé ce qui suit et qui rempli totalement le rôle attendu, mais je ne le comprends pas.

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
 
Sub TrouverLaPremiereLigneVide()
 
Dim PremiereLigneVide As Long
Dim DerniereCellule As Range
 
 With ActiveSheet
 
      Set DerniereCellule = .Cells(.Rows.Count, 1).End(xlUp)
      With Range(DerniereCellule, DerniereCellule.Offset(0, 2)).CurrentRegion
           PremiereLigneVide = .Row + .Rows.Count
           MsgBox PremiereLigneVide
      End With
     Set DerniereCellule = Nothing
 
 End With
 
End Sub

Je vais essayé d'imprimer maintenant.

Merci à vous 2

[unparia]

Le code que tu montres-là ne fait pas ce que tu disais vouloir faire (ton premier message) ! *****


Tu ne nous as toujours pas fait savoir si des colonnes au-delà de la G pouvaient ou non contenir des données !

EDIT ***** : il te retournera le rang de la ligne suivant la dernière cellule remplie de la colonne A (et ignorera les données éventuellement en B à G au-delà de ce rang)
Au demeurant obtensible (= le résultat de ta fonction) tout bêtement par :

Code :

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

range("A" & rows.count).end(xlup).row

qui n'est donc pas ce que tu cherches.

[Mod77]

Il faut certes modifier un peu le code pour aller en G mais je l'ai testé, ça marche! Il m'affiche même le numéro de la ligne.
Méaculpa c'est vrai que je me suis mal exprimé! j'ai continué à écrire après l'intitulé du sujet sans recopier celui-ci
Evidemment je comprends mieux vos questions maintenant
Pourtant, en vous répondant, j'ai réécris ce que j'attendais.

Il n'y a rien après la colonne "G", seulement des boutons de commande non imprimable mais aucune données.

[unparia]

Il n'y a rien après la colonne "G", seulement des boutons de commande non imprimable mais aucune données

+

Mes colonnes ont que des noms et des chiffres sans formule ou autre

===>> = tout bêtement le code que t'a donné Mehnir en son message de ç h 10, à savoir :

Code :

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

lgfin = ActiveSheet.UsedRange.Rows.Count

!!!!!
Le mieux est d'ailleurs de le compléter ainsi :

Code :

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

1
2
3
4
With ActiveSheet
  .UsedRange
  lgfin = .UsedRange.Rows.Count
End With

la 1ère ligne de ce code a pour effet de "redéfinir" le UsedRange (cas d'effacements, etc ... sur le dernier connu)

Veux-tu bien stp libérer maintenant cette discussion ? (un clic sur le tag RESOLU).

[Mod77]

J'attendais votre réponse avant de clore.
merci à vous 2!
j'essaie quand même votre code.
Merci

Finalement je garde votre proposition car je la comprends.

Merci

[Mod77]

Bonjour,

Je reviens sur cette discussion car il semble que la formule mémorise la dernière valeur de la ligne et j'ai beau faire

Code :

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

 lgfin = 0

cela ne change rien.

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
 
Private Sub CommandButton2_Click()  'Imprime de la feuille PV
Dim lgfin As Integer
 
    'Recherche de la dernière ligne écrite
    'lgfin = ActiveSheet.UsedRange.Rows.Count
 
With ActiveSheet
  .UsedRange
  lgfin = .UsedRange.Rows.Count
End With
 
    'Défini la zone d'impression
 ActiveSheet.PageSetup.PrintArea = Range("A1:F" & lgfin)
 MsgBox ("zone impression:',A1:F" & lgfin)
 
    'Affichage avant impression
 ActiveSheet.PrintPreview
 
    'impression de la page
 ActiveSheet.PrintOut
 'Range("A1:F" & lgfin).PrintOut Copies:=1, Collate:=True
 
 'Worksheets("PV").Rows(15).PageBreak = xl.PageBreakManual   'pose un saut de page
 
End Sub

Avec debogage F8, la valeur de "lgfin" est toujours le numéro de l'affichage précédent. Si c'était 50 et que l'affichage actuel est à peine de 15 alors la zone reste à 50.

D'où vient le problème svp ? serait-ce du à la copie de cellules fusionnées ?

[unparia]

¨pour mémoire :

question :

- que contiennent les colonnes (toutes) de ta feuille ? Uniquement des constantes où également des formules, des mises en forme, etc ..?

Réponse :

Mes colonnes ont que des noms et des chiffres sans formule ou autre.

J'y ajourerais cette citation :

Bonjour Menhir
Nous ne savons (rien n'en est dit) si les colonnes concernées ne contiennent que des constantes (des saisies, donc).
Le Usedrange inclut, lui, les formules, les mises en forme, etc ...

Si Usedrange ne repasse pas (ton exemple) de 51 à 15, cela signifie ta réponse était inexacte !

[Mod77]

Bonjour,

Oui, effectivement je me suis trompé, il y a une mise en forme!

Je vais alors réessayer le code que j'avais trouvé avant.

du coup, ça marche avec le code précédent! merci.

[RyuAutodidacte]

bonjour,
si tu voulais connaitre la dernière ligne parmi les colonnes de A à G sans prendre en compte les colonnes suivantes,
une solution serait de l'écrire comme cela (même avec une recherche on tombe sur ce type de code) :

Code :

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

Der_L = Cells([A:G].Find("*", , , , xlByRows, xlPrevious).Row, [A:G].Find("*", , , , xlByColumns, xlPrevious).Column).Row

PS : la seule dernière ligne que je n'ai pas trouvé (Mis à part avec une boucle, mais pas en direct), c'est quand les colonnes sont non contigues