Discussion :

[GeekAlf]

Bonjour,

je rencontre un cas de figure que je n'arrive pas à expliquer.
j'ai une macro que j'ai développé il y a 7-8 ans et qui fonctionnait comme un charme jusqu'à il y a quelques temps.

Le principe est dans une plage de données de déplacer des lignes qui répondent à un critère dans un autre onglet, pas très sorcier.

à un moment donné dans une boucle, je teste une cellule, et si elle n'est pas vide, je sélectionne la ligne du dessous

Code :

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

1
2
3
4
5
6
7
8
 
Worksheets("LgFiltrees" ).Activate
                                        Range(cel & 2).Select
                                            If ActiveCell <> "" Then
                                                Do While ActiveCell <> ""
                                                    ActiveCell.End(xlDown).Offset(1, 0).EntireRow.Select
                                                Loop
                                            End If

sur le fichier qui pose problème, ma cellule n'est pas vide et pourtant le code boucle indéfiniment comme si elle était vide.... :pfff:

j'ai une valeur texte 00099 dans la cellule.....



Merci de votre aide

[GeekAlf]

a priori c'est

Code :

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

ActiveCell.End(xlDown).Offset(1, 0).EntireRow.Select

qui ne passait pas

je l'ai remplacé par

Code :

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

ActiveCell.Offset(1, 0).Select

et ça passe à nouveau....

[tototiti2008]

Bonjour,
Si tu es dans la dernière ligne remplie de ton tableau, Ctrl + Flèche bas va t'emmener à la fin de la feuille de calcul
c'est ce que fait
End(xlDown)

de là, il ne veut pas trop aller à la ligne suivante, il n'y en a plus, mais c"est ce que demande

Offset(1, 0)
d'où plantage