Erreur à la fin de mon tableau

Résolu/Fermé
mstecluque Messages postés 73 Date d'inscription mardi 9 juin 2015 Statut Membre Dernière intervention 28 juillet 2015 - 3 juil. 2015 à 14:49
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 - 6 juil. 2015 à 13:16
Bonjour à tous,

J'ai mis une msgbox en cas d'erreur lors du parcours d'un tableau.
Le problème est que quand j'arrive à la ligne après la fin de mon tableau (première ligne vide), ma msgbox me signale une erreur.
Ce n'est pas un tableau fixe, donc je ne peux pas indiqué à ma boucle quand elle doit s'arrêter exactement.

Si vous avez des idées...

A voir également:

4 réponses

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
3 juil. 2015 à 16:14
Re,

Ce n'est pas un tableau fixe, donc je ne peux pas indiqué à ma boucle quand elle doit s'arrêter exactement. Normalement si
0
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 776
3 juil. 2015 à 16:21
Bonjour,

« Ce n'est pas un tableau fixe, donc je ne peux pas indiqué à ma boucle quand elle doit s'arrêter exactement. »
Heureusement que les concepteurs du VBA ont prévu ce cas :
Sub Test()
Dim cel As Range
  Set cel = Range("A1") 'première cellule du tableau
  MsgBox cel.CurrentRegion.Address
End Sub
0
mstecluque Messages postés 73 Date d'inscription mardi 9 juin 2015 Statut Membre Dernière intervention 28 juillet 2015
6 juil. 2015 à 08:38
Je ne comprends pas trop... Avec cette fonction je pourrai savoir l'adresse exacte de la première cellule ou celle que je veux, très bien. Mais ça ne résoud pas vraiment mon pb: pour l'instant la dernière ligne de mon tableau est la 1203, mais dans 10min ça pourra être la 1210... donc comment faire ?
0
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 776 > mstecluque Messages postés 73 Date d'inscription mardi 9 juin 2015 Statut Membre Dernière intervention 28 juillet 2015
Modifié par Patrice33740 le 6/07/2015 à 13:12
et aussi celle de la dernière !!!!

MsgBox Split(cel.CurrentRegion.Address, ":")(1)
0
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 776
6 juil. 2015 à 13:16
et la dernière ligne :
 MsgBox Split(cel.CurrentRegion.Address, "$")(4)
0
Whismeril Messages postés 19028 Date d'inscription mardi 11 mars 2003 Statut Non membre Dernière intervention 24 avril 2024 931
6 juil. 2015 à 08:56
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
6 juil. 2015 à 09:40
Bonjour,

derniere cellule non vide colonne A
derlig = Range("A" & Rows.Count).End(xlUp).Row
0
mstecluque Messages postés 73 Date d'inscription mardi 9 juin 2015 Statut Membre Dernière intervention 28 juillet 2015
6 juil. 2015 à 10:37
Justement j'utilise ça :
lifinFS = Sheets(FS).Cells(Rows.Count, 1).End(xlUp).Row
et malgré tout, j'ai une erreur quand j'arrive à la fin de mon tableau.
0
mstecluque Messages postés 73 Date d'inscription mardi 9 juin 2015 Statut Membre Dernière intervention 28 juillet 2015
6 juil. 2015 à 10:44
Je testais tout ce que je pouvais et j'ai trouvé :
il fallait que je modifie ma condition en testant lifinFS+1 et pas lifinFS.
Merci pour votre aide.
0