Boucle !!

[gex1403]

Bonsoir le forum,
2 sujets dans ce post

1/ Est il possible de limiter le nombre de ligne et de colonnes dans classeur Excel ( excel 2000),
j'utilise en moyenne 200 lignes et environ 20 colonnes, donc toutes les autres augmentent la taille du fichier pour rien!!!

2/J'ai fais une macro pour faire du publipostage, comment faire pour que la macro s'arrete lorsque j'atteint la derniere ligne ayant du texte???

Voici mon code
Private Sub CommandButton1_Click()
Dim i As Byte
For i = 50 To 51
With Sheets('ENCADREMENT').Range('A' & i).Select
Selection.Copy
Sheets('ENCADREMENT').Range('E4').Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Range('E4').Select
Selection.ClearContents
Range('A1').Select
End With
Next i
End Sub

Merci d'avance pour vos réponses
@micalement

 

[pat1545.]

Salut,
pour la première partie:

à mon humbre avis, si tu utilises ces 200 X 20 cellules, les autres ne prennent pas de place puisque vides...


Bye

 

[gex1403]

Bonsoir le forum

Pour la boucle, c bon, j'ai trouvé sur le forum des exemples pour faire ce que je voulais.
Pour info, voici mon code modifié:


Dim derligne As Integer
Private Sub CommandButton1_Click()
Dim i As Byte
derligne = Range('A65536').End(xlUp).Row + 1
For i = 50 To derligne
With Sheets('ENCADREMENT').Range('A' & i).Select
Selection.Copy
Sheets('ENCADREMENT').Range('E4').Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Range('E4').Select
Selection.ClearContents
Range('A1').Select
End With
Next i
End Sub