jrivet
Messages postés7392Date d'inscriptionmercredi 23 avril 2003StatutMembreDernière intervention 6 avril 201260 27 oct. 2006 à 10:53
Salut,
Essaie ceci
Dim Nb As Integer
Dim NomsFeuilles() As String
ReDim NomsFeuilles(1 To Worksheets.Count)
For Nb = 1 To Worksheets.Count
NomsFeuilles(Nb) = Worksheets(Nb).Name
Next
le cancre
Messages postés292Date d'inscriptionmercredi 25 octobre 2006StatutMembreDernière intervention27 novembre 2009 27 oct. 2006 à 11:03
Lu
For Nb = 1 To Worksheets.Count
NomsFeuilles(Nb) = Worksheets(Nb).Name
Next <----- ?
on va prendre l'exemple de 2boucles
For Nb = 1 To Worksheets.Count
For zB = 1 to ZWorksheets.Count
if ZWorksheets(Nb).Name = NomsFeuilles then (Nb) = Worksheets(Nb).Name
Next <--- ? zB
Next <----- ? Nb
il faut toujours mettre apres le next son identifiant si je peux dire ca comme ca
For a = 0 to 10
For b = 0 to 15
....
Next a
Next b
For a = 0 to 10
For b = 0 to 15
....
Next b
Next a
je remarque que tout le monde laisse un next vide!
ca doit etre une mauvaise habitude....et le ptit débutant va prendre exemple sur vous ,faut faire attention!
Vous n’avez pas trouvé la réponse que vous recherchez ?
drikce06
Messages postés2236Date d'inscriptionlundi 29 mai 2006StatutMembreDernière intervention29 mai 200810 27 oct. 2006 à 11:10
Salut pas forcément si tu met next tout seul il retourne au premier for au dessus! Ceci dit tu as raison c'est mieux pour la lisibilité du prog! (En tout cas je pense)
jrivet
Messages postés7392Date d'inscriptionmercredi 23 avril 2003StatutMembreDernière intervention 6 avril 201260 27 oct. 2006 à 13:27
Re,
>[auteurdetail.aspx?ID=407787 olivier857: ]Si tu estimes que ton problème est résolu, pense à appuyer sur réponse acceptée sur le ou les post qui ont pu t'aider (t'apporteer des précision) sur ton problème