Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

pb code vba (macro qui boucle)

  • Initiateur de la discussion Initiateur de la discussion nostress38
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

N

nostress38

Guest
hello besoin d'aide si vous avez le temps
dans un fichier,j'ai crée une macro qui lit des colonnes et retranscrie certaines données sur une autre feuille. Mais
lorsqu'elle lit une colonne vide, la macro boucle et tourne indéfiniment............
Je pense rajouter un truc dans ce genre mais ca foire :
If ligne = 0 then goto next ligne

ou solution de facilité tjrs laisser une info sur une ligne mais bof.....
merci pour votre aide
 
Re : pb code vba (macro qui boucle)

bonsoir à tous, je fais de la gestion des stocks sur excel et je m'y connais pas en macros, avez-voous des idées sur des macros pour gérer un stock?
 
Re : pb code vba (macro qui boucle)

Re bj,

Petit détail dans la sub d'origine, il y avait un if qui dégageait la feuille RECAP des recherches, ce if a disparu dans la sub que tu développes,
REMPLACER
If Left(Sheets(feuille).Name, 5) = "RECAP" Then GoTo sautFeuilleRecap
par
If Sheets(feuille).Name= "feuil3" Then GoTo sautFeuilleRecap
dans ta sub
çà évitera de tester la feuille qui sert de rapport !

la sub d'origine :
Code:
Sub BoucleDesFeuilles()
nbFeuilles = Sheets.Count
 For feuille = 1 To nbFeuilles
  If Left(Sheets(feuille).Name, 5) = "RECAP" Then GoTo sautFeuilleRecap
    RechercheDesColonnesLivraisonAtelier feuille
sautFeuilleRecap:
 Next feuille
End Sub

la sub modifiée dans le fichier joint :
Code:
Sub BoucleDesFeuilles()
nbFeuilles = Sheets.Count
 For feuille = 1 To nbFeuilles
     RechercheDesColonnesLivraisonAtelier feuille
 Next feuille
End Sub
 
Re : pb code vba (macro qui boucle)

bonjour,

gestion des stocks :

prix individuel * nb articles

trier par ordre décroissant
-> ce qui coûte le plus en stock est en tête

-> 20 % de ces lignes devraient représenter 80% du coût du stock ..

réduire en conséquence (intelligemment.. ) le stock des 20% de lignes les plus coûteuses

pas besoin de macro ... économies garanties ... ;-)
 
Re : pb code vba (macro qui boucle)

Merci the cat 🙂
J'avais essayé d'alleger ta macro, maintenant je comprends mieux cette boucle, merci encore à toi et bon week.
 
Re : pb code vba (macro qui boucle)

hello
par contre je n'arrive pas à integrer cette nouvelle SUB dans ma nouvelle Macro, quelqu'un y arrive t'il ou y a t'il une autre solution pour eviter cette boucle ?
Merci pour votre aide
 
Re : pb code vba (macro qui boucle)

Re bj,

C'est la sub qui parcourt toutes les feuilles pour chercher la colonne ATELIER.

On peut s'en passer... il faut juste faire le travail à la main ...
je vais sur une feuille, je lance les macros
je sélectionne la feuille suivante, je lance les macros

c'est comme vous voulez ;-)
 
Re : pb code vba (macro qui boucle)

re salut the cat,
alors il faut l'integrer dans le module1 au niveau boucle des feuilles ?

Sub BoucleDesFeuilles()
nbFeuilles = Sheets.Count
For feuille = 1 To nbFeuilles

RechercheDesColonnesLivraisonAtelier feuille

Next feuille

End Sub
 
Re : pb code vba (macro qui boucle)

Bonjour Pierrejean,

Feuil14 doit être le numéro de "feuil3" ?
je n'ai pas vérifié...

si une autre feuille devenait "feuil3", les en tête ne seront plus au bon endroit ...
voir des données pourraient être écrasées, suivant la mise en page des feuilles

sinon ta sub devrait être nickel ...

pour nostress38 :
dans les feuilles du classeur, il y a la "feuil3" qui sert à collecter les données.
il faut donc exclure la "feuil3" de la boucle des feuilles où rechercher des infos ...
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

R
Réponses
16
Affichages
1 K
R
P
  • Question Question
Réponses
1
Affichages
571
G
Réponses
9
Affichages
1 K
E
Réponses
8
Affichages
3 K
Elegancya
E
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…