Discussion :

[serialkiddy]

Bonjour,

J'ai un souci pour parcourir une colonne, j'ai uniquement les 98 dernières lignes qui sont parcourues, j'ai repris l'exemple 1 de ce post.

Voici comment je l'ai utilisé:

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
Private Sub Worksheet_Activate()
 
Dim FL1 As Worksheet, Cell As Range, NoCol As Integer
Dim NoLig As Long, DerLig As Long, Var As Variant
 
    'Instance de la feuille qui permet d'utiliser FL1 partout dans
    'le code à la place du nom de la feuille
    Set FL1 = Worksheets("Feuil1")
 
    'Détermine la dernière ligne renseignée de la feuille de calculs
    '(Voir explication sur l'utilisation de Split en bas de cette discussion)
    DerLig = Split(FL1.UsedRange.Address, "$")(4)
 
    'Fixe le N° de la colonne à lire
    NoCol = 2
 
    'Utilisation du N° de ligne dans une boucle For ... Next
    For NoLig = 1 To DerLig
        Var = FL1.Cells(NoLig, NoCol)
        'Pour tester : Affiche les variables dans la fenêtre Exécution de VBA
        Debug.Print Var
    Next
    Set FL1 = Nothing
 
End Sub

Merci de votre aide !

[halaster08]

Bonjour,

As-tu testé en mode pas à pas? (touche F8)
Quel est la valeur de DerLig?

[serialkiddy]

Bonjour halaster,

D'abord, merci de ta réponse rapide. J'ai testé en debugant mais ce qui est bizarre c'est que là ça m'affiche bien toutes les lignes alors que ce n'est pas le cas en exécutant. J'ai DerLig = 4687 et j'ai bien 4687 lignes.

Autre précision: si je supprime la dernière ligne à l'exécution l'affichage dans la console de débogage remontre d'une ligne et affiche bien toujours 98 lignes.

[halaster08]

Je ne sais pas si le problème est là mais pourquoi Private Sub Worksheet_Activate()Tu sais que c'est une macro evenmentielle?
As tu testé dans un module normal?

edit: Essaye avec ce code de dernière ligne

Code :

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

DerLig = FL1.Range("B" & Rows.Count).End(xlUp).Row

[serialkiddy]

Je viens de tester en créant un macro à part, c'est le même souci. Oui j'ai volontairement introduit ça dans une macro événementielle pour que cela se déclenche au changement de feuille. Je me demande si ce n'est pas la console de débogage qui a un nombre limité de lignes à afficher.
J'ai bien testé avec le nouveau code que tu me fournis pour DerLig cela m'affiche exactement le même résultat.

[halaster08]

Je me demande si ce n'est pas la console de débogage qui a un nombre limité de lignes à afficher.

Non. je viens d'en afficher 9999

Essaye avec ce code de dernière ligne:

Code :

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

DerLig = FL1.Range("B" & Rows.Count).End(xlUp).Row

[halaster08]

Si tu testes la maccro sur un autre fichiers as-tu le même problème?
Y a-t-il quelque chose de particulier a la ligne 98?