Accueil > Forum > > > > Arrêt de la boucle quand feuille inexistante
 Arrêt de la boucle quand feuille inexistante
lundi 24 avril 2006 à 16:24:55 |
Arrêt de la boucle quand feuille inexistante
Emakhtila
|
Bonjour
Je ne fais pas depuis bien longtemps du VB et la je bloque complètement. Voici mon problème :
Je travaille sur un programme qui me permet de récupérer dans une feuille (A) les données existantes dans d'autres feuilles (B), ces données étant calculées à partir encore d'autres feuilles (C). Chaque feuille B correspond à un groupe. Ces feuilles ont toutes le même nom (Courbe) sauf qu'à la fin il y a un chiffre pour les différencier. Au départ, je demande combien j'ai de groupes. Ce que je voudrais c'est que mon programme arrête de récupérer mes données quand il n'y a plus de feuille B. Voila ce que j'ai fait pour l'instant mais ça ne marche pas :
For J = 1 To Sheets("Courbe" & NbGpe)
For I = 3 To 65536
If Sheets("Courbe" & J).Cells(I, 1) <> "" Then
Sheets("Tous").Cells(I + 1, J) = Sheets("Courbe" & J).Cells(I, 1)
End If
If Sheets("Courbe" & J).Cells(I, 7) <> "" Then
Sheets("Tous").Cells(I + 1, 1 + J) = Sheets("Courbe" & J).Cells(I, 7)
End If
If Sheets("Courbe" & J).Cells(I, 10) <> "" Then
Sheets("Tous").Cells(I + 1, 2 + J) = Sheets("Courbe" & J).Cells(I, 10)
End If
If Sheets("Courbe" & J).Cells(I + 2, 1) = "" Then
Exit For
End If
Next I
If Not Sheets("Courbe" & J) Then Exit For
Next J
Je ne sais pas si j'ai été assez claire. Merci d'avance.
|
|
lundi 24 avril 2006 à 16:59:16 |
Re : Arrêt de la boucle quand feuille inexistante
forum_ma
|
Je ne sais pas en quel version de VB tu es, mais j'imagine que lorsque la feuille n'existe pas, le programme envoie une erreur, donc si tu es en VB.net tu devrais utiliser un Try ... Catch et si tu est en VB6 utilise un on error go to ...
J'espere que cela a pu t'aidé!!
|
|
lundi 24 avril 2006 à 17:02:22 |
Re : Arrêt de la boucle quand feuille inexistante
Polack77
|
Si je comprends bien ton problème est de stopper ta boucle. Moi je le ferait plutot comme ça : For cpt = 1 to Sheets.count If instr(1,"sheets(cpt).name","Courbe") then Blablabla… End if next  D'oh! Nuts!
Mmmmm...
DONUTS |
|
mardi 25 avril 2006 à 11:06:22 |
Re : Arrêt de la boucle quand feuille inexistante
Emakhtila
|
Merci pour votre aide. Ca ne voulait pas marcher exactement mais je m'en suis inspirer et la ça marche.
|
|
mardi 25 avril 2006 à 11:09:14 |
Re : Arrêt de la boucle quand feuille inexistante
|
Cette discussion est classée dans : end, feuille, cells, courbe, sheets
 Répondre à ce message
 Sujets en rapport avec ce message
boucle ki plante pour rien au 15e tour !!! [ par stidjeanmoulin ]
g écris un algorithme de tri pour une feuille excel (VBA):c le truc le plus simple ki soivoila le truc:----------------------------------------------
Enregistrer valeur Combobox dans un fichier fermé [ par romika ]
Bonjour à tous, j'ai encore un problème de combobox... j'enregistre les valeurs selectionnées dans les combo de mon userform du fichier A dans un autr
URGENT test / boucle [ par nicobentz ]
Bonjour, j'ai une macro qui me pose soucis, je n'arrive pas à trouver la solution. J'ai 2 feuille qui contiennent des données. la première colonne de
Problème de récupération de données dans une boucle [ par Emakhtila ]
Bonjour tout le monde.Voilà le problème sur lequel j'ai besoin d'aide :Je cherche à récupérer des données de plusieurs feuilles sur une seule avec VB6
comment remplacer une feuille excel par le contenu d'une autre excel qui se trouve dans un autre classeur en vba ? [ par ptitmitch52 ]
bonjour, j'aimerai que vous m'aider pour deux choses si cela est possible : - que signifie ce code : For K = 1 To Sheets("calcul").Cells(3, 2)
Macro excel, association d'élément [ par spirit33 ]
Bonjour, Voila j'ai un petit problème, J'ai deux parties d'un tableau (ces deux parties contiennent des noms et des dates) que je récupère dans un aut
Transfert d'une feuille vers une autre sans doublons [ par avyrex1926 ]
Bonjour, J'ai un petit problème avec un script qui me permet de transferer les noms d'une feuille vers une autre feuille mais sans doublons. Le problè
comparer les donnes de 2 feuilles [ par rimbaut ]
Bonjour,Je voudrais comparer les numeros de comptes se trouvant sur la feuille 2007 colonne 1 avec les numeros de comptes mentionné sur la feuille 200
boucle et collage sur pages différentes [ par jodeciters ]
Bonjour,à la suite d'une boucle imbriquée du type de celle-ci:If Sheets("menu2").Cells(Ligmenu, 3).Value "" Then If Sheets("menu2").Cells(Ligm
pb copier coller nb négatif d'une feuille a l'autre [ par soldick ]
bonjour étant novice en VBAdepuis je fais une ptite marcro mais elle passe pas comme je veuxsur feuille j'ai des données negatives et postive en parco
 Livres en rapport
|
Derniers Blogs
 [RIA SERVICES] INCLUDE ET DOMAINDATASOURCE[RIA SERVICES] INCLUDE ET DOMAINDATASOURCE par Audrey
Dans un de mes articles précédents , j'avais parlé des DomainDataSource avec RIA Services dans le cas d'une interface Maître - Détail. Dans le même principe, je vais parler d'une autre manière de mettre en forme ce cas d'interface avec RIA Services. Et po...
Cliquez pour lire la suite de l'article par Audrey ZUNE : VERSION ZUNE SOFTWARE V 4.2 ET LA SOCIALISATIONZUNE : VERSION ZUNE SOFTWARE V 4.2 ET LA SOCIALISATION par ROMELARD Fabrice
Une des nouveautés de la version V 3.0 était l'apparition de l'onglet Social qui ne fonctionnait que si le MarketPlace était activé sur son poste. Cela limitait donc son intérêt, car hors du cadre commercial USA-CANADA, peu de monde trouva...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice PRATIQUE DE SILVERLIGHT PAR ERIC AMBROSIPRATIQUE DE SILVERLIGHT PAR ERIC AMBROSI par MPOWARE
Je viens de finir la lecture du dernier livre d'
Eric Ambrosi
éditions PEARSON
Son livre donne une approche pratique de Silverlight qui sera aussi bien comprise par le développeur que par le designeur.
Tous les aspects du développement RIA sont abor...
Cliquez pour lire la suite de l'article par MPOWARE APPRENDRE à DéVELOPPER POUR LES MOBILES AVEC LA NOUVELLE GéNéRATION .NETAPPRENDRE à DéVELOPPER POUR LES MOBILES AVEC LA NOUVELLE GéNéRATION .NET par odewit
2 déclinaisons de Silverlight et 2 déclinaisons de Mono permettent dorénavant (ou permettront prochainement) de développer des applications .NET mobiles pour les principales plates-formes du marché :
Silverlight pour Symbian, basé sur Silverlight 2...
Cliquez pour lire la suite de l'article par odewit ZUNE : NOUVELLE VERSION DU ZUNE SOFTWARE - V 4.2ZUNE : NOUVELLE VERSION DU ZUNE SOFTWARE - V 4.2 par ROMELARD Fabrice
Avec la dernière génération du lecteur MP3 de Microsoft, le ZUNE HD, Microsoft a publié une nouvelle version du logiciel pour PC. Ainsi, je me suis décidé à installer celle-ci sur mon Tablet PC ACER, comme toujours le logiciel est donc tél...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice
Logiciels
 Academy System (10.9.4.0)ACADEMY SYSTEM (10.9.4.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System Xilisoft Convertisseur Vidéo Ultimate (5.1.39.0305)XILISOFT CONVERTISSEUR VIDéO ULTIMATE (5.1.39.0305)Xilisoft Convertisseur Vidéo Ultimate est un outil puissant de conversion vidéo, facile à utilise... Cliquez pour télécharger Xilisoft Convertisseur Vidéo Ultimate Xilisoft DVD Ripper Ultimate (5.0.64.0304)XILISOFT DVD RIPPER ULTIMATE (5.0.64.0304)Xilisoft DVD Ripper Ultimate est un logiciel excellent pour copier et convertir DVD vers presque ... Cliquez pour télécharger Xilisoft DVD Ripper Ultimate Rigs of Rods (63.3)RIGS OF RODS (63.3)c'est un jeu de multi-simulation camions,autobus voitures, avions, bateaux, hélicoptère avec défo... Cliquez pour télécharger Rigs of Rods
|