Discussion :

[maxval18]

Bonjour

J'ai une question à poser je veux de définir une zone d'impression en fonction du nombre de ligne dans la colonne "C".

Je m'explique: j'ai un classeur et suivant les concours il y a de 10 à 100 joueurs et a chaque fois que je dois imprimer je dois définir une zone d'impression. j'utilise ce code mais sa ne vas pas

Code :

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

1
2
3
4
5
6
Sub printAreaMod()
Dim derLig As Integer
 
derLig = Cells(65000, 2).End(xlUp).Row
ActiveSheet.PageSetup.PrintArea = "B4:E" & derLig
End Sub

Je m'explique j'ai dans la colonne "A" =ALEA() dans la colonne "B" les N° des joueurs de 1 à 100 mais alors j'aimerais qu'il se basse sur la colonne "C" qu'il y a les noms des joueurs

Je vous remercie de votre aide
Cordialement
MV

[patricktoulon]

bonjour

si c'est les lignes de la colonne c a prendre en compte
il y a plusieur facon d'y arriver
en voila un exemple

Code :

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

derLig = (Range("C1").SpecialCells(xlCellTypeLastCell).Row)

au plaisir

[maxval18]

Bonjour patricktoulon,

Je te remercie je vais essayer

@+

Max

[kiki29]

Salut, à lire et les éventuels pbs liés à l'utilisation de xlCellTypeLastCell.

[maxval18]

Bonjour Kiki29

Trés interssant je te remercie....!

@+

Max

[patricktoulon]

bonjour kiki29

daccord alors :

Code :

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

Range("C65536").End(xlUp).Row

au plaisir

[AlainTech]

Patrick,

Il faut arrêter d'utiliser 65536 et, de plus, tu ne mentionnes pas la feuille.

Un exemple:

Code :

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

1
2
3
4
5
6
7
Sub printAreaMod()
  Dim derLig As Long
  Dim ws As Worksheet
  Set ws = ThisWorkbook.Sheets(1) ' Ceci est un exemple. On peut aussi donner le nom de la feuille
  derLig = ws.Cells(ws.Rows.Count, 3).End(xlUp).Row ' 3 pour la colonne C
  ws.PageSetup.PrintArea = "B4:E" & derLig
End Sub