une condition dans un do while qui plante ...

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : une condition dans un do while qui plante ...

@pierre

Bonjour à tous!

je suis un peu ennuyé, je ne comprend pas mon erreur , j'ai une condition dans un while qui retourne

"lindice n'appartient pas à la selection"

Je précise que mon classeur possède deux feuilles.

voici le bout de code

Code :

i=1
Sheets(i).Range("A1" ) = Sheets(i + 1).Name
Sheets(i + 1).Range("A1" ) = "coucou"
Do While ((i <= Sheets.Count()) And (a <> Sheets(i).Name))
i = i + 1
Loop

ce qui est bizarre c'est que les instructions 2 et 3 au dessus fonctionnent et c'est celle là qui plante :

Code :

a <> Sheets(i).Name

Auriez vous une idée? Merci!

Message édité par @pierre le 22-07-2010 à 09:40:44

Publicité

SuppotDeSaTante

Aka dje69r

Au moment du plantage, que renvoi i ?

---------------
Soyez malin, louez entre voisins !

@pierre

euh.. je sais pas trop comment tu peux savoir (je suis débutant ) ?

Message cité 1 fois

Arcbitre

J'aime ben ça moi, c'est bon!

Bonjour,

Les indices de tableaux commencent à 0.
Dans ta boucle, tu initie i = 1. Sheets(1) correspond à la 2ème feuille de ton classeur.
Lorsque i passe à 2, la feuille N°3 n'existe pas ==> Indice hors de la plage.

Démarre avec i = 0. Cela devrait aller mieux.

Message cité 2 fois

@pierre

j'ai compris pourquoi... c'est pas du C... l'instruction

Code :

a <> Sheets(i).Name

plante quand i arrive à la fin , il ne quitte pas le while même si c'est un AND il vérifie les deux... (mal foutu !!) auriez vous une solution donc?

Message édité par @pierre le 22-07-2010 à 09:51:10

@pierre

Arcbitre a écrit :

euh ... non c'est faux les indices commencent à 1

enfin je vérifie avec mes lignes 2 et 3 et si je met sheets(0) ça plante

Message édité par @pierre le 22-07-2010 à 09:58:11

SuppotDeSaTante

Aka dje69r

Arcbitre a écrit :

:??:

La 1ere feuille commence a 1

@pierre a écrit :

euh.. je sais pas trop comment tu peux savoir (je suis débutant ) ?

Bah quand ca plante tu viens en mode debogage, tu mets ta souris sur i, et une infobulle devrait apparaitre te donnant la valeur de i
Ou tu peux aussi faire un
Debug.Print i
ou encore MsgBox i
Pour connaitre la valeur
Mais la 1ere solution est qd meme plus simple

Message édité par SuppotDeSaTante le 22-07-2010 à 10:03:57

---------------
Soyez malin, louez entre voisins !

Arcbitre

J'aime ben ça moi, c'est bon!

Ooops, autant, au temps, OTAN pour moi! (Rayez la mention inutile)

Code :

i = 1
Sheets(i).Range("A1" ) = Sheets(i + 1).Name
Sheets(i + 1).Range("A1" ) = "coucou"
Do While ((i <= Sheets.Count()))
If a = Sheets(i).Name Then Exit Do
i = i + 1
Loop

Message cité 1 fois

@pierre

baaeeeuuu!! c'est sale mais ça marche ! ^^ merci à toi Arcbitre !!

Message cité 1 fois

SuppotDeSaTante

Aka dje69r

@pierre a écrit :

baaeeeuuu!! c'est sale mais ça marche ! ^^ merci à toi Arcbitre !!

Ca répond pas a ma question, i renvoi quoi quand ca plante. Si tu ne comprends pas tes erreurs, tu n'avanceras qu'a reculons !! (J'aime cette phrase ! ^^ )

Arcbitre a écrit :

Ooops, ~~autant, au temps~~, OTAN pour moi! (Rayez la mention inutile)

Code :

i = 1
Sheets(i).Range("A1" ) = Sheets(i + 1).Name
Sheets(i + 1).Range("A1" ) = "coucou"
Do While ((i <= Sheets.Count()))
If a = Sheets(i).Name Then Exit Do
i = i + 1
Loop

Beurk

Message cité 1 fois
Message édité par SuppotDeSaTante le 22-07-2010 à 10:10:34

---------------
Soyez malin, louez entre voisins !

Publicité

@pierre

SuppotDeSaTante a écrit :

Ca répond pas a ma question, i renvoi quoi quand ca plante. Si tu ne comprends pas tes erreurs, tu n'avanceras qu'a reculons !! (J'aime cette phrase ! ^^ )

j'ai expliqué plus haut http://forum.hardware.fr/hfr/Progr [...] m#t2010905 pourquoi ça plantais :et i = 3 au moment du plantage, parce que vba ne quitte pas le while même si la première condition est fausse et que c'est un AND

Message édité par @pierre le 22-07-2010 à 10:14:16

FORUM HardWare.fr

Programmation

VB/VBA/VBS

une condition dans un do while qui plante ...

Sujets relatifs
FPDF - Affichage sous condition	array avec une condition
Condition {if} dans un template smarty	[Batch] Une condition qui n'est pas vérifiée
Condition, si la requete sql n'affiche rien	Condition "IF" qui ne fonctionne pas
Condition de navigateur	VB : condition selon l'url d'un WebBrowser
Copier/coller des cellules sous condition	Condition If...End if à l'intérieur d'une boucle For...Next
Plus de sujets relatifs à : une condition dans un do while qui plante ...

Page générée en 0.033 secondes