[VBA] Test cell vide ne fonctionne plus

Marsh Posté le 26-10-2021 à 11:22:46

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 :

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

Marsh Posté le 26-10-2021 à 11:22:46

Marsh Posté le 26-10-2021 à 16:42:14

a priori c'est

Code :

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

qui ne passait pas

je l'ai remplacé par

Code :

ActiveCell.Offset(1, 0).Select

et ça passe à nouveau....

Message édité par GeekAlf le 26-10-2021 à 16:43:32

Marsh Posté le 06-11-2021 à 09:29:15

Mets [Résolu] en début de titre de ton topic (en éditant ton premier message) pour signaler que c'est bon

---------------
Astres, outil de help-desk GPL : http://sourceforge.net/projects/astres, ICARE, gestion de conf : http://sourceforge.net/projects/icare, Outil Planeta Calandreta : https://framalibre.org/content/planeta-calandreta

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *