Problème fin de boucle

[fredannab]

Bonjour
Je fais une macro qui cherche a redimentsionner les lignes en fonction du nombre de lignes qui se trouvent entre 2 valeurs, histoire d'avoir une forme rectangulaire homogène pour pouvoir y insérer des images.
J'ai fait une boucle qui y arrive bien mais je coince pour la fin de la boucle. Je voudrais qu'il arrête quand le "Selection.End(xlDown).Select" arrive à la ligne 65 536

Voici le code:

 Dim LigneDeb As Integer
    Dim Lignefin As Integer
    Dim NbLignes As Integer
    Dim TailleSketchDefaut As Integer
      
    
    TailleSketchDefaut = 125
    LigneDeb = 2
        
  
     Do
     
    Cells(LigneDeb, 3).Select
      
    Selection.End(xlDown).Select
    Lignefin = ActiveCell.Row
 
    NbLignes = Lignefin - LigneDeb
    
    Rows(LigneDeb & ":" & Lignefin - 1).RowHeight = TailleSketchDefaut / NbLignes
    LigneDeb = Lignefin
    
    
    Loop Until IsEmpty(Cells(Lignefin, 3)

je joins le fichier.
Des idées ?

 

[tototiti2008]

Re : Problème fin de boucle

Bonjour fredannab,

Bienvenue sur XLD,

pas trés précis... mais peut-être :

if Selection.End(xlDown).row =65536 then Exit Sub

 

[fredannab]

Re : Problème fin de boucle

je viens d'attacher le fichier...

 

[fredannab]

Re : Problème fin de boucle

Je voudrais qu'il arrête la boucle quand il n'y a plus de valeur lorsqu'il fait le
Selection.End(xlDown).Select

 

[fredannab]

Re : Problème fin de boucle

des idées?